D11 : DragDrop Suite Outlook Attachment funktionieren nicht mehr

[stalkingwolf]

D11 : DragDrop Suite Outlook Attachment funktionieren nicht mehr

Nachdem ich unsere Projekte auf Delphi 11 und die neue DragDrop Suite 11 portiert habe funktioniert das Speichern der Attachments aus Outlook nicht mehr.
Auch in dem Beispiel Code vom DragDrop Suite funktioniert das nicht mehr. In Delphi 6 und XE4 funktioniert dies einwandfrei.
Es werden 0 Byte Dateien gespeichert.

Hat jemand schon einmal was damit gemacht? Letztendlich ist das der gleiche Quellcode seit dem es die Suite gibt.
Dort gehört noch mehr dazu, aber darin tritt das Problem auf. Das Beispiel ist aus DragDropSuite -> Demo -> Outlook

Code:

var
  Attachment: IAttach;
  Prop: PSPropValue;
  FileName: AnsiString;
  SourceStream, DestStream: IStream;
  Dummy: {$if CompilerVersion < 29}Int64{$else}UInt64{$ifend};
begin
.
.
 ATTACH_BY_VALUE:
// Attachment is a file stored in an IStream object
   begin
           OleCheck(Attachment.OpenProperty(PR_ATTACH_DATA_BIN, IStream, STGM_READ, 0, IUnknown(SourceStream)));

             FileName := AnsiString(ExtractFilePath(Application.ExeName) + ListViewAttachments.Selected.SubItems[ColFile]);

             SourceStream.Seek(0, STREAM_SEEK_SET, Dummy);

             OleCheck(OpenStreamOnFile(PAllocateBuffer(@MAPIAllocateBuffer), PFreeBuffer(@MAPIFreeBuffer),

                  STGM_CREATE or STGM_READWRITE, PAnsiChar(FileName), nil, DestStream));

             SourceStream.CopyTo(DestStream, 0, Dummy, Dummy);
             DestStream := nil;
        end;

Edit :

Ich habe mit noch gerade die Size von Sourcestream mit

Code:

SourceStream.Stat(statstg,STATFLAG_DEFAULT);

besorgt
und dann deststream mit

Code:

DestStream.SetSize(statstg.cbSize);

darauf gesetzt.
Resultat ist eine Datei in der korrekten Größe mit nur 0 Zeichen.
D.h Sourcestream ist leer.

EDIT 2: Fehler gefunden.

Die Zeile

Code:

SourceStream.CopyTo(DestStream, 0, Dummy, Dummy);

funktioniert nicht.
Es muss

Code:

SourceStream.CopyTo(DestStream, statstg.cbSize, Dummy, Dummy);

lauten, dann funktioniert es.
Dafür muss davor

Code:

SourceStream.Stat(statstg,STATFLAG_DEFAULT);

eingefügt werden, damit man die Länge ermittelt.