Bild in andere Datenbank kopieren

[blondervolker]

Hab mal wieder die A...Karte.

Hab ein Bild von einer Datenbank 1 und Text in die andere Datenbank 2 kopiert.Das geht wunderbar.

Aber habe ich in einem Datensatz in der Datenbank1 kein Bild,bekomme ich eine Fehlermeldung:--->>> Das Format wird in der Zwischenablage nicht unterstützt.

Was habe ich falsch gemacht?

Code:

Delphi-Quellcode:

procedure TForm1.bernahmederDatenindieJobdatenbank1Click(Sender: TObject);
begin
Form17.Show;
Form17.ADOTable1.Insert;
Clipboard.Assign(DBImage1.Picture);
Form17.DBImage1.PasteFromClipboard;
Clipboard.Clear;//Bild1
DBEdit10.SelectAll;
DBEdit10.CopyToClipboard;
Form17.DBEdit10.PasteFromClipboard;
Clipboard.Clear;  //Telefon

Form17.ADOTable1.Post;
end;

[Sharky]

Warum machst Du das denn mit copy/paste?
Das finde ich mehr als unsauber. Lese die Daten aus der einen Datenbank, speichere sie in einem passenden Objekt, und speichere sie dann in der anderen Datenbank.

Je nach dem kannst Du das zwichenspeichern auch weglassen.

[blondervolker]

Mag unsauber sein.Aber wie kann ich es anders machen mit zwischenspeichern? Hab ich noch nicht gemacht.Weiß nicht wie es geht.

[Perlsau]

Zitat von blondervolker:

Das Format wird in der Zwischenablage nicht unterstützt.
Was habe ich falsch gemacht?

Genau das, was die Fehlermeldung dir sagt: Du hast versucht, in die Zwischenablage ein Format hineinzukopieren, das diese nicht unterstützt.

Das Clipboard ist dem Anwender vorbehalten und sollte nicht dazu mißbraucht werden, Daten hin- und herzuschaufeln. Den Text des Quell-Edits kannst du in eine String-Variable kopieren und dem Ziel-Edit zuweisen. Das Bild des Quell-Bitmaps kopierst du in eine lokale Bitmap-Variable und weist dieses dem Ziel-Bitmap zu.

[Sir Rufo]

Von welchem Baum muss man denn naschen um auf so eine Idee zu kommen?

Delphi-Quellcode:

procedure TForm1.bernahmederDatenindieJobdatenbank1Click(Sender: TObject);
begin
  Form17.Show;
  Form17.ADOTable1.Insert;
  
  Form17.DBImage.Picture.Assign( DBImage1.Picture );
  Form17.DBEdit10.Value := DBEdit10.Value;

  Form17.ADOTable1.Post;
end;

Wenn da kein Bild ist, dann braucht man ja auch kein Bild zu übergeben, bzw. dann schmeißt das Zuweisen (Assign) eben eine Exception.
Also sollte man vor dem Zuweisen prüfen, ob es was zum Zuweisen gibt.

Hört sich komisch an? - Ist aber so!

[blondervolker]

Ja in meinem Hinterstübchen hatte ich die Jdee...Aber ich erde es gleich
mal probieren.

Danke

[blondervolker]

Guten Taaaccchhhhh,

aber wo soll ich denn diese Exeption einfügen?
Habe kein Plan,weil ich bisher noch nie eine eingebaut habe...

[Sir Rufo]

Zitat von blondervolker:

aber wo soll ich denn diese Exeption einfügen?

Wieso willst du denn jetzt eine Exception einbauen? Reicht dir nicht die, die da schon kommt?

[DeddyH]

Doppelt hält eben besser

[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;