Hi,
ist es möglich, und wenn ja wie ist es möglich, eine Datei in eine Mysqltabelle zu laden?
Habs mit ner filetostring funktion versucht.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| function FileToString(const FileName: string): AnsiString;var fs: TFileStream; Len: Integer; begin fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try Len := fs.Size; SetLength(Result, Len); if Len > 0 then fs.ReadBuffer(Result[1], Len); finally fs.Free; end; end; |
funktioniert damit aber nur teileweiße.
Mit einer Textdatei hat das super funktioniert, aber ne andere datei wurde nur zur hälfte hochgeladen.
Ich mache es übrigens so, vllt hats ja damit zu tun:
Delphi-Quelltext
1: 2:
| q := 'INSERT into user SET feld = ''' + filetostring(dateiname) + ''''; FResult := FMysql.query(q, true, ex); |