Einzelnen Beitrag anzeigen

sega84

Registriert seit: 18. Sep 2006
73 Beiträge
 
Delphi XE2 Professional
 
#1

TImage mit DBExpress in einer Firebird DB speichern

  Alt 19. Sep 2006, 16:26
Datenbank: Firebird • Version: 2.0 • Zugriff über: DBExpress
Hallo,
habe den Inhalt eines TImage dynamisch über eine Twain-Komponente geladen, bzw. ein vorher definiertes Bild in diese geladen.
Nun möchte ich dessen Inhalt über eine SQLQuery direkt an die Firebird Datenbank senden. Habe zwar schon ein wenig was versucht, dass klappte aber nicht so besonders. Bekomme immer die Fehlermeldung:
Column Unknown: bild1 Das Blob Feld, in dem das TImage geladen wird, hat die folgende Definition:
BLOB SUB_TYPE 0 SEGMENT SIZE 80 Hier ein Quellcodeausschnitt:
Delphi-Quellcode:
procedure SaveBild;
  var query:TSQLQuery;
begin
  inherited;
  //Bild in DB Speichern...
  try
    query := TSQLQuery.Create(self);
    query.SQLConnection := SQLConnection1;
    query.Close;
    query.SQL.Clear;
    query.SQL.Add('update bilder set BILD = :bild1 where id = 1;');
    query.ParamByName('bild1').Assign(Image1.Picture);
    query.ExecSQL(true);
  except
    on e:Exception do ShowMessage(e.Message);
  end;
end;
Danke für eure Hilfe...
  Mit Zitat antworten Zitat