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

zusammenfalten · markieren

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;

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.

Danke Bernhard!
Ich habe es mir fast gedacht!