сохранение blob на диск

[eldalex]

Доброго времени суток всем!
такой вопрос. есть бд Oracle есть программа которая с ней общается. к программе можно подключать bplки с макросами и вызывать их с параметрами. вопрос в следующем. в бд есть таблица с blob полем (картинка). программой мы можем получить это поле, но не можем его сохранить(не хватает стандартного функционала), как следствие необходимо дописать bpl который макросом будет сохранять переданный ему blob на диск.( грубо говоря, пришла переменная с blobом, мы ее приняли и сохранили на диск) никогда с таким не сталкивался, поэтому не знаю даже с чего начать... может кто подскажет где почитать или пример поглядеть...

[Stilet]

необходимо дописать bpl

Исходники этой библиотеки у тебя есть?
Если нет то... Напряги Оракл PLSQL или на его встроенной яве вытаскивай из поля в файл.

[eldalex]

ораклом можно сохранить на диск, но только на диск сервера... а нужно на диск клиента...

есть пример создания макроса
Пример макроса "TEST_MACRO", который выводит все переданные ему параметры.

1. test_unit.pas

unit test_unit;
interface
implementation
uses MacroMngr, Dialogs, icCommon, SysUtils, Forms, Controls;
procedure TestMacroProc (MName:string; AParams:TObject);
var wPrm:TmParams;
begin
  wPrm:=AParams as TmParams;
  showmessage('Вызван макрос '+MName+' с параметрами:'#10+wPrm.Text);
end;
initialization
  RegisterMacro ('TEST_MACRO',@TestMacroProc);
finalization
  UnregisterMacro ('TEST_MACRO',@TestMacroProc);
end.

2. test.dpk

package test;
{$R *.RES}
{$ALIGN ON}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $00400000}
{$DESCRIPTION 'Тест'}
{$IMPLICITBUILD ON}
requires
  rtl4;
contains
  test_unit;
end.

потом все это компилится и подключается к базе. все в принципе понятно, приходят параметры. их можно потрогать, и обработать. вопрос в том, как обработать blob чтоб сделать из него image?

[Stilet]

но только на диск сервера

Ну насколько я знаю можно передать координаты клиента, и если сервер оракла под администратором запущен, то на диск клиента он подключится сможет, но ты прав, идея не самая лучшая.

Вопрос в том как эти поля получаются. Может ли твой макрос увидеть компонент, работающий с данными из BLOB?

В принципе можно попробовать обратится к компоненту уже после загрузки картинки. Если это TImage и находится он на форме некой, можно попробовать описать Form1.Image. и обратится к его методам, либо же попробовать через FindVCL найти этот компонент на форме.

Однако я бы лучше либо переписал программу, либо к автору обратился. ИМХО с плагинами в таком случае дело иметь опасно.

[eldalex]

программу переписать не получится, все изменения вносятся как раз такими bplями во избежании краха всей системы иногда конечно правятся и основные модули, которые тоже такие же bpl, но редко...
к компоненту обратиться не получится, ибо его как такового нет. картинка нигде не отображается. данные будут выбираться селектом в курсор и на каждую строку курсора будет вызываться этот макрос, параметрами будет передаваться поле курсора (blob) и имя файла... ладно, будем думать

[Stilet]

Допустим. А сам запрос тебе известен?
В Макросе можно описать свое ADOQuery, запросить это BLOB поле, и получив его сохранить - это тупость, но раз такой случай может пройти.

[eldalex]

сам запрос известен select * from dent_tmp_teeth вернет 32 записи вида image, name.
нашел такое вот в нете:

В данном примере, объект Table1Bitmap типа TBLOBField - BLOB-поле таблицы dBASE. Данный TBLOBField-объекты был создан с помощью редактора полей (Fields Editor). Если редактор полей для создания TFields для полей таблицы не используется, получить доступ к полям можно с помощью метода FieldByName или свойства Fields, оба они являются членами компонентов TTable или TQuery. В случае ссылки на BLOB-поле таблицы с помощью одного из приведенных членов, перед использованием метода Assign указатель на поле должен быть прежде приведен к типу объекта TBLOBField. Для примера:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(TBLOBField(Table1.Fields[1]));
end;

я правильно понял что мы тут в Image запихиваем blob поле таблицы?
как думаете, проканает если прописать img: TImage. создать и сделать то же самое только вместо поля запихать параметр?
блин,проверить не могу компилятор не настроен
но если чисто теоретически смотреть на вопрос?

[Stilet]

я правильно понял что мы тут в Image запихиваем blob поле таблицы?

Фактически да, но в твоем случае (как я понял) у тебя нет доступа к Image программы, куда пишется картинка из поля.

Раз тебе известен запрос, то выполни его:

var ado:TADOQuery;  i:integer;
begin
 ado:=TADOQuery.Create(nil);
 ado.ConnectionString:=ConnectString;
 ado.SQL.Text:='select image from dent_tmp_teeth where name='Чему-то'';
 ado.Open;
 if not ado.Eof then begin
  TBLOBField(ado.Fields[0].AsBlob).SaveToFil('Имя Файла');
 end;
 ado.Close;
 ado.Free;

Запихнув в эти свои макросы. И пусть несмотря на то что там творится в программе, макрос отдельным персональным запросом получит свою порцию никотина )
Оно конечно быдлокодерство, но... Я лично другого в твоей ситуации при таких условиях не вижу.

[eldalex]

спасибо, сегодня с новыми силами попробую ченить сваять если получится, то отпишу сюда как сделал, вдруг кому понадобится

[Stilet]

Океюшки. Кстати у мя подобная проблема - я плюнул на эти навороты, решил заново старые проекты переписать, дешевле выйдет.