Arbeitsspeicher saugt sich voll

[youuu]

Hi,

ich hab ein Problem, ich hab ein Programm, welches ich mit ca. 30 Threads laufen lasse (4 Kerne).
Diese Threads erstellen eine Klasse, welche sämtliche Aufgaben ab arbeitet,
z.B.
- Source holen per Indy.Get
- Source bearbeiten
- Source in Document übergeben

mit dieser Funktion:

Delphi-Quellcode:

function THtmlSearch.GetDocument(const markup: WideString): IDispatch;
var
  doc: OleVariant;
begin
  CoInitialize(nil);
  Result := CoHtmlDocument.Create;
  doc := Result;
  doc.Open;
  doc.Write(markup);
  doc.Close;
  CoUnInitialize;
end;

später wird im finally Block, die Klasse wieder frei gegeben.
Jedoch wird jedesmal der Arbeitsspeicher beim erstellen der Klasse belastet, aber beim Frei geben per FreeAndNil() nicht wieder entlastet.

So dass ich irgendwann an die 1 GB und manchmal wesentlich mehr in anspruch nehme und es bei der 2GB Grenze natürlich kracht.

Gibt es da eine Lösung?

[Bernhard Geyer]

CoHtmlDocument? Hört sich nach IE an.

1, Es ist "normal" beim IE das man manche Angeforderte Interfaces mit _Release explizite 1-2 mal nochmals freigeben muss da dier IE interne sonst diese Ressourcen nicht freigibt

2, Die Verwendung von CoInitialize(nil)/CoUninitialize muss so erfolgen das alle Interfaces die du anforderst vor CoUnInitialize auch wieder freigegeben sind. CoInitialize(nil) rufst du am besten beim Tread-Beginn an, CoUninitialize beim Thread-Ende.

[himitsu]

CoUnInitialize ... du gibst die COM-Library frei, bevor die COM-Objekte in doc und vorallem im Result freigegeben wurden?

[youuu]

Ok CoInitialize und CoUnInitialize ist geändert, so dass es bei Threadbegin und Threadende gesetzt wurde, allerdings saugt der Speicher sich weiterhin voll.

Kann es also nur darin liegen das ich das Interface wieder freigeben muss?

[Luckie]

Setze das Interface mal auf NIL, wenn du es nicht mehr brauchst. Freigeben kann man ein Interface nicht.

[Bernhard Geyer]

Zitat:

Zitat von Luckie (Beitrag 1085152)

Setze das Interface mal auf NIL, wenn du es nicht mehr brauchst. Freigeben kann man ein Interface nicht.

Normalerweise muss man das nicht. Beim IE muss man aber ab und zu bei Interface auch mal _Release aufrufen.

[youuu]

Hm, wie ruf ich das denn am besten auf?

Ich verwende es so weiter:

Delphi-Quellcode:

  doc := GetDocument( slSource );

  document := doc as IHtmlDocument2;

[Bernhard Geyer]

Delphi-Quellcode:

  doc := GetDocument( slSource );
  document := doc as IHtmlDocument2; 
  
  ...

  doc._Release;