Hallo zusammen,
ich habe eine Tabelle mit vier Blob-Feldern, in denen ich BMPs speichern möchte.
Die Blob-Felder sind mit je einem DBImage verbunden. Das Einlesen der Daten erfolgt über ein OpenPictureDialog. Nach dem Einlesen werden die Bilder auch im DBImage angezeigt. Nach dem Speichern enthält jedoch nur das erste Blob-Feld das BMP, die drei übrigen sind leer.
Code sieht so aus
Delphi-Quellcode:
procedure TfErfassung.BildEin;
var
Bild : String;
begin
case zaehler of
1:
begin
if dmModellbahn.opd.Execute then
begin
Bild := dmModellbahn.opd.FileName;
fErfassung.DBImage2.DataField := 'Bild';
fErfassung.DBImage2.Picture.LoadFromFile(Bild);
fErfassung.Image1.Picture.LoadFromFile(Bild);
end;
end;
2:
begin
if dmModellbahn.opd.Execute then
begin
Bild := dmModellbahn.opd.FileName;
fErfassung.DBImage3.DataField := 'Bild2';
fErfassung.DBImage3.Picture.LoadFromFile(Bild);
fErfassung.Image1.Picture.LoadFromFile(Bild);
end;
end;
3:
begin
if dmModellbahn.opd.Execute then
begin
Bild := dmModellbahn.opd.FileName;
fErfassung.DBImage4.DataField := 'Bild3';
fErfassung.DBImage4.Picture.LoadFromFile(Bild);
fErfassung.Image1.Picture.LoadFromFile(Bild);
end;
end;
4:
begin
if dmModellbahn.opd.Execute then
begin
Bild := dmModellbahn.opd.FileName;
fErfassung.DBImage5.DataField := 'Bild4';
fErfassung.DBImage5.Picture.LoadFromFile(Bild);
fErfassung.Image1.Picture.LoadFromFile(Bild);
end;
end;
end;
fErfassung.DBImage2.Enabled := False;
fErfassung.DBImage3.Enabled := False;
fErfassung.DBImage4.Enabled := False;
fErfassung.DBImage5.Enabled := False;
fErfassung.DBEdit1.SetFocus;
end;
Was mache ich falsch oder übersehe ich? Kann mir jemand auf die Sprünge helfen?
MFG