请问有人知道为什么SQLsever数据库中为什么在同一时刻会一下存几十组一样的数吗?
解决方案 »
- delphi 在线聊天系统-------------------------------------------------------------------
- 问一个关于TClientDataSet的问题,问什么我在open一次,是它会向服务器发送2次请求
- access的动态链接
- 怎么知道其它程序的窗口是不是最大化了?
- 怎样把sql语句的执行结果放到变量里?
- ControlBar的问题
- 我想问问哪里有InstallShield Express Custom Edition for Delphi 6 下载哟?
- MTS/COM+做中间层,用客户端调用,提示出错:必须加载一个DLL
- 如何做不则的FORM如解霸的皮肤一样?
- delphi中怎样将excel文件转换成pdf文件啊
- delphi 怎么将RzLisBox控件中得内容保存到目录下的mingzi.txt两段中?
- 深圳海博软件这公司怎么样?
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
aaa:integer;
i:integer; sy:string;
files:textfile;
str: string; //MSComm1.InputMode = comInputModeText
cF:textfile;
sqlstr:string;
m,l,x:integer;
doThread1:TserialdoThread;
aa:integer;begin
aaa:=Socket.ReceiveLength;
try
StatusBar1.Panels[2].Text:='';
StatusBar1.Panels[1].Text:='客户端:' + ' Ip=' + Socket.RemoteAddress + ' ' + datetimetostr(now)+'';
sy:=Socket.ReceiveText;
for i:=0 to(aaa-1) do
begin
shuzu[i]:=copy(sy,i+1,1);
end;
for i:=aaa to (aaa+7) do
begin
shuzu[i]:='F';
end;
except
StatusBar1.Panels[2].Text:=datetimetostr(now) + ' :程序异常';
end;
doThread1:= TserialdoThread.Create(true);
doThread1.Resume;end;