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? :oops:

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.:oops:

[Perlsau]

Zitat:

Zitat von blondervolker (Beitrag 1150046)

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

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]

:shock: 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! :mrgreen:

[blondervolker]

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

Danke

[blondervolker]

Guten Taaaccchhhhh,:-D

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

:oops:

[Sir Rufo]

Zitat:

Zitat von blondervolker (Beitrag 1150313)

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 :mrgreen:

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

[Furtbichler]

Also wenn ich Daten aus einer Tabelle in eine andere kopieren will, dann mache ich das so:

Delphi-Quellcode:

NewTable.Insert;
NewTable['PictureFieldName'] := OldTable['OtherPictureFieldName'];
NewTable.Post;

ich weiss jetzt nicht genau, ob das mit Bildern auch geht, aber wenn nicht so, dann eben über Blob-Felder und Streams.
Auf jeden Fall benötige ich für das Kopieren von Daten garantiert keine visuellen Steuerelemente.

[blondervolker]

Guten Morgen,

vielen Dank für die Hilfe.:thumb:

Aber mein Problem ist,dass wenn ich in der ersten Datenbank
kein Bild habe kommt dann eine Fehlermeldung.

Ich bin nur zu dussellich diese zu unterdrücken.:oops:

Weil ich es noch nie gemacht habe.

[Sir Rufo]

Vielleicht kann man das Feld mit den Bilddaten ja fragen ob es leer ist :zwinker:
Dann würde es keine Exception geben

[DeddyH]

Das DBImage wird ja wohl aus der ersten Datenbank befüllt. Nun könnte man auf die Idee kommen, das dahinterliegende Dataset einmal zu fragen, ob das entsprechende Feld NULL ist oder nicht. Falls ja, gibt es nichts zu kopieren. Oder man geht den noch einfacheren Weg und schaut in der Hilfe nach, welche Eigenschaften so ein TDBImage besitzt. TDBImage.Field wäre evtl. ein passender Kandidat.

[Iwo Asnet]

Die Variante vom Furtbichler dürfte auch mit nicht existenten Bildern klarkommen, da dann der Wert Null sein düfte.