DB ( Blob ) -> TImage

[Tau]

Hallo Laute

habe auch wieder mal ein Problem

versuche verzweifelt aus einer Datenbank ( Blobfeld ) Bilder ( *.jpg ) in ein TImage zu exportieren.

die Nerven liegen blank.

Entweder sehe ich den Wald vor lauter Bäume nicht oder ich bekomme es nicht auf die reihe.

für einen Tipp währe ich sehr Dankbar

Gruss
Tau

[Hansa]

Der Tip ist Lemmy. Der hat ein Tutorial über Blobs. Bitte selber suchen.

[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

[ol1uw]

Hallo

Versuchmal

Delphi-Quellcode:

      jpg := TJPEGImage.Create;
      if (ADOQuery.FindField('BILD') as TBlobField).BlobSize > 0 then
      begin
        jpg.Assign(ADOQuery.FindField('BILD') as TBlobField);
        Bild.Picture.Bitmap.Assign(jpg);
      end;

oder eventuell mit

      ADOQuery.CreateBlobStream(ADOQuery.FindField('BILD'),bmRead); Gruß uwe

[Tau]

Hallo ol1uw

ist genau das was ich gesucht habe und funktioniert.

DANKE uwe

Gruss
Tau