谁能告诉我如何找到啊?
这一操作不适用于封闭的数据库!!
procedure tfrm_bridge_gateway.myupdate;
var
ur:userarray;
i,n:Integer;
begin
if frm_main.ClientSocket1.Active then
begin ADODataSet_gateway.CreateDataSet;
ADODataSet_gateway.savetoFile('.\data\bridge.Dat'); text:='';
n:=0;
frm_main.ClientSocket1.Socket.SendText('#'+'6');
while text='' do
begin
text:=frm_main.ClientSocket1.Socket.ReceiveText;
end;
while (text<>'end') and frm_main.ClientSocket1.Active do
begin ur:=split(text,'|');
with ADODataSet_bridge do
begin
i:=0;
Append;
for i:=1 to 255 do
begin
if length(ur[i])=0 then break;
Fields[i].AsString:=ur[i];
end;
post;
end;
frm_main.ClientSocket1.Socket.SendText('null');
text:='';
while text='' do
begin
text:=frm_main.ClientSocket1.Socket.ReceiveText;
end;
end;
ADODataSet_bridge.savetoFile('.\data\bridge.Dat');
ADODataset_bridge.Close;
end;
end;
这一操作不适用于封闭的数据库!!
procedure tfrm_bridge_gateway.myupdate;
var
ur:userarray;
i,n:Integer;
begin
if frm_main.ClientSocket1.Active then
begin ADODataSet_gateway.CreateDataSet;
ADODataSet_gateway.savetoFile('.\data\bridge.Dat'); text:='';
n:=0;
frm_main.ClientSocket1.Socket.SendText('#'+'6');
while text='' do
begin
text:=frm_main.ClientSocket1.Socket.ReceiveText;
end;
while (text<>'end') and frm_main.ClientSocket1.Active do
begin ur:=split(text,'|');
with ADODataSet_bridge do
begin
i:=0;
Append;
for i:=1 to 255 do
begin
if length(ur[i])=0 then break;
Fields[i].AsString:=ur[i];
end;
post;
end;
frm_main.ClientSocket1.Socket.SendText('null');
text:='';
while text='' do
begin
text:=frm_main.ClientSocket1.Socket.ReceiveText;
end;
end;
ADODataSet_bridge.savetoFile('.\data\bridge.Dat');
ADODataset_bridge.Close;
end;
end;
解决方案 »
- 怎么样才能使开发的系统放在广域网中访问
- 求佳能数码相机的sdk开发包
- 做了个超市管理系统,SQL数据库,需要源码的请留下EMAIL.................
- 急!DateTimePicker1在win2000和win2003中的显示问题.
- 小菜一碟——我做的一个串口通讯的例子,送给大家,算元旦礼物吧!
- Delphi7中怎么做报表?Delphi7中好像没有QReport控件。
- 100 请教 !!! 程序运行时,动态增加组件,设置可以保存
- 请教高手winsock和DLL的问题 100分
- about query insert...
- 为什么调用TerminateProcess终止不了死循环进程?
- 如何利用adoquery把select查询的结果insert到一个表中
- 我是DELPHI新手,我的登录代码总是出问题,请各前辈门给我提示我哪里出错了!
var
ur:userarray;
...
ADODataSet_gateway.savetoFile('.\data\bridge.Dat');
gateway 为另外一个
这里应该是bridge