Bild in Datenbank speichern - Problem

[DeddyH]

Ehrlich gesagt verstehe ich den Code auch nicht: von welchem Typ ist SQLQuery und wo kommt das überhaupt her? Wozu 3 Parameter, wenn davon nur einer genutzt wird? Wieso eine Funktion, die immer false zurückgibt?

[Root2k]

- SQLQuery ist vom Typ TSQLQuery (Unit SqlExpr).
- Von den 3 Parametern werden eigentlich schon alle verwendet. Beim Speichern hab ich nachträglich noch ein rausgenommen.
- Der Rückgabewert ist zu vernachlässigen.

[DeddyH]

DBExpress ist nicht mein Gebiet, aber vielleicht geht Folgendes:
- Tabellen- und Feldname als Parameter entgegennehmen, die Grafik natürlich auch
- TSQLDataset/TSQLQuery innerhalb der Funktion anlegen und verbinden
- als SQL "SELECT * FROM Tabellenname WHERE 0" ausführen
- Append
- das BLOB-Feld (Parameter Feldname) befüllen
- Post
- TSQLDataset/TSQLQuery schließen und freigeben

[sx2008]

Also ich sehe in diesem Abschnitt ein Problem:

Delphi-Quellcode:

SQLQuery.Append;
// Auch mit SQLQuery.Edit noch getestet
TBlobField(SQLQuery.FieldByName(AField)).LoadFromStream(s);
SQLQuery.Post;

Man kann nicht einfach einen Datensatz mit einem Blobfeld in eine Tabelle speichern ohne zumindest das Primärschlüsselfeld befüllt zu haben.

Ausserdem würde ich der Funktion nicht eine SQL-Query + Feldname als String übergeben, sondern gleich ein TField-Objekt.
Also z.B. so:
(das .Append und das .Post habe ich entfernt
auch der harte Cast auf TBlobfield war gefährlich
ausserdem wird jetzt auch der Result-Wert befüllt
und das schlechte Exception-Handling was auch unnötig)

Delphi-Quellcode:

function TDatabaseConnection.SetImage(field:TField): boolean;
var
  s: TMemoryStream;
begin;
  s := TMemoryStream.Create;
  try
    s.LoadFromFile('*BILDPFAD*\*BILDNAME*.jpg');
    s.Position := 0;
    result :=  s.Size > 0;
    if result then
      (field as TBlobField).LoadFromStream(s);
  finally
    s.Free;
  end;
end;

[Root2k]

Danke erstmal für die Beiträge!

Zitat von DeddyH:

- TSQLDataset/TSQLQuery schließen und freigeben

Wenn ich das mache bekomme ich die Meldung "Eine Datenmenge, die nur zum Lesen ist, kann nicht geändert werden". Also hab ich da ein bisschen gesucht. Da liest man oft "RequestLive auf true setzen". Das TSQLQuery-Objekt besitzt allerdings keine solche Eigenschaft. Auch mit SQLQuery.Edit bin ich nicht weiter gekommen.

Zitat von sx2008:

Also ich sehe in diesem Abschnitt ein Problem:

Man kann nicht einfach einen Datensatz mit einem Blobfeld in eine Tabelle speichern ohne zumindest das Primärschlüsselfeld befüllt zu haben.

Das Primärschlüsselfeld ist bereits gesetzt. Nur das BLOB-Feld ist noch zu befüllen.
Den Rest von deinem Beitrag nehm ich gerne zu Kenntnis, aber das hilft mir leider nicht bei dem Problem weiter. Bitte den Code auch nicht als endgültig oder super durchdacht ansehen. Mir geht es nur um die reine Funktionalität!

[DeddyH]

Ginge das mit einer parametrisierten Query nicht einfacher? Wobei ich wie gesagt mit DBExpress nicht vertraut bin.

[Root2k]

Ehrlich gesagt versteh ich da jetzt nicht so richtig wie du das meinst.
kannst du mir vielelicht ein simples Code-Beispiel geben?

Ich probier es jetzt auch mal mit anderen Komponenten... z.B. TSimpleDataSet. Vielleicht komme ich da weiter. Allerdings hab ich mit den ganzen Datenbank-Komponenten keine Erfahrung.

[DeddyH]

Ich dachte in etwa so:

Delphi-Quellcode:

procedure SavePictureToDB(ID: integer; const Filename: string);
begin
  SQLQuery.SQL.Text := 'UPDATE Tabelle SET Feld = :wert WHERE ID = :id';
  SQLQuery.ParamByName('id').Value := ID;
  SQLQuery.ParamByName('wert').LoadFromFile(Filename);
  SQLQuery.ExecSQL;
end;

Ungetestet.