datei in mysql tabelle

[Sharky]

Zitat von Delphi-Phil:

wie lässt sich denn dieses speichern der daten am besten realisieren?. ..

Hai Phil,

Du kannst das über dein ADOQuery machen:

Delphi-Quellcode:

procedure TFRM_Objektdetails.ac_neuedateiExecute(Sender: TObject);
var
  daten: TBlobField;
  fstream: TMemoryStream;
  dataid: Integer;
begin
  if (OpenDialog1.Execute) then
  begin
    fstream := TMemoryStream.Create;
    try
      fstream.LoadFromFile(OpenDialog1.FileName);
      fstream.Position := 0;
      with Query1 do
      begin
        Close;
        SQL.Text := 'INSERT INTO dateien (dateiname,datum,daten) '
          + #10 +
          'VALUES (:dateiname,:datum, :pdatei)';
        ParamByName('datum').AsDate := now;
        ParamByName('dateiname').AsString := ExtractFileName(OpenDialog1.FileName);
        ParamByName('pdatei').LoadFromStream(fstream, ftBlob);
        ExecSQL;
        Close;
        SQL.Text := 'SELECT LAST_INSERT_ID()';
        Open;
        dataid := Fields[0].AsInteger;
      end;
    finally
      fstream.Free;
    end;
  end;
end;

Das hatte ich zwar mit den Zeos-Komponenten gemacht; aber mit den ADOs sollte es genau so gehen.

Zitat von Delphi-Phil:

... Gibt es sowas wie Tabelle voll??

Klar,
irgendwann ist die Tabelle voll. Schau mal hier.