Bilder in die Paradoxtabelle speichern ?

[Vader]

hallo,

möchte bilder in die paradoxtabelle speichern, hab in der suche nicht sehr viel gefunden, mit ttable
gehts ja so

Delphi-Quellcode:

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;

aber wie geht das mit TQuery ?
mfg vader

[mkinzler]

Da es eine Beschränkung für die Größe einer paradoxtabelle gibt, ist es imho nicht empfehlenswert Bilder in eine Paradox-DB zu speichern. Besser wäre es eine andere DB zu verwenden oder nur die Bilder extern zu speicher nund nur die Datenpfade in der Tabelle abzulegen. Willst du das aber trotzdem in Paradox machen, verwende UpdateSQL, dann gehts wie bei einer TTable.

[Vader]

hallo,

ich möchte nur zum lernen einmal die bilder in die paradoxtabelle speichern mit tquery

Zitat:

Willst du das aber trotzdem in Paradox machen, verwende UpdateSQL, dann gehts wie bei einer TTable.

ich komme aber mit

MyTableDasBild.LoadFromFile(opendialog1.filename); zu Tqueryaufruf
Query1.SQL.Text := 'SELECT * FROM bilder
nicht klar ?
mfg vader

[mkinzler]

Den Einsatz eine UpdateObjekts haben wir dir schon hier erklärt. Schau mal bei Beitrag #13.

[Vader]

das mit den UpdateObjekts ist ja klar aber da habe ich mit dbedits gearbeitet und konnte
schreiben

query.append od query.post aber ich muß ja den code:
LoadFromFile(opendialog1.filename); irgenwie unterkriegen ?
mfg vader

[mkinzler]

LoadFromFile ist eine Methode von TBlobField. Oder auch von TParameter. Du kannst also mal dies versuchen:

Delphi-Quellcode:

Query.Sql:text := 'insert into tabelle (dasBild) values (:bild);';
...
Query.ParamByName('bild').LoafFromFile (opendialog1.filename; ftBlobField);

[Vader]

hallo

fogende info: meine datenbankdatei heißt bilder.db, mein feld wo die bilder rein sollen heißt Bilder !

ich hab es so versucht aber ohne erfolg :

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text :=  'insert into bilder (Bilder) values (:bild);';
  Query1.ParamByName('bild').LoadFromFile (opendialog1.filename, ftBlobField);
  Query1.Open
end;

fehlermeldung :

[Fehler] Unit1.pas(46): Undefinierter Bezeichner: 'ftBlobField'
was ist da falsch ?
mfg vader

[mkinzler]

Sorry der FieldType muß ftBlob heißen nicht ftBlobField.

[Vader]

hallo,

wenn ich den code zur laufzeit ausführe

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text :=  'insert into bilder (Bilder) values (:bild);';
  Query1.ParamByName('bild').LoadFromFile (opendialog1.filename, ftBlob);
  Query1.Open
end;

kommt die fehlermeldung :
Datei kann nicht geöffnet werden mfg vader

[mkinzler]

DML-Abfargen kann man nicht öffnen, da sie keine Ergebnis liefren. Statt .Open .ExecSQL verwenden.