Einzelnen Beitrag anzeigen

oakley

Registriert seit: 15. Aug 2005
172 Beiträge
 
#3

AW: Drag and Drop Outlook Anhang

  Alt 16. Mai 2020, 18:43
Hallo Jottel,

ja den Stream schreibe ich in eine Datei.

procedure TFormMain.DropFileTarget1Drop(Sender: TObject;
ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
var testfs : TFilestream;
begin
testfs := TFileStream.Create ('c:\temp\'+FTargetDataFormat.FileName, fmCreate);
testfs.Position := testfs.Size;
testfs.Write(PChar(FTargetDataFormat.Contents)^, length(FTargetDataFormat.Contents));
testfs.Free;
end;

Nur habe ich das Problem, dass ich damit immer nur eine Datei schreiben kann.
FTargetDataFormat.Contents beherbergt den Inhalt der zu schreibenden Datei.

LG

Mirko
  Mit Zitat antworten Zitat