Fehler in Komponente: Progsan Internet User Agent Components

**geskill**

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.

zusammenfalten · markieren

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;

zusammenfalten · markieren

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

zusammenfalten · markieren

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

Fehler in Komponente: Progsan Internet User Agent Components

Re: Fehler in Komponente: Progsan Internet User Agent Compon

Forumregeln