Delphi-PRAXiS - Delphi TWebbrowser und assign

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi TWebbrowser und assign (https://www.delphipraxis.net/61268-twebbrowser-und-assign.html)

TWebbrowser und assign

Hi Leute,
ich habe ein Problem mit assign und Twebbrowser. Ich habe eine Klasse Class. Diese stellt eine Objektliste zur Verfügung. Dieser Objektliste möchte ich mehrere Instanzen von TWebbrowser verwalten. Mache ich es wie unten (1.Fall), wird nur der Zeiger weitergeben. Sobald ich die Instanz weiterverwende, sind die Daten futsch. Versuche ich es mit einem assign (2.Fall), gibt es einen Fehler "TDocument kann TDocument nicht zugwiesen werden".

Weiß jemand Rat?

Danke

Delphi-Quellcode:

			type TClass = class (Tcomponent)

private

  FDocumentlist:TObjectList;

.....

1.Fall

function TClass.Add(Item: TWebbrowser): Integer;

var doc:TDocument;

begin

    doc:=TDocument.create(self);

    doc.Document:=item;

    result:=FDocumentList.add(doc);

end;

2.Fall

function TClass.Add(Item: TWebbrowser): Integer;

var doc,temp:TDocument;

begin

    doc:=TDocument.create(self);

    temp:=TDocument.create(self);

    doc.Document:=item;

    temp.Assign(doc);

    result:=FDocumentList.add(temp);

end;

Re: TWebbrowser und assign

Das wird so nicht gehen.
TWebBrowser ist ein Wrapper um das COM-Interface vom IE. Und dieser wird das von Delphi gewohnte Assign so nicht 100% unterstützen. Ob es überhaupt möglich ist COM/ActiveX-Objekte per Assign zu klonen würde ich bezweifeln.

Re: TWebbrowser und assign

Danke Bernhard!
Ich habe es mir fast gedacht!