Tdbimage -> Bitmap ist ungültig? Blob mit JPG Datei

[Karstadt]

Hallo. Habe die Suche benutzt und ein Paar Code´s zusammen kopiert:

Delphi-Quellcode:

var
   blob : TMemoryStream;
   BlobField: TBlobField;
   jpeg : TJPEGImage;
   bmp : TBitmap;
   s: String;
begin
 If OpenPictureDialog1.Execute Then
 begin

    blob :=  TMemoryStream.Create();
    jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create;

    s :=ExtractFileExt(OpenPictureDialog1.FileName);
    if uppercase(s) = '.BMP' then
    begin
       bmp.loadfromfile(OpenPictureDialog1.FileName);
       blob.Clear;
       bmp.saveToStream(blob);
    end else
    begin
       jpeg.LoadFromFile(OpenPictureDialog1.FileName);
       blob.Clear;
       jpeg.SaveToStream(blob);
    end;

   with MyQuery1 do
   begin
    Edit;
    BlobField := FieldByName('sch_bild') as TBlobField;
    BlobField.LoadFromStream(blob);

    //BlobField.LoadFromFile(OpenPictureDialog1.FileName);
    Post;
    //Post;
   end;

       freeandnil(blob);
      freeandnil(jpeg);
      freeandnil(bmp); 
 end;

Wenn ich ein JPG Bild abspeichere tritt ein Fehler auf das Bitmap ungültig ist TDBIMAGE kann diesen BLOB Feld nicht lesen.

Feher in CODE oder Kann TDBIMAGe keine IPG´s lesen?

PS: Mit Bitmaps funktionert es!

[fkerber]

Hi!

Anscheinend werden keine JPEGs unterstützt:
http://blogs.teamb.com/deepakshenoy/...1/25/2496.aspx

Dort wird aber auf die JVCL verwiesen.


Ciao Frederic

[Klaus01]

Habe es nicht ausprobiert aber schau mal hier: http://groups.google.de/group/de.com...4f539b6b12829c

Grüße
Klaus