Работа с Blob - Можно ли как то выгрузить картинку из DBImage в БД?

[Ericnex]

В таблицу Оптовый магазин добавьте поле Вывеска магазина содержащее файлы формата *.bmp

Делаю как то так.
Это для загрузки

procedure TForm1.Button9Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
DM.Query2.Insert;
DM.Query2.ParamByName('Fotomag').LoadFromFile(OpenPictureDialog1.FileName,ftBlob);
DM.Query2.Post;
end;
end;
Это для сохранения
procedure TForm1.Button10Click(Sender: TObject);
begin
if SaveDialog1.Execute then
DM.Query2.ParamByName('FotoMag').Value.SavetoFile(Savedialog1.FileName+'.bmp');
end;
end.

Впоследствии не удается добавить файл. В чем может быть ошибка.
Можно ли как то выгрузить картинку из DBImage в БД?

[artemavd]

Можно ли как то выгрузить картинку из DBImage в БД?

Из DBImage конкретно нельзя. Можно загрузить в БД из Image. Какая СУБД? Paradox чтоли? Проблема именно с выгрузкой из BLOB поля в файл?

[Ericnex]

СУБД клиент-серверная InterBase. Проблема с загрузкой изображения в БД.

[artemavd]

Я не знаю точно как будет это в Interbase. Приведу пример как я делаю в Firebird (работает). Наверное в Interbase аналогично будет:

if Form1.sOpenPictureDialog1.Execute then
begin
 Form1.sLabel1.Caption:=Form1.sOpenPictureDialog1.FileName;
Form1.pFIBQuery1.Close;
Form1.pFIBQuery1.SQL.Clear;
Form1.pFIBQuery1.SQL.Text:='INSERT INTO T_TABLE(BLOB_POLE) VALUES(:BP)';
Form1.pFIBQuery1.ParamByName('BP').Value:=Form1.sLabel1.Caption;
Form1.pFIBQuery1.ExecQuery;
Form1.pFIBQuery1.Transaction.Commit;
end;

Писал прямо на форуме, возможно где-то ошибся в словах. У меня все работает.

[Ericnex]

Не совсем работает: особенно в отношении этого
Form1.pFIBQuery1.ExecQuery;
Form1.pFIBQuery1.Transaction.Commit ;

У меня программа не понимает этих методов.

[artemavd]

У меня программа не понимает этих методов.

Эти методы есть у компонентов FIBPlus.
Приведи полностью код, в котором ты пытаешься добавить картинку в БД.

[Ericnex]

Примерно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.SQL.Clear;
  Query1.SQL.Add('insert into tNoutBook (Image) values ( :Image)');
  Query1.ParamByName('Image').LoadFromFile(OpenPictureDialog1.FileName,ftBlob);
  Query1.ExecSQL;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from tNoutBook');
  Query1.Open;
end;

Обработчик события кнопки «Загрузить картинку»:

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

[artemavd]

Зеленым - почему нет этого в коде
Красным - зачем это?

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.SQL.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('insert into tNoutBook (Image) values ( :Image)');
  Query1.ParamByName('Image').LoadFromFile(OpenPictureDialog1.FileName,ftBlob);
  Query1.ExecSQL;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from tNoutBook');
  Query1.Open;
end;

[Аватар]

Красным - зачем это?

Потому, что используется BDE. И завершить транзакцию наверно нужно Database.Commit после ExecSQL. При условии, что InterBase в этом смысле подобен FireBird. Close после ExecSQL не нужен. А для отображения лучше использовать другой TQuery. И зачем BDE для InterBase? IB-компонент в дельфи полно

[artemavd]

Потому, что используется BDE

Ааа....тогда с пас. Я с этим старьем не работал уже давно ))