【结贴】officeControl 控件导入问题？**

dupit · 发表于 2008-9-8 17:29:26

officeControl 控件导入后，在窗体上放上该控件，保存时提示如下错误：

jiahaiming · 发表于 2008-9-8 17:37:22

控件没有注册。

dupit · 发表于 2008-9-8 17:43:36

注册了呀 regsvr32 OfficeControl.ocx

officeControl.ocx 控件要放到开发路径下面吗？

jiahaiming · 发表于 2008-9-8 18:15:32

做bpl包时，把tdbolecontrol所在单元也放进去。

dupit · 发表于 2008-9-9 09:47:18

加入tdbolecontrol单元，重新生成bpl 可以了。

顺便问下下面这段代码在delphi 中可以编译通过，在平台中报错，如何修改：
Var
DocData :OleVariant;
DocSize

ongInt;
  lBlobField: TBlobField;
  memStream : TMemoryStream;
begin
  TVarData(DocData).VType := varByRef or varByte;
  TVarData(DocData).VPointer := nil;

  memStream := TMemoryStream.Create;
  lBlobField := TBlobField(dsbRead.DataSet.FieldByName(Field));
  lBlobField.SaveToStream(memStream);

  DocSize := memStream.Size;
  if Not (DocSize = 0) then
  begin
TVarData(DocData).VPointer := AllocMem(DocSize);
memStream.Position := 0;
memStream.ReadBuffer(TVarData(DocData).VPointer,DocSize);
  end;
end;

memStream.ReadBuffer(TVarData(DocData).VPointer,DocSize);  报错

dupit · 发表于 2008-9-9 09:56:37

officeControl 控件在平台中一个属性或事件都调用不了，什么原因？

jiahaiming · 发表于 2008-9-9 10:09:57

怎么用不了？

dupit · 发表于 2008-9-9 10:24:22

6楼的没问题了，控件指定错了。

5楼的问题如何解决

zfang · 发表于 2008-9-9 10:26:28

操作指针了吧？平台不支持指针操作。

dupit · 发表于 2008-9-9 10:40:51

有什么其它方法可以变通呢？

想实现下面这个函数：
OfficeControl.OpenFromVariant

		自动登录	找回密码
密码			立即注册