socket问题！！！ ( 积分: 20 )

地现在用socket写程序。
服务断的返回是：serversocket1.Socket.Connections[id].SendText('*'+datetimetostr(now)+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！');

客户端的发送部分程序是： if fm_byfs<>nil then
if not fm_byfs.bsSkinButton1.Enabled then
begin
if fm_byfs.bsSkinListBox1.Items.Count>100 then
begin
for i:=0 to 99 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
for i:=99 downto 0 do
begin
fm_byfs.bsSkinListBox1.Items.Delete(i);
end;
end else
begin
if fm_byfs.bsSkinListBox1.Items.Count>0 then
begin
for i:=0 to fm_byfs.bsSkinListBox1.Items.Count-1 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
fm_byfs.bsSkinListBox1.Clear;
end;
accessed:=true;
end;
end;
end;
end;

现在的需求是将返回的那个手机号，写进客户端的数据库中，发送标志字段的值变为0，而发送成功的号码，发送标志为1，希望高手给出原代码！！！ 注意发送标志字段（fsbz）在这个程序里面没有，是我准备加的，希望高手指点一下，本人MSN:sun2001win@hotmail.com 小弟刚搞不久啊！！！

地现在用socket写程序。
服务断的返回是：serversocket1.Socket.Connections[id].SendText('*'+datetimetostr(now)+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！');

客户端的发送部分程序是： if fm_byfs<>nil then
if not fm_byfs.bsSkinButton1.Enabled then
begin
if fm_byfs.bsSkinListBox1.Items.Count>100 then
begin
for i:=0 to 99 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
for i:=99 downto 0 do
begin
fm_byfs.bsSkinListBox1.Items.Delete(i);
end;
end else
begin
if fm_byfs.bsSkinListBox1.Items.Count>0 then
begin
for i:=0 to fm_byfs.bsSkinListBox1.Items.Count-1 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
fm_byfs.bsSkinListBox1.Clear;
end;
accessed:=true;
end;
end;
end;
end;

现在的需求是将返回的那个手机号，写进客户端的数据库中，发送标志字段的值变为0，而发送成功的号码，发送标志为1，希望高手给出原代码！！！ 注意发送标志字段（fsbz）在这个程序里面没有，是我准备加的，希望高手指点一下，本人MSN:sun2001win@hotmail.com 小弟刚搞不久啊！！！