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

[zeras]

Mal ne Frage zwischendurch.
Wo finde ich die entsprechende Suite?

[oakley]

Hallo Zeras,

die aktuellste Version für 10.3 Rio findest Du hier: https://github.com/DelphiPraxis/The-...ite-for-Delphi

LG

Mirko

[oakley]

Ich habe heute nochmal mit Drag and Drop aus Outlook per VirtualFile Adapter aus der DP Drag and Drop Suite angefangen.

Ich ziehe einen Anhang aus Outlook (PDF, Bild, Word Dokument.... usw.) auf mein Drop Target und speichere den Inhalt wie oben angegeben per Stream in eine Datei.
Das Ganze funktioniert, allerdings immer nur mit einer Datei nach der anderen.
Frage ist, wo man über die Dateien (die ja nicht wirklich physikalische Dateien sind) iterieren kann, um dann den Speichervorgang mehrfach aus zu lösen.

Beim DropFileTarget gibt es das Array "Files", da die Dateien aber nicht wirklich physikalisch vorliegen müsste das irgendwie über den VirtualFileDataFormat Adapter gehen.
Weiß jemand wie?

Ziel ist es mehrere Anhänge gleichzeitig aus Outlook auf ein DropTarget (Panel) zu ziehen und dann zu verarbeiten.

LG

Mirko

[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.