oracle数据库,都不对~~
//从文档读
function Tfrmwdgl.Loadfromstream(AStream:TMemoryStream):hresult;
begin
with WebBrowser1 do
begin
if not Assigned(Document) then
begin
navigate('about:blank');
while readystate <> READYSTATE_COMPLETE do Forms.Application.ProcessMessages;
end;
AStream.seek(0, 0);
Result := (Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
end;
end;
//显示文档
procedure Tfrmwdgl.SpeedButton3Click(Sender: TObject);
var
ms:TmemoryStream;
bs:TClientBlobStream;
begin
try
ms:=TMemoryStream.Create;
bs:=TClientBlobStream.Create(bbl,bmRead);
ms.CopyFrom(bs,bs.size);
ms.Position:=0;
loadfromstream(ms);
finally
ms.free;
bs.free;
end;
end;