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

zfang

5楼的代码跟OfficeControl没有关系啊。
看你代码是在操作Blob字段吧。
操作Blob字段的代码在论坛里有参考的，不一定非要用5楼的方式对指针做操作。

dupit

下面是OfficeControl 打开数据库文档的代码，在平台中如何实现？
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(ADOTable.FieldByName(Field));
  lBlobField.SaveToStream(memStream);

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

  if((Not (TVarData(DocData).VPointer = nil)) and
     (Not (DocSize = 0)) )then
  begin
    OfficeControl.OpenFromVariant(DocData,DocSize);
  end;

  //释放内存
  memStream.Free;
  if (Not (TVarData(DocData).VPointer = nil)) then
  begin
    FreeMem(TVarData(DocData).VPointer);
    TVarData(DocData).VPointer := nil;
  end;
end;

jiahaiming

DocSize := memStream.Size;
  if Not (DocSize = 0) then
  begin
    TVarData(DocData).VPointer := AllocMem(DocSize);
    memStream.Position := 0;
    memStream.Read(TVarData(DocData).VPointer^,DocSize);
  end;
把这段在delphi里封装成函数，作为第三方控件导入到平台中调用。

dupit

按楼上方法实现 ，结贴