Drag and Drop Outlook Anhang

[oakley]

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