JPEG in BLOB Feld speichern

[mikhal]

Es hat wohl weniger mit Delphi 4 zu tun. Für JPG mußt du erst einen Umweg gehen, wie er oben bereits mehrfach angeboten wurde. Als Anhalt folgender Beispielquelltext:

Delphi-Quellcode:

var
  jpgBild: TJpegImage;
  bmBild: TBitmap;
...
begin
  ...
  bmBild := TBitmap.Create;
  try
    jpgBild := TJpegImage.Create;
    try
      jpgBild.LoadFromFile(Table1.FindField('BildName').AsString);
      jpgBild.DIBNeeded;
      bmBild.Assign(jpgBild);
    finally
      FreeAndNil(jpgBild);
    end;
    Image1.Picture.Bitmap.Assign(bmBild);
  finally
    FreeAndNil(bmBitmap);
  end;
  ...
end;

Grüße
Mikhal