D
dark_eagle
Unregistered / Unconfirmed
GUEST, unregistred user!
该例子中用协调对象调用数据对象的方法更新数据。
客户端:
ucoor:=comtsupdateobj.createremote(computername);
ucoor.updatepublishers(cdspublishers.delta,0,ierrorcount);
协调对象:
用dcomconnection连接数据对象,建立一个方法updatepublishers:
procedure tmtsupdateobj.updatepublishers(vdataslevariant;imaxerror:integer;var ierrorcount:integer);
begin
try
datamodule2.dcomcpublishers.appserver.updatedatas(vdatas,imaxerror,ierrorcount);/
setcomplete;
except
on e:exceptiondo
begin
showmessage(e.message);
setabort;
end;
end;
数据对象:
adoconnection+adoquery+datasetprovider ,数据库为sql7.0 的pubs,adoquery连接publishers数据表。
建一个updatedatas方法:
procedure tmtspublishersobj.updatedatas(vdataslevariant;imaxerror:integer;var ierrorcount:integer);
begin
try
dspublishers.applyupdate(vdatas,imaxerror,ierrorcount);
setcomplete;
except
on e:exceptiondo
begin
showmessage(e.message);
setabort;
end;
end;
协调对象没问题,在数据对象捕获的异常显示 invalid data packet(无效的数据封包)。
这个问题该如何解决? 谢谢!
客户端:
ucoor:=comtsupdateobj.createremote(computername);
ucoor.updatepublishers(cdspublishers.delta,0,ierrorcount);
协调对象:
用dcomconnection连接数据对象,建立一个方法updatepublishers:
procedure tmtsupdateobj.updatepublishers(vdataslevariant;imaxerror:integer;var ierrorcount:integer);
begin
try
datamodule2.dcomcpublishers.appserver.updatedatas(vdatas,imaxerror,ierrorcount);/
setcomplete;
except
on e:exceptiondo
begin
showmessage(e.message);
setabort;
end;
end;
数据对象:
adoconnection+adoquery+datasetprovider ,数据库为sql7.0 的pubs,adoquery连接publishers数据表。
建一个updatedatas方法:
procedure tmtspublishersobj.updatedatas(vdataslevariant;imaxerror:integer;var ierrorcount:integer);
begin
try
dspublishers.applyupdate(vdatas,imaxerror,ierrorcount);
setcomplete;
except
on e:exceptiondo
begin
showmessage(e.message);
setabort;
end;
end;
协调对象没问题,在数据对象捕获的异常显示 invalid data packet(无效的数据封包)。
这个问题该如何解决? 谢谢!