Добрый день всем.
Нужен совет.
В БД MSSQL есть таблица с полем Image.
В неё сохраняется файл отчета Crystal Reports при помощи:

Var fs : TFileStream;

begin
ADOQuer1.Close;
ADOQuer1.SQL.Clear;
ADOQuer1.SQL.ADD('insert into test (blob) values (:blob)');
fs :=TFileStream.Create('c:\report1.rpt',fmOpenRead or fmShareDenyWrite);
if fs <> nil then
begin
ADOQuer1.Parameters.ParamByName('blob').LoadFromStream(fs,ftBlob);
ADOQuer1.ExecSQL;
end;
fs.Free;
end;

Необходимо прочитать этот файл из БД и запустить через Crystal Report Engine API.
Как запустить файл я знаю, проблема в том, что я не знаю как его прочитать из БД и либо сохранить на диске а потом запустить либо запустить не сохраняя.

Подскажите что можно сделать.
Зарание спасибо.

что-то типа

(ADOQuery.fieldbyname('asdasas') as TBlobField).SaveToFile

Спасибо, я правда сделал немного по другому
в принципе работает.
Текст процедуры привожу ниже, возможно кому нибудь пригодится:

Var fs : TFileStream;
strim1 : TStream;

begin
ADOQuery1.Close;
ADOQuery1.SQL.Cleare;
ADOQuery1.SQL.Add('select blob from test where id = 2')
ADOQuery1.Open;
strim1 := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('blob'), bmRead);
fs := TFileStream.Create('c:\report1.rpt',fmCreate)
try
fs.CopyFrom(strim1,strim1.size);
finally
fs.Free;
end;
strim1.Free;
end;

Как-то ты очень сложно... Два потока...


ADOQuery.fields[1]
или
ADOQuery.fieldbyName('asdas')

Выдают результат в ввиде одного из потомков TField, для Blob полей в ввиде TBlobField. TBlobField - сам по себе уже имеет методы потоков SaveToFile, LoadFromFile, SaveToStream, LoadFromStream...