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

[Lemmy]

hi,

schau mal was in deiner Hilfe zu TStream steht:

Zitat:

TStream ist der Basisklassentyp für Stream-Objekte, die von verschiedenen Speichermedien, wie Dateien auf Festplatten oder dynamischem Speicher usw., lesen oder darauf schreiben können.

Basisklasse heißt verwende für deinen Zweck eine Klasse die den Zweck erfüllt:

Delphi-Quellcode:

procedure Tfrm_task.vst_task_documentsDblClick(Sender: TObject);
var
 Document : TODocuments;
 curNode : PVirtualNode;
 folder : string;
 fileName : String;
 ts : TFileStream;
 ms: TMemoryStream;
begin
 curNode := vst_task_documents.FocusedNode;
 if not Assigned(curNode) then
 begin
   MessageDlg('Bitte ein Dokument auswählen.',mtInformation, [mbOK], 0);
   Exit;
 end;

 Document := TODocuments(vst_task_documents.GetNodeData(curNode)^);

 fileName := 'c:\'+Document.docFileName+Document.docExt;

 ts := TFileStream.Create(fileName, fmCreate);
 ts.CopyFrom(Document.doc, Document.doc.Size); // ==> hier bricht das Programm ab, siehe Anhang
 ts.Free;

 folder := ExtractFileDir(fileName);
 ShellExecute(0, 'open', PChar(fileName), nil, PChar(folder), SW_NORMAL );
end;

Hinweis: So aus dem Kopf ohne Garantie