oracle 数据库blob类型存放Excel文件 如何以Excel形式显示出来
挂单表gd_struct中三个字段 ID integer,file_name varchar(100),file_excel blob。
file_name 存放EXCEL文件名；file_excel 存放EXCEL文件。点击 显示 按钮后，如何以EXCEL文件显示出来？
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);//保存文件
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('c:\1.xls');
str.Position:=0;
adoquery1.Append;
Tblobfield(adoquery1.FieldByName('fieldname')).loadfromstream(str);
try
adoquery1.Post;
finally
str.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);//读取文件
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(adoquery1.FieldByName('fieldname')).savetostream(str);
str.SaveToFile('c:\2.xls');
str.Free;
end;
