Drag and Drop Outlook Anhang

[TurboMagic]

Zitat von oakley:

Delphi-Quellcode:

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;

Kleiner Forums Tipp noch: vor dem Einfügen von Quellcode mal den Delphi Helm oberhalb des Memo anklicken
und dann den Code zwischen die eingefügten Tags einfügen. Dann wird er sauber formatiert angezeigt...

[oakley]

Danke für den Tipp, das wusste ich nicht.