DBImage speichern im JPG Format

[Alterauge]

Hallo,
Habe ein kleines Problem!
Hier erstmal zum Quelltext der soweit auch geht!

Delphi-Quellcode:

procedure TForm1.AdvGlowButton5Click(Sender: TObject);
begin
if MyTable2.FieldByName('StatusEinsatz').Text ='Eingang' then
 begin
 Form4.Show;
 MyTable2.Edit;
    MyTable2.FieldByName('StatusEinsatz').Text :='BMP Format';
OpenDialog1.Filter:='*.bmp|*.bmp';
    if OpenDialog1.Execute then
      try
        TBlobField(MyTable2.FieldByName('BMP')). //BMP Datei im DBImage Blob speichern
          LoadFromFile(OpenDialog1.FileName);
           EXCEPT
            ShowMessage ('Fehler beim Öffnen der Datei!');
            MyTable2.Post;
        MyTable2.Refresh;
 end;
 end;
end;

Das Bild wird in der Datenbank (Blob)gespeichert! Soweit alles gut!
Aber beim öffnen, wird nur ein Teil des Bildes angezeigt! Also im DBImage!
Warum?

[DeddyH]

Schau Dir Deinen try-except-Block einmal genau an. Nicht besonders sinnvoll, oder?

[Alterauge]

Hallo,

Kommando zurück !

Mit "LONGBLOB" geht es !

[DeddyH]

Obwohl Du nur im Fehlerfall speicherst?