Текущий архив: 2008.07.20;
Скачать: CL | DM;

Вниз

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

← →
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 они кажды раз разные

---

← →
Ega23 ©   (2008-06-06 15:35) [6]

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


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

---

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

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

---

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

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.07.20;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c