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?