| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись файла в блоб массив [D7, XP]

uno-84 ©   (2008-06-06 13:50:00) 

Подскажите пожалуийста! В компоненте 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-18 22:57:00) [1]

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

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

---

uno-84   (2008-06-06 15:44:00) [2]

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

---

Ega23   (2008-06-06 15:35:00) [3]

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


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

---

uno-84   (2008-06-06 15:00:00) [4]

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

---

Ega23   (2008-06-06 14:58:00) [5]

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

---

Ega23   (2008-06-06 14:57:00) [6]

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


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

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

---

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

Сохранение и чтение файлов в 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 и многие другие ...

---

Плохиш   (2008-06-06 13:55:00) [8]

ParamByName

---

Наверх