Bild in andere Datenbank kopieren

[NickelM]

Versuch es mal mit Picture.Graphic auf nil zuprüfen . Soviel ich weis sollte es Überprüfen, ob ein Image zugewiessen wurde. In Graphic steckt die abgeleiteten Klasse von den Bildern. z.b TPingImage für Pngs, TJpegImage für Jpgs, und auch TBitmap was auch von Graphic abstammt.
Habe es getestet mit Bitmaps und Pngs. Sollte funkten.

Delphi-Quellcode:

procedure TForm1.bernahmederDatenindieJobdatenbank1Click(Sender: TObject);
begin
  Form17.Show;
  Form17.ADOTable1.Insert;
  
  if DBImage1.Picture.Graphic <> nil then //Wenn nicht zugewiessen also kein Bild
  Form17.DBImage.Picture.Assign( DBImage1.Picture );
  Form17.DBEdit10.Value := DBEdit10.Value;

  Form17.ADOTable1.Post;
end;