Запись файла в блоб массив

← →
uno-84 (2008-06-06 13:50) [0]

Подскажите пожалуийста! В компоненте ListView у меня содержеться полное имя файла (к примеру C:\Temp\VVV.jpg) мне надо этот файл вставить в таблицу базы данных я пишу

SQL.Clear;
SQL.Add("insert into ATTACHFILES(ATTACHFILES_ID, ATTACHFILE_DATA) values (GEN_ID(ATTACHFILE_GEN, 1), :ATTACHFILE_DATA)");
(FieldByName("ATTACHFILE_DATA") as TBlobField).LoadFromFile(ListView1.Items[N].SubItems[0]);

Запись не проходит! Как мне записать данные, может у кого есть примеры кода?

← →
Плохиш © (2008-06-06 13:55) [1]

ParamByName

← →
ПостОвый терминатор © (2008-06-06 14:53) [2]

Сохранение и чтение файлов в BLOB-полях
------------------------------------------------------------------------------
// Сохраняем
procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := yourDataset.CreateBlobStream(yourDataset.FieldByName("YOUR_BLOB"), bmWrite); try blob.Seek(0, soFromBeginning); fs := TFileStream.Create("C:\Temp\VVV.jpg", fmOpenRead or fmShareDenyWrite); try blob.CopyFrom(fs, fs.Size) finally fs.Free end; finally blob.Free end; end;
// Загружаем
procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := yourDataset.CreateBlobStream(yourDataset.FieldByName("YOUR_BLOB"), bmRead); try blob.Seek(0, soFromBeginning); with TFileStream.Create("C:\Temp\VVV.jpg", fmCreate) do try CopyFrom(blob, blob.Size) finally Free end; finally blob.Free end; end;

CopyRight (c) DelphiWorld и многие другие ...

← →
Ega23 © (2008-06-06 14:57) [3]

> ПостОвый терминатор © (06.06.08 14:53) [2]

А нафига такая сложная загрузка?

TBLOBField(yourDataset.FieldByName("YOUR_BLOB")).SavetoFile(FileName)

← →
Ega23 © (2008-06-06 14:58) [4]

Да и загрузка - тоже через ж.

← →
uno-84 (2008-06-06 15:00) [5]

Дело в том что мне надо вставлять файлы пути которых меняются, и записываются в ListView они кажды раз разные

> Дело в том что мне надо вставлять файлы пути которых меняются,
> и записываются в ListView они кажды раз разные

Могу порекомендовать подставлять вместо FileName каждый раз разные значения, а не одно и то же. :)

← →
uno-84 (2008-06-06 15:44) [7]

Спасибо, у меня получилось))))))) "кождый раз разные" значения вставляются

← →
я (2008-06-18 22:57) [8]

> А нафига такая сложная загрузка?TBLOBField(yourDataset.FieldByName("YOUR_BLOB")).
> SavetoFile(FileName)

Это точно! Спасиб за подсказку, ато все както поиндусски пишут)))

Запись файла в блоб массив Найти похожие ветки