Wie Drag&Drop einzelner Anhänge aus Outlook?

[stalkingwolf]

Moin,

ich hänge schon seit Ewigkeiten an dem Thema einzelne Dateianhänge aus Outlook per Drag&Drop.
Ganze Emails funktionieren.

Ich habe mich gestern mit ChatGPT dran gesetzt. Mit dem Code bekomme ich auch Filedescription aber nicht den FileContent.
Hat sich jemand damit schon einmal beschäftigt?

Succeeded(DataObj.GetData(FormatEtc, Medium)) gibt immer false zurück

Code:

procedure Tform3.extractOutlookAttachment(DataObj: IDataObject;var FileList: TStringList);
var
  FormatEtc: TFormatEtc;
  Medium: TStgMedium;
  FileDescriptor: PFileGroupDescriptorW;
  I: Integer;
  Stream: IStream;
  FileName: string;
  FileHandle: THandle;
  FileBuffer: array of Byte;
  BytesRead: LongInt;
const
    CFSTR_FILEDESCRIPTOR = 'FileGroupDescriptorW';
    CFSTR_FILECONTENTS = 'FileContents';
    function GetFormatEtc(Format: string): TFormatEtc;
    begin
        Result.cfFormat := RegisterClipboardFormat(PChar(Format));
        Result.ptd := nil;
        Result.dwAspect := DVASPECT_CONTENT;
        Result.lindex := -1;
        Result.tymed := TYMED_HGLOBAL;
    end;
begin
  // 1. Datei-Beschreibung abrufen
  FormatEtc := GetFormatEtc(CFSTR_FILEDESCRIPTOR);
  if Succeeded(DataObj.GetData(FormatEtc, Medium)) then
  try
    FileDescriptor := GlobalLock(Medium.hGlobal);
    try
      for I := 0 to FileDescriptor.cItems - 1 do
      begin
        FileName := GetEnvironmentVariable('TEMP') + '\'+WideCharToString(FileDescriptor.fgd[I].cFileName);
        FileList.add(FileName);
        showmessage(FileName);
        // 2. Datei-Inhalt abrufen
        FormatEtc := GetFormatEtc(CFSTR_FILECONTENTS);
        FormatEtc.lindex := I; // Dateiindex setzen
        if Succeeded(DataObj.GetData(FormatEtc, Medium)) then // Wird nie getriggert
        try
          Stream := IStream(Medium.stm);
          FileHandle := FileCreate(FileName);
          try
            SetLength(FileBuffer, 4096);
            repeat
              Stream.Read(@FileBuffer[0], Length(FileBuffer), @BytesRead);
              FileWrite(FileHandle, FileBuffer[0], BytesRead);
            until BytesRead = 0;
          finally
            FileClose(FileHandle);
          end;
        finally
          ReleaseStgMedium(Medium);
        end;
      end;
    finally
      GlobalUnlock(Medium.hGlobal);
    end;
  finally
    ReleaseStgMedium(Medium);
  end;
end;

[jaenicke]

Ich glaube, dass du in FormatEtc zu wenige Werte setzt. Ich glaube nach Lektüre der API du müsstest setzen:
cfFormat = CF_HDROP
dwAspect = DVASPECT_CONTENT
tymed = TYMED_HGLOBAL (oder da du einen Stream nutzt wohl TYMED_ISTREAM)

[stalkingwolf]

Mein Held

tymed = TYMED_ISTREAM war die Lösung.

Vielen Dank.

[itsChris]

Moin,
ich hätte noch ein paar Anregungen: Die Schleife für FileDescriptor.cItem ist meiner Ansicht nicht nötig, da man aus Outlook nur eine Datei per Drag ziehen kann. Außerdem steht FormatEtc.lindex nicht für den Dateiindex. Das erneute Setzen nach dem Aufruf von GetFormatEtc wird deshalb nicht benötigt.

[Redeemer]

Ich hab mich das auch gefragt, aber ich benutze die Suite von Anders Melander und Sven Harazim, aber das Ding ist so riesig, dass ich nicht weiß, wo man da was einfügen könnte.

Zitat von itsChris:

da man aus Outlook nur eine Datei per Drag ziehen kann.

Nein.

[sh17]

kommt der Code denn mit Win64 Outlook und Win32 Anwendung klar? Da gibts immer mal wieder Probleme in der Drag&Drop Bibliothek.

[itsChris]

Zitat von Redeemer:

Zitat von itsChris:

da man aus Outlook nur eine Datei per Drag ziehen kann.

Nein.

Stimmt sorry, mit STRG kann man mehrere markieren.

[stalkingwolf]

Zitat von sh17:

kommt der Code denn mit Win64 Outlook und Win32 Anwendung klar? Da gibts immer mal wieder Probleme in der Drag&Drop Bibliothek.

Nein. Nur 32 Bit aktuell.

[himitsu]

Zitat von sh17:

kommt der Code denn mit Win64 Outlook und Win32 Anwendung klar? Da gibts immer mal wieder Probleme in der Drag&Drop Bibliothek.

Zitat:

CFSTR_FILEDESCRIPTOR

Und Outlook verwendet aktuell mal wieder Streams, womit das hier auch nicht hilfreich ist.

Die bauen da aber auch gefühlt alle 1-2 Jahre alles komplett um, damit uns nicht langweilig wird.