编译报错**

Jsun2007

procedure TMainForm.Button3Click(Sender: TObject);
VAR
NS,OS: TMemoryStream;
begin
NS := TMemoryStream.Create;
         DataSetBZSJJ1.open;
         TBlobField(DataSetBZSJJ1.FieldbyName('FILES')).SaveToStream(NS);
         NS.Position :=12;
         OS := OS.CopyFrom(NS,NS.Size-12);//这里报错
         OleContainer1.LoadFromStream(OS);
end;

报错如下：
[错误]Biz:\SCZYCX\FUNC\CS\WORDWDCQ.FUNC.DIR\MainForm.Form.pas(122, 19): Incompatible types: "TMemoryStream" and "Int64"

Jsun2007

up

Jsun2007

怎么没人说话

zfang

类型不匹配阿

zfang

OS 是TMemoryStream
OS.CopyFrom是Int64
当然就编译报错了