如何得到Blob字段的值并显示(100分)

  • 主题发起人 主题发起人 卷发
  • 开始时间 开始时间

卷发

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用的是OLE控件,希望能读出Oracle中BLOB字段的值,并用WORD文档的形式
显示,但绝大多数得到的结果是“筛选程序运行正忙!”
 
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName = '' then Exit;
FileName := OpenDialog1.FileName;
Mem := TMemoryStream.Create;
Mem.LoadFromFile(FileName);
Mem.Seek(0,soFromBeginning);
Query1.Close;
Query1.DatabaseName := 'D:/BLOB';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUES(:NAME,:FILENAMES)');
Query1.ParamByName('Name').AsString := FileName;
Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob);
Query1.ExecSQL;
Mem.Free;
end;
 
接受答案了.
 
thtfsyh:
你只给了INSERT的方法,怎样用SQL把BLOB读出来呢?
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部