如何操作二进制流的字段

atiger

对于二进制流字段的赋值，说明如下，例如dsTarget是目标数据集代理，dsSource是源数据集代理，DataEditBlobOle是个表现类型为OLE字段的DataEdit。

1、实现Copy表二(Source)中当前记录的二进制流图片字段到表一(Target)中，代码如下：

dsTarget.DataSet.FieldByName('BlobPic').Assign
(dsSource.DataSet.FieldByName('BlobPic'));

2、实现通过OpenPictureDialog选择一个图片文件，并保存到表一(Target)的二进制流图片字段中，代码如下：

TBlobField(dsTarget.DataSet.FieldByName('BlobPic')).
LoadFromFile(OpenPictureDialog.FileName);

3、实现Copy表二(Source)中当前记录的二进制流OLE字段到表一(Target)中，代码如下：

dsTarget.DataSet.FieldByName('BlobOLE').Assign
(dsSource.DataSet.FieldByName('BlobOLE'));

4、实现通过OpenDialog选择一个OLE文件，并保存到表一(Target)的二进制流OLE字段中，代码如下：

TOleContainer(CZEJZLZDSLYWXX.TEJZLB1JLST(DocView1.Doc).
DataEditBolbOLE.InplaceControl).
CreateObjectFromFile(OpenDialog.FileName, False);

5、实现通过操作系统对话框，为OLE字段赋值，代码如下：

TOleContainer(CZEJZLZDSLYWXX.TEJZLB1JLST(DocView1.Doc).
DataEditBolbOLE.InplaceControl).InsertObjectDialog

john

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;

alang

把表现类型为OLE的字段保存下来，用
TOleContainer(CZEJZLZDSLYWXX.TEJZLB1JLST(DocView1.Doc).
DataEditBolbOLE.InplaceControl).SaveAsDocument(FileName: String)