das speichern funktioniert jetzt. aber wenn ich das bild speichere, dann kommt die meldung, dass das bild gespeichert wurde. wenn ich dann auf ok klicke, dann schließt sich das programm.ich habe den quelltext mal so umgeschrieben:
Delphi-Quellcode:
procedure Tad.Button2Click(Sender: TObject);
var Stream: TMemoryStream;
aBMP: TBitmap;
aJPG: TJPEGImage;
begin
if AdoImage.Picture.Graphic.Empty
then exit;
Stream := TMemoryStream.Create;
try
aBMP := TBitmap.Create;
try
aJPG := TJPEGImage.Create;
try
try
aBMP.Assign(AdoImage.Picture.Graphic);
aJPG.Assign(aBMP);
aJPG.SaveToStream(Stream);
Stream.Position := 0;
with Adoquery1
do
begin
Close;
SQL.Text := '
INSERT INTO Tabelle1(Bild) VALUES(:img)';
AdoQuery1.Parameters.ParamByName('
img').LoadFromStream(Stream,ftGraphic);
ExecSQL;
end;
MessageBox(
Handle,'
Bild wurde gespeichert','
Information',MB_OK
or MB_ICONINFORMATION);
Close;
except
MessageBox(
Handle,'
Bild konnte nicht gespeichert werden','
Fehler',MB_OK
or MB_ICONERROR);
end;
finally
aJPG.Free;
end;
finally
aBMP.Free;
end;
finally
Stream.Free;
end;
end;