Blob in DB schreiben

[Tyrael Y.]

Hi zusammen.

Ich habe einige Bilder in einem Verzeichnis.
Diese möchte ich in eine Datenbank kopieren.


Das Bild befindet sich in "Path".

Code:

 fs := TFileStream.Create(Path, fmOpenRead);
 ms := TMemoryStream.Create;
 
 ms.CopyFrom(fs, fs.Size);
 TBlobField(lTable.FieldByName('BITMAP')).LoadFromStream(ms);

dies klappt nicht.
wie geht es richtig?

Gruß Tyrael

[Memo]

versuchs mal so:

Delphi-Quellcode:

Table1Bitmap.LoadFromFile('c:\bild.bmp');

[Tyrael Y.]

auf die Art gehts jetzt

Code:

   ms.LoadFromFile(Path);
   TBlobField(lTable.FieldByName('BITMAP')).LoadFromStream(ms);

Gruß Tyrael