[Skif1369]

Доброе время суток всем. У меня есть необходимость загружать в БД (БД на MSSQL 2005) в поле типа "Image" файлы. В БД гружу при помощи следующей команды

Код:

INSERT INTO tbl_Image (I_Image) 
SELECT *
FROM OPENROWSET(BULK N'C:\Ошибка контроллера.jpg', SINGLE_BLOB) AS [File]

Т.е. проблем с загрузкой файла нет. Мне необходимо этот файл потом из БД вытянуть и открыть его. Все это надо реализовать на Delphi. А поскольку я новичок, то прошу помощи как все это реализовать.

[Ildar-tsr]

В uses добавь Shellapi:

Код:

unit Unit1;
interface
uses
...,
Shellapi;

На форму кинуть ADOQuery (name - query).
Установить Connection, а в SQL внести запрос типа:

Код:

select I_Image from tbl_Image

потом обрабатываем (как пример на нажатие кнопки)

Код:

procedure TfmLinks.Button1Click(Sender: TObject);
begin
  if query.Active then
    query.close;
  query.open; //получили твою картинку

  //сохраняем на диск С под именем Image с расширением JPEG
  TBlobField(query.FieldByName('I_Image')).SaveToFile('C:\Image.jpg'); 

  //открытие
  ShellExecute(0,'Open',PChar('C:\Image.jpg'),nil,nil,1);
end;

Как-то так.

[Skif1369]

Спасибо, буду пробывать сейчас

[Skif1369]

Сообщение от Ildar-tsr

В uses добавь Shellapi:

Код:

unit Unit1;
interface
uses
...,
Shellapi;

На форму кинуть ADOQuery (name - query).
Установить Connection, а в SQL внести запрос типа:

Код:

select I_Image from tbl_Image

потом обрабатываем (как пример на нажатие кнопки)

Код:

procedure TfmLinks.Button1Click(Sender: TObject);
begin
  if query.Active then
    query.close;
  query.open; //получили твою картинку

  //сохраняем на диск С под именем Image с расширением JPEG
  TBlobField(query.FieldByName('I_Image')).SaveToFile('C:\Image.jpg'); 

  //открытие
  ShellExecute(0,'Open',PChar('C:\Image.jpg'),nil,nil,1);
end;

Как-то так.

А без сохранения на диск это возможно?

[Ildar-tsr]

Сообщение от Skif1369

А без сохранения на диск это возможно?

Можно, но того не стоит (правда не стоит!). Если напрягает файл на жестком диске, то можно:
1. Хранить в папке с проектом универсальный рисунок, например, temp.jpg и все время его перезаписывать.
2. Можно на FormClose выполнять:

Код:

  try DeleteFile('C:\Image.jpg'); except end;

3. А можно и то и другое. В общем решать все равно тебе. Ищи наиболее оптимальные вариант именно для ТВОЕЙ задачи.

[Страдалецъ]

Странное какое-то решение предложено. Ну да ладно. Предложу альтернативу:
На форму помещаете TDBImage. Настраиваете его на отображение поля содержащего картинку. В секции uses добавляете модуль Jpeg.
Теперь вы можете просматривать картинки. А сохранение в файл тоже просто:

Код:

 DBImage1.Picture.SaveToFile('Image.jpg');

[Ildar-tsr]

Тут уже вопрос к автору темы, в каком виде он хочет свой рисунок увидеть.

P.S. Я наверно слишком буквально понял фразу "Мне необходимо этот файл потом из БД вытянуть и открыть его".