Entwickler-Ecke :: Thema anzeigen - Bilder in einer Datenbank speichern

Black_Fox - Mi 02.04.08 18:02
Titel: Bilder in einer Datenbank speichern

Hi ich würde gerne ein Bild was ich mit Hilfe eines Buttons in ein DBImage Feld lade, mit Hilfe eines weiteren Buttons in der Tabelle die ich angelegt habe speichern hier mein text bis her:

hab stelle wo der fehler komt mal kommentiert

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TFAdressbuch.BBildLadenClick(Sender: TObject);
begin
try
 if OpenPicture.Execute then
    DBBild.Picture.LoadFromFile(OpenPicture.FileName);
 except
    ShowMessage('Bild konnte nicht geöffnet werden!');
end;
end;

procedure TFAdressbuch.BBildSpeichernClick(Sender: TObject);
begin
  TAdressdaten.FieldValues['Bild'] := DBBild.Picture;  -> hier kommt der Fehler "Inkompatible Typen Variant und TPicture" was kann ich dagegen machen?
  TAdressdaten.Post;
  TAdressdaten.Refresh;
end;

,

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

alzaimar - Mi 02.04.08 19:56

Du musst mit einem TBlobField (BLOB = Binary Large OBject) und einem Stream arbeiten. Das sollte so gehen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Var
  MyPictureStream : TMemoryStream;

Begin
  MyPictureStream := TMemoryStream.Create;
  Try
    ThePicture.SaveToStream (MyPictureStream);
    MyPictureStream.Seek (0, soFromBeginning);
    (MyTable.FieldByName('PictureFieldName') as TBLobField).LoadFromStream (MyPictureStream);
  Finally
    MyPictureStream.Free;
  End
End;

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Black_Fox - Do 03.04.08 17:10

Habs jetzt so gemacht:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TFAdressbuch.BBildSpeichernClick(Sender: TObject);
var MyPictureStream : TMemoryStream;
begin
  MyPictureStream := TMemoryStream.Create;
  Try
    ThePicture.SaveToStream (MyPictureStream);
    MyPictureStream.Seek (0, soFromBeginning);
    (TAdressdaten.FieldByName('Bild') as TBLobField).LoadFromStream (MyPictureStream);
  Finally
    MyPictureStream.Free;
  end
end;

bloß nur kommt eine Exception: "Im Project1.exe ist eine Exception aufgetreten der Klasse EDatabaseError. Meldung 'tAdressdaten: Datenmenge weder im Eitier- noch im Einfügemodus'. Prozeß wurde angehalten.Mit Einzelene...."

Moderiert von Klabautermann: Code- durch Delphi-Tags ersetzt

alzaimar - Do 03.04.08 17:14

Na, in den Edit/Append-Modus solltest Du schon wechseln. Felder einer Datentabelle verändert man so:

Delphi-Quelltext

1:
2:
3:

MyTable.Edit; // oder MyTable.Append;
MyTable['Feld'] := Irgendwas;
MyTable.Post; // oder MyTable.Cancel, das verwirft alle Ändernungen

Moderiert von Klabautermann: Delphi-Tags eingefügt.

Black_Fox - Fr 04.04.08 16:11

Hab das jetzt so gemacht, aber es kommt immer noch der Fehler:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TFAdressbuch.BBildSpeichernClick(Sender: TObject);
var MyPictureStream : TMemoryStream;
begin
  TAdressdaten.Edit;
  TAdressdaten['Bild'] := DBBild.Picture;
  MyPictureStream := TMemoryStream.Create;

  Try
    ThePicture.SaveToStream (MyPictureStream);
    MyPictureStream.Seek (0, soFromBeginning);
    (TAdressdaten.FieldByName('Bild') as TBLobField).LoadFromStream (MyPictureStream);
  Finally
    MyPictureStream.Free;
  end;
  TAdressdaten.Post;
end;

Moderiert von Klabautermann: Code- durch Delphi-Tags ersetzt

Black_Fox - Sa 05.04.08 13:58

zu 1. die fehlermedung hatte ich weiter oben schonmal erwähnt deswegen auch: "kommt immer noch der Fehler":

"Im Project1.exe ist eine Exception aufgetreten der Klasse EDatabaseError. Meldung 'tAdressdaten: Datenmenge weder im Eitier- noch im Einfügemodus'. Prozeß wurde angehalten.Mit Einzelene...."

zu 2. ok sind das delphi tags --> [delphi[[/delphi]?

IceBube - Sa 05.04.08 14:14

Wenn du ein Feld editieren willst, musst du es erst "auswählen"...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

//
TAdressdaten.RecNo := {Hier der Datensatz z.b.: "2"}
//
  TAdressdaten.Edit; 
  TAdressdaten['Bild'] := DBBild.Picture; 
  MyPictureStream := TMemoryStream.Create; 
  Try 
    ThePicture.SaveToStream (MyPictureStream); 
    MyPictureStream.Seek (0, soFromBeginning); 
    (TAdressdaten.FieldByName('Bild') as TBLobField).LoadFromStream (MyPictureStream); 
  Finally 
    MyPictureStream.Free; 
  end; 
  TAdressdaten.Post; 
end;

Sinspin - Sa 05.04.08 17:40

Das man auf einem Datensatz stehen muss, ist sicherlich klar.

Was mich nur ein bisschen wundert ist die Zeile:

Delphi-Quelltext

1:	TAdressdaten['Bild'] := DBBild.Picture;

Mal abgesehen davon, das ich noch nie den Fall hatte das eine Zuweisung auf diese Art ohne Exception abgeht, ist das eigentlich gleichbedeutend mit:

Delphi-Quelltext

1:	TAdressdaten.FieldByName('Bild') := DBBild.Picture;

Diese Zeile dürfte also der Fehler sein.

Und dass, das Ergebnis:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TFAdressbuch.BBildSpeichernClick(Sender: TObject);
var MyPictureStream : TMemoryStream;
begin
  TAdressdaten.Edit;
  //TAdressdaten['Bild'] := DBBild.Picture; <--- weg damit
  MyPictureStream := TMemoryStream.Create;
  Try
    ThePicture.SaveToStream (MyPictureStream);
    MyPictureStream.Seek (0, soFromBeginning);
    (TAdressdaten.FieldByName('Bild') as TBLobField).LoadFromStream (MyPictureStream);
  Finally
    MyPictureStream.Free;
  end;
  TAdressdaten.Post;
end;

Black_Fox - Sa 05.04.08 19:29

Kommt immer noch der Fehler T_T: hier nochmal der Quelltext für den Bild lade Button und den Bild speichern Button:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TFAdressbuch.BBildLadenClick(Sender: TObject);
begin
try
 if OpenPicture.Execute then
    DBBild.Picture.LoadFromFile(OpenPicture.FileName);
 except
    ShowMessage('Bild konnte nicht geöffnet werden!');
end;
end;

procedure TFAdressbuch.BBildSpeichernClick(Sender: TObject);
var MyPictureStream : TMemoryStream;
begin
  TAdressdaten.Edit;
  MyPictureStream := TMemoryStream.Create;
  Try
    ThePicture.SaveToStream (MyPictureStream);
    MyPictureStream.Seek (0, soFromBeginning);
    (TAdressdaten.FieldByName('Bild') as TBLobField).LoadFromStream (MyPictureStream);
  Finally
    MyPictureStream.Free;
  end;
  TAdressdaten.Post;
end;

Also erst öffne ich ein Bild was ich auswähle in dem Fenster und dann soll es mit einem klick in der db gespeichert werden. Der Fehler kommt immer wenn ich das Programm gestartet habe und dann den Button Speichern drücke.

Sinspin - Mi 09.04.08 19:03

An dem Schnipsel ist nichts falsch.
Selbst wenn was mit ThePicture nicht stimmen würde, würdest du diese Fehlermeldung nicht bekommen. Da weder die Zuweisung noch TAdressdaten.Post bei einer Exception ausgeführt werden würde.
Aber, um auf Nummersicher zu gehen, kannst du es ja mal anders machen und es mit einer Datei von der Platte mal probieren und nicht aus einem Stream:
(TAdressdaten.FieldByName('Bild') as TBLobField).LoadFromFile(-filename-);.
Und dir dabei natürlich auch keinen Zugriff auf ThePicture gönnen, wenn du dort schon den Fehler vermutest.

SmileySN - Sa 12.04.08 15:10

Kein DBImage sondern ein einfaches Image nehmen und den Dateinamen mit Pfad aus der Datenbank lesen und dann im Image.loadfromfile laden.
Das Bild sollte als, für das Imageobjekt, lesbares Format vorliegen.
Das mit dem Stream ist doch noch etwas zu schwierig, mach es erst mal auf die einfache art.

Lake - So 13.04.08 10:07

Also ich hatte das einmal so gelöst.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

DatenMemStream.Clear;
tblBlob.Edit;
TJpegImage(image1.picture.Graphic).SaveToStream(DatenMemStream);
DatenMemStream.Position := 0;
TBlobField(tblBlob.FieldByName('Bild')).LoadFromStream(DatenMemStream);
tblBlob.Post;

MAlsleben - Mo 14.04.08 20:57

Hi,

wenn ich das richtig sehe, willst Du ein jpg als Bild in der Datenbank speichern. Das geht mit dbimage meines Erachtens nicht, denn das funktioniert in dem Fall nur mit bmp's.
Wie ein jpg in einer DB gespeichert und wieder angezeigt wird, wurde hier im Forum aber schon mehrmals gezeigt.
Einfach mal nach "jpg Datenbank" im Forum suchen.

Gruß Micha.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!