Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#6
  Alt 6. Sep 2002, 07:34
Hallo jackal,

grundsätzlich funktioniert das Einfügen eines Datensatzes über die Sequenz:

Code:
try
  MyTable.Append;
  MyTableField1.Value := ...;
  ...
  MyTableFieldn.Value := ...;
  MyTable.Post;
except
  on E:exception do
  begin
    ShowMessage('Fehler beim Einfügen: '+E.Message);
    MyTable.Cancel;
  end
end;
Dabei habe ich angenommen, dass die Felder über den Feldeditor der Anwendung hinzugefügt wurden. In deinem speziellen Fall gibt es ein Blob Feld, das nach Hinzufügung über den Feldeditor ein TBlobField Objekt erzeugt. Heißt dein Feld in der DB z.B. "DasBild" und deine Tabelle "MyTable", dann wird das Feld "MyTableDasBild" erzeugt.

Dann kannst du mit Assign oder mit LoadFromFile diesem Feld einen Wert zuweisen:

Code:
try
  MyTable.Append;
  ...
  MyTableDasBild.LoadFromFile(opendialog1.filename);
  MyTable.Post;
except
  on E:exception do
  begin
    ShowMessage('Fehler beim Einfügen: '+E.Message);
    MyTable.Cancel;
  end
end;
Und drin isses .
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat