OleVariant zu TBytes

[Photoner]

Hallo allerseits,


Habe ein Bitmap (24MB) das als OleVariant verpackt wird (poste ich bei Bedarf) und dann über COM verschickt wird. Geht gut und sogar sehr fix. Beim entpacken auf der aufrufenden Seite dauerts aber ewig. Den Grund dafür konnte ich schon identifizieren und ich habe ein Minimalbeispiel drumherum gestrickt. Der Kasus Knaxus ist der Cast von OleVariant nach TBytes. Habt ihr vielleicht eine Idee / einen Tipp warum das casten so lange dauert bzw. wie ich es schneller lösen könnte?

Beispiel (VCL Formular mit Button und Memo; Win32 DEBUG):

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    Ole   : OleVariant;
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  bytestr : TBytesStream;
  stamp1  : Integer;
  stamp2  : Integer;
  stamp3  : Integer;
//  byte    : Array of UInt8;
  byte    : TBytes;
begin
  try
    stamp1  :=  GetTickCount;
//  byte    :=  TBytes(Ole);
    byte    :=  Ole;
    stamp2  :=  GetTickCount;
//    bytestr :=  TBytesStream.Create(TBytes(Byte));
    bytestr :=  TBytesStream.Create(byte);
    stamp3  :=  GetTickCount;
  finally
    Memo1.Lines.Add('Stoppuhr Cast: '+IntToStr(stamp2-stamp1)+'ms');
    Memo1.Lines.Add('Stoppuhr Stream: '+IntToStr(stamp3-stamp2)+'ms');
    Memo1.Lines.Add('Größe: '+IntToStr(Round(bytestr.Size/(1024*1024)))+'MBytes');
    Memo1.Lines.Add('Array Größe:' +IntToStr(Length(byte)));
    bytestr.Free;
    byte  :=  nil;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  ptr : PByte;
  i   : Integer;
begin
  Ole :=  VarArrayCreate([0,25000053],varByte);
  ptr :=  VarArrayLock(ole);
  i   :=  0;
  for i :=  0 to 25000053 do begin
    ptr^  :=  Uint8(Random(255));
    inc(ptr);
  end;
  VarArrayUnlock(ole);
end;

end.