VPF::Как загрузить картинку в sql server

novichek

Дата 24.9.2007, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 21.9.2007

Репутация: нет
Всего: нет

Народ помогите загрузить картику в sql serverю. Как я понял есть тип данных Image в который мона закинуть файл до 2 Гб, тока я не знаю как это сделать через Delphi.
Заранее спасибо.

Rodman

Дата 24.9.2007, 14:56 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

Код


// Сохраняем
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:\your_name.doc', 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:\your_name.doc', fmCreate) do 
     try 
       CopyFrom(blob, blob.Size) 
     finally 
       Free 
     end; 
finally 
   blob.Free 
end; 
end;

это пробовал?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

novichek

Дата 25.9.2007, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 21.9.2007

Репутация: нет
Всего: нет

Rodman спасибо smile

Все приходит с опытом и я учюсь!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »