Forum: Programmieren allgemein
Delphi
by Piro,
29. Jun 2016
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.
Forum: Programmieren allgemein
Delphi
by Piro,
22. Jun 2016
Ok das habe ich verstanden.
Folgendes mache ich schon beim VST.
procedure Tfrm_task.vst_task_documentsFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
Document : TODocuments;
begin
Document := TODocuments(vst_task_documents.GetNodeData(Node)^);
Forum: Programmieren allgemein
Delphi
by Piro,
22. Jun 2016
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;
Forum: Programmieren allgemein
Delphi
by Piro,
22. Jun 2016
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