So ein bischen weiter bin ich schon ich konnte den Fehler wieder auf eine kleinere Klasse eingrenzen, mehr oder weniger habe ich dies dann endlich durch probieren geschafft.
Delphi-Quellcode:
constructor THTMLDocument.Create(OwnerDocument:THTMLDocument;BelongTo:THTMLElementCollection);
begin
inherited Create(OwnerDocument,BelongTo);
fRawHTML:=TStringList.Create;
fAutoLoad:=True;
fAutoParse:=True;
fAutoLoadFrames:=false;
fAutoParseFrames:=false;
fReFormatOutputHTML:=true;
TagStr:='
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.02 Transitional//EN">';
fLocation := THTMLLocation.create(self);
// Diese Klasse bereitet die Probleme
fFrameSet := THTMLFrameSet.Create(self,childs);
fFrameCollection := THTMLFramesCollection.Create(self);
fFormCollection := THTMLFormCollection.Create(self);
fTableCollection := THTMLTableCollection.Create(self);
fAnchorCollection := THTMLAnchorCollection.Create(self);
fImageCollection := THTMLImageCollection.Create(self);
fStylesCollection := THTMLStyleSheetsCollection.Create(self);
fScriptsCollection:= THTMLScriptsCollection.Create(self);
end;
Delphi-Quellcode:
constructor THTMLLocation.Create(aDocument:THTMLDocument);
begin
inherited Create;
//fBuffer := TMemoryStream.Create;
fSession:= TInternetSession.Create(nil);
fSession.AccessType:=atPreConfig;
fConnection:= TInternetConnection.Create(nil);
fConnection.Session:=fSession;
fLoader := TInternetHTTPRequest.Create(nil); // Diese Klasse bereitet die Probleme
fLoader.Connection:=fConnection; // Folgefehler ...
TInternetHTTPRequest(fLoader).opKeepConnection:=true; // Folgefehler ...
fDocument:=aDocument;
fLoader.OnLoaded:=doOnLoaded; // Folgefehler ...
end;
Dann habe ich mir nochmal die Destroy Metode angeschaut
Delphi-Quellcode:
destructor THTMLLocation.Destroy;
begin
{
fLoader.CloseRequest;
fLoader.Free; <--- Aus der Klammer raus sonst jammer der weil es nicht richtig freigegeben ist
fConnection.Disconnect;
fConnection.free;
fConnection:=nil;
}
fSession.Close;
fSession.Free;
fSession:=nil;
fLoader:=nil;
//if assigned(fBuffer) then
// fBuffer.Free;
inherited Destroy;
end;
Naja und dann was das schon, also bei mir klappt es jetzt *freu* :firejump: :firejump:
Ich hätte beinahe schon aufgegeben, zumal bei 15000 Zeilen den Fehler zu finden, ohne wirklich zu wissen woran es lag ist hart!
Außerdem war dies mit die beste Komponente wenn man z.b. Internet Komponenten filtern will (Formulare, Button, EditFelder...)etc. Man hätte das auch über den IE machen können, jedoch ist der langsamer und man muss dann mit dem Ereigniss arbeiten, wenn die Seite fertig geladen wurde...
Wie gesagt, "fLoader.Free;" aus der Klammer raus, dass ganze ist zu finden in Z. ~13930