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

zusammenfalten · markieren

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

Wie sieht den die Abfrage aus?

Das Dataset wird mit einem select * from tabelle geöffnet und mit append und edit in den Bearbeitungsmodus versetzt. Beendet wird mit applyupdates und commit. Und dann stehen alle daten in der Tabelle, nur die Blob-Felder 2,3,4 enthalten keine Daten.

To Whom It May Concern!

Man muß die Felder persistent anlegen, dann funktioniert es!

Ich versteh's nicht!!!

mfg