【结贴】EDContent怎么定义的？编译不过

didi0225

http://bbs.justep.com/forum.php?mod=viewthread&tid=1951 中

No.2  导入文档之后，如何保存到字段中
var
  lOle:TOleContainer;
begin
    lOle := (EDContent.InplaceControl) as TOleContainer;
    if lOle.InsertObjectDialog then
    begin
        StreamSaveToField(dsbOATpgroup.DataSet.FieldByName('OASendtpcontent'),lOle);
    end;
//  if  DLGLoaddoc.Execute then
//     lOle.CreateObjectFromFile(DLGLoaddoc.FileName, False);
end;


static procedure TOARsgroup.StreamSaveToField(AField:TDataField;AOle:TOleContainer);
var
  lStream: TMemoryStream;
begin
  lStream := TMemoryStream.Create;
  try
    AOle.AllowInPlace := True;
    AOle.SaveToStream(lStream);
    if  not AField.DataSet.Active then AField.DataSet.Open;
    AField.DataSet.Edit;
    TBlobField(AField).LoadFromStream(lStream);
    AField.DataSet.Post;
  finally
    lStream.Free;
  end;
end;


lOle := (EDContent.InplaceControl) as TOleContainer;中的EDContent是什么？

zfang

EDContent是一个dataedit。

didi0225

OK了