MS SQL varbinary(max) zu Virtual String Tree, welcher Datentyp?

[Piro]

Aber doc erhält doch von ts den Inhalt.

Wenn ich ts mit free freimache, sollte das doc doch gar nicht interessieren.

Soweit mein Verständnis. Lasse mich gerne belehren. Es muss ja irgendetwas schief laufen, sonst würde es ja klappen.

Gruß,
Sven

[Piro]

Delphi-Quellcode:

if DSData.FieldByName('doc').IsBlob then
begin
 doc := DSData.CreateBlobStream(DSData.FieldByName('doc'), bmRead);

//ts := DSData.CreateBlobStream(DSData.FieldByName('doc'), bmRead);
//doc := ts;
//ts.Free; 
end;

Wenn ich auf ts verzichtet und direkt den TStream in das TStream Objekt der VST Struktur schreibe, funktioniert es.

Jetzt bekomme ich nur ein Memory Leak beim Beenden der Anwendung. Ich muss ja irgendwie, dass doc Element freigeben aber wie? Es ist ja in der VST Struktur.

Oder sollte ich ts wieder aktivieren aber als Globale Variable und beim Beenden wieder freigeben? Dieser Weg scheint mir aber eher schlecht programmiert.

Gruß
Sven

[Sir Rufo]

Referenz, Referenz, Referenz.

Du baust ein Haus haus := THaus.Create; .
Du verkaufst das Haus Peter.Haus := haus; .
Du reisst das Haus wieder ab haus.Free; .

Peter steht vor einem Trümmerhaufen.

Das was du übergibst ist die Referenz auf die Instanz und nicht die Instanz selber oder den gesamten Speicherbereich der Instanz.

[Piro]

Ok das habe ich verstanden.

Folgendes mache ich schon beim VST.

Delphi-Quellcode:

procedure Tfrm_task.vst_task_documentsFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
 Document : TODocuments;
begin
 Document := TODocuments(vst_task_documents.GetNodeData(Node)^);
 Document.Free;
end;

Jetzt weiß ich nicht, wo ich es noch machen soll und vor allem wie?

Die Klasse TODocuments steht ja in Verbindung zum VST. Siehe oben bei Tfrm_task.SQLDataToVST_Documents.

Für einen Hinweis wäre ich dankebar.

[Aviator]

Zitat von Piro:

Ok das habe ich verstanden.

Folgendes mache ich schon beim VST.

Delphi-Quellcode:

procedure Tfrm_task.vst_task_documentsFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
 Document : TODocuments;
begin
 Document := TODocuments(vst_task_documents.GetNodeData(Node)^);
 Document.Free;
end;

Jetzt weiß ich nicht, wo ich es noch machen soll und vor allem wie?

Die Klasse TODocuments steht ja in Verbindung zum VST. Siehe oben bei Tfrm_task.SQLDataToVST_Documents.

Für einen Hinweis wäre ich dankebar.

Es gibt natürlich mehrere Möglichkeiten ein Objekt im Bezug zu einem VST freizugeben. Die eine Lösung ist die, wie du es in deinem Beispiel machst. Die andere wäre die, dass du dir beim Erstellen alle Objekte in bspw. einer ObjectList speicherst und dann nur noch beim Beenden deines Programmes die ObjectList freigibst, welche dann alle beinhaltende Objekte ebenfalls freigibt. (Sofern OwnsObjects auf true steht).

[Piro]

Moin,

sorry für die späte Antwort. Ich habe eine Lösung gefunden.

Beim Beenden der Form mit dem VST durchlaufe ich nochmal die VST Datenstruktur und gebe den Stream für jedes vorhandene Objekt frei.

Damit geht es.

Danke an alle Beteiligten mich auf den richtigen Weg gebracht zu haben.

Gruß
Sven