Hallo zusammen,

hab da ein kleines Problem mit dem Schreiben von Blobfelder in eine MySQL-DB. Habe vorher mit Append & Co gearbeitet, aber ich mußte aufgrund von Performance Treibereinstellungen ändern. Nun funktionieren die einfachen Dinge des Lebens nicht mehr. Also muß ich mich der weiteren Dinge behelfen und das ist die Speicherung von Sachen in der DB über einen direkten SQL-Befehl. Leider versuche ich vergeblich zu finden wie man Blobfelder über SQL-Befehle speichert.

Hoffe mir kann da jemand weiterhelfen.

Gruß, Moony

Hallo Moony,

MySQL kennt folgende Syntax:

UPDATE myTable SET myBlob = LOAD_FILE("c:/tmp/picture-1") WHERE id = 1 Aber wer zwingt dich dazu auf einen BlobStream zu verzichten?

Grüße vom marabu

Dafür brauch ich einen MySQL Client. Ich hole mir die Dateien aber irgendwo her und nicht vom Server direkt.
Wer sagt dass ich auf den Stream verzichten muß. Ich wüßte nur nicht wie genau das Ganze in die Datenbank gebracht werden soll.

Gruß, Moony

Vielleicht so:

zusammenfalten · markieren

Delphi-Quellcode:

var
  s: TMemoryStream;
  fn: TFileName;
begin
  with ADOQuery do
  begin
    SQL.Text := 'SELECT myBlob FROM myTable WHERE id = 1';
    Open;
    Edit;
    TBlobField(Fields[0]).LoadFromStream(s); // Daten intern?
    TBlobField(Fields[0]).LoadFromFile(fn); // Daten extern?
    Post;
    Close;
  end;
end;

marabu

@ marabu: Danke, aber das Problem besteht eben, dass ich keinen normalen Post-Befehl ausführen kann, weil über den MySQL-Treiber ein Fehler ausgespuckt wird(E_FAIL). Deshalb muß ich über einen ADOCommand einen direkten SQL-Befehl ausführen.

Sorry - manchmal verstehe ich etwas langsamer. Du scheinst per OLEDB Provider für ODBC über den MySQL ODBC Treiber auf die Datenbank zuzugreifen. Ich kann das mit dem Fehler jetzt nicht untersuchen, aber mit ADOCommand sollte es auch gehen. Setze den CommandText auf 'UPDATE myTable SET myBlob = :blob WHERE id = 1' oder was immer dir vorschwebt und befülle den Parameter blob mit den notwendigen Daten - LoadFromStream() und LoadFromFile() stehen dir auch dort zur Verfügung.

marabu

Zitat von Moony:

hab da ein kleines Problem mit dem Schreiben von Blobfelder in eine MySQL-DB. Habe vorher mit Append & Co gearbeitet, aber ich mußte aufgrund von Performance Treibereinstellungen ändern. Nun funktionieren die einfachen Dinge des Lebens nicht mehr. Also muß ich mich der weiteren Dinge behelfen und das ist die Speicherung von Sachen in der DB über einen direkten SQL-Befehl. Leider versuche ich vergeblich zu finden wie man Blobfelder über SQL-Befehle speichert.

Hoffe mir kann da jemand weiterhelfen.

markieren

Delphi-Quellcode:

ADOQuery1.SQL.Text:='Insert into mytable(myfield) values(:blob)';
ADOQuery1.Parameters.ParamByName('blob').LoadFromFile('c:\test.txt',ftBlob);
ADOQuery1.ExecSQL;