DB ( Blob ) -> TImage

[Tau]

Hallo Hansa

sorry habe mich etwas undeutlich ausgedruckt wahr schon etwas Müde.

Der unten angeführte Code funktioniert ohne Probleme aber
ist meiner Meinung nach sehr Langsam dadurch das ich
immer auf die HHD hinaus schreibe.

Es müsste das ganze aber auch über den Speicher funktionieren,
währe wesentlich schneller und man müsste sich nicht noch
um die Datei Leichen kümmern.

Habe es mit Stream versucht bekomme es aber leider nicht in den Griff.


H I L F E

Delphi-Quellcode:

procedure TForm1.LL10DefineVariables(Sender: TObject; UserData: Integer; IsDesignMode: Boolean;
          var Percentage: Integer; var IsLastRecord: Boolean; var EventResult: Integer);
 var jpg: TJPEGImage;
     bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  bmp := TBitmap.Create;

  ADOQuery1F111.SaveToFile('demo.jpg');
  bmp.Assign(jpg);
  bmp.SaveToFile('demo.bmp');
  Image1.Picture.LoadFromFile('demo.bmp');

  LL10.LlDefineVariableExtHandle('Picture', Image1.Picture.Bitmap.Handle, LL_DRAWING_HBITMAP);

  If not IsDesignMode then
    begin
      IsLastRecord := true;
      Percentage := 100;
    end;

  jpg.Free;
  bmp.Free;
end;

Gruss
Tau