源代码如此,obj为全局对象。出错:stream read errorprocedure Tdebug.ToolButton18Click(Sender: TObject);
var x:pointer;s:Tblobstream;y:integer;m:Tmemorystream;
begin
y:=obj.InstanceSize;
x:=@obj;
m:=Tmemorystream.Create;
with sysdm.vi do begin
edit;
s:=Tblobstream.create(Tblobfield(fieldbyname('vi_bin')),bmreadwrite);
m.ReadBuffer(x,y);
// fieldbyname('gentype').asinteger:=2;
post;
end;
m.free;
s.free;
end;
var x:pointer;s:Tblobstream;y:integer;m:Tmemorystream;
begin
y:=obj.InstanceSize;
x:=@obj;
m:=Tmemorystream.Create;
with sysdm.vi do begin
edit;
s:=Tblobstream.create(Tblobfield(fieldbyname('vi_bin')),bmreadwrite);
m.ReadBuffer(x,y);
// fieldbyname('gentype').asinteger:=2;
post;
end;
m.free;
s.free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货