Загрузка Excel-файла из BLOB

function GetBLOBSFile(id : Integer) : String;
 
var
dxsprdsht1: TdxSpreadSheet;//компонент TdxSpreadSheet для открытия excel таблиц
begin
 
   with TOraStoredProc.Create(nil) do
   try
    StoredProcName := 'tp.PAC_BODY_OPER.ViewerBlob';
    PrepareSQL;
    ParamByName('in_id').Value:=id;
    ExecProc;
 
        ms := TMemoryStream.Create;
        ParamByName('OUT_DATE').AsOraBlob.SaveToStream(ms); //Сохранение файла из БД
         
         dxsprdsht1.LoadFromStream(ms); //загрузка из потока
   finally
     free;
   end;

ms := TMemoryStream.Create;
try
  ParamByName('OUT_DATE').AsOraBlob.SaveToStream(ms); //Сохранение файла из БД
  ms.Position := 0;
  dxsprdsht1.LoadFromStream(ms); //загрузка из потока
finally
  ms.free;
end;

ParamByName('OUT_DATE').AsOraBlob.SaveToStream(ms); //Сохранение файла из БД

procedure TForm2.N1Click(Sender: TObject);
var
id: Integer;
FilePath: String ;
F : file;
FN : string;
begin
        //Чтение данных из файла в динамический массив байтов.
        id:= 155046;
        FilePath:='D:\plstemp2.xls';
        FN := FilePath;
        AssignFile(F, Fn);
        Reset(F, 1); //Размер буфера записи = 1 байт
 
        Len := FileSize(F);
        SetLength(Arr, Len);
        BlockRead(F, Pointer(Arr)^, Len);
 
        CloseFile(F);
 
        //Копирование данных из массива в поток.
         ms := TMemoryStream.Create;
         ms.SetSize(Len);
         ms.Write(Pointer(Arr)^, Len);
         ms.Position := 0;
 
 
        dxsprdsht1.LoadFromStream(ms);

ms:=TFileStream.Create('D:\plstemp2.xls',fmOpenRead);
dxsprdsht1.LoadFromStream(ms);

procedure TForm1.btn1Click(Sender: TObject);
var
ms: TMemoryStream;
id :integer;
Filepath : string;
begin
   with TOraStoredProc.Create(nil) do
   try
    Options.AutoClose := true;
    StoredProcName := 'saprtp.PAC_BODY_OPER.ViewerBlob';
    PrepareSQL;
    ParamByName('in_id').Value:=155046;
    ExecProc;
            FilePath := 'D:\12345.xls';
            ms:= TMemoryStream.Create;
            ms.Position := 0;
            ParamByName('OUT_DATE').AsOraBlob.SaveToStream(ms); //Сохранение файла из БД
            ms.SaveToFile(FilePath);
            ms.Position := 0;
            dxsprdsht1.LoadFromStream(ms); //загрузка из потока
   finally
     ms.free;
     Free;
   end;
end;

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, ComObj, StdCtrls, ComCtrls;
 
type
  TForm4 = class(TForm)
    OleContainer1: TOleContainer;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
  wdApp, wdDocs, wdDoc : Variant;
implementation
 
{$R *.dfm}
 
procedure TForm4.FormShow(Sender: TObject);
var
  ev : OleVariant;
   i : Integer;
begin
  OleContainer1.CreateObject('Word.Application',False);
  OleContainer1.CreateObjectFromFile(
  ExtractFilePath(Application.ExeName)+'Помощь.doc',false);
 
  OleContainer1.DoVerb(ovOpen);
 
  // Проходим по всем тулбарам связанного с контейнером приложения
  // и устанавливаем всем невидимость, чтоб не мешали ...
  for i:=1 to OleContainer1.OleObject.CommandBars.Count do
  if OleContainer1.OleObject.CommandBars.Item[i].Visible then
  OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;
 
  ev := 2;
  OleContainer1.OleObject.Protect(ev);
end;
 
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  OleContainer1.DestroyObject;
end;
 
end.

var
  Xls: TMemoryStream;
begin
ADOTable1.Append;
TBlobField(ADOTable1.FieldByName('Xls')).LoadFromFile('H:\test.xls');
ADOTable1.Post;
ADOStoredProc1.Parameters.ParamByName('XlsID').Value := 3;
ADOStoredProc1.Open;
Xls := TMemoryStream.Create;
TBlobField(ADOStoredProc1.FieldByName('Xls')).SaveToStream(Xls);
Xls.Position := 0;
dxSpreadSheet1.LoadFromStream(Xls);
Xls.Free;
end;