STG_E_FILENOTFOUND = HRESULT($80030002);
{$EXTERNALSYM STG_E_FILENOTFOUND}
此错误代码代表文件未找到。另外再验证一下所用文件是否已在机器上被注册为一个对象。我在试验时,先在设计时由文件创建了一个对象,然后又由代码创建,没问题。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtnrs;type
TForm1 = class(TForm)
OleContainer1: TOleContainer;
OleContainer2: TOleContainer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer2.CreateObjectFromFile('c:\jing\电子讲稿.ppt',false);
end;end.
{$EXTERNALSYM STG_E_FILENOTFOUND}
此错误代码代表文件未找到。另外再验证一下所用文件是否已在机器上被注册为一个对象。我在试验时,先在设计时由文件创建了一个对象,然后又由代码创建,没问题。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtnrs;type
TForm1 = class(TForm)
OleContainer1: TOleContainer;
OleContainer2: TOleContainer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer2.CreateObjectFromFile('c:\jing\电子讲稿.ppt',false);
end;end.
解决方案 »
- 字符串的宽度
- canvas.textheight跟字体和字体大小有关吗?
- dbgrid和一个数据表相联,其中有一个字段为TDATETIME,我在DBGRID中修改时间,如果时间不正确43:00:00 ,会出错误,如何屏蔽这个错误呢
- 共同探讨研究菜单的高级应用技巧(进则有分)
- 打印时,数据不能刷新的问题
- 请问DsgnIntf.pas是什么控件里面的文件啊?
- 用SocketConnectin连接要配置吗?
- 有一个基础问题:关于TadoDateset的Displayformat
- 热心肠的大虾请进:)
- 如何判断结点在TTreeView处于第几级子层中?
- 如何判断 CAPSLOCK,MUMLOCK等键 的状态
- 如何在程序中控制设置ODBC数据源的用户数据源?
的新手,非常感谢!
procedure LoadFromStream(Stream: TStream);
procedure SaveToStream(Stream: TStream);
对于TBLOBFIELD,也有方法:
procedure LoadFromStream(Stream: TStream);
procedure SaveToStream(Stream: TStream);比如:
由BLOB中得到字段所存内容后,可将其转为流
var MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
Query1Images.SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;end;
也可从文件或由TOLECONTAINER的SAVETOSTREAM来产生流,然后由TBLOBFIELD读入
var FS: TFileStream;
begin
if not (Query1.State in [dsInsert, dsEdit]) then Query1.Insert;
FS := TFileStream.Create('c:\Windows\Winlogo.bmp', fmOpenRead);
try
Query1Images.LoadFromStream(FS);
finally
FS.Free;
end;
Query1.Post;end;