INDY组件中IdTcpClient怎么样监控指定的端口，一有数据进来，先触发什么事件？onwork
onworkbegin
onworkend
还是onstatus
onstatus,有几种status,不知怎么用，需要做一个tcp客户端按即定的通信方式通信。
比如收到字符"PA"开头的字符串时，我要记录和拆分收到的字符串。我现在用了一个time控件在
ontime事件中写接收的代码。
procedure Tfrm_wwwifc_main.Timer1Timer(Sender: TObject);
begin
if bitbtn8.Tag=1 then
if not busy then
begin
revbuf:=IdTCPClient1.ReadString(70);
if trim(revbuf)<>'' then
splil_billinfo(trim(revbuf));
end;
end;
每一秒钟运行一次，我连接后触发time的ontime后，程序就像死机了一样。请有经验的同志，帮助看看。谢谢。
onworkbegin
onworkend
还是onstatus
onstatus,有几种status,不知怎么用，需要做一个tcp客户端按即定的通信方式通信。
比如收到字符"PA"开头的字符串时，我要记录和拆分收到的字符串。我现在用了一个time控件在
ontime事件中写接收的代码。
procedure Tfrm_wwwifc_main.Timer1Timer(Sender: TObject);
begin
if bitbtn8.Tag=1 then
if not busy then
begin
revbuf:=IdTCPClient1.ReadString(70);
if trim(revbuf)<>'' then
splil_billinfo(trim(revbuf));
end;
end;
每一秒钟运行一次，我连接后触发time的ontime后，程序就像死机了一样。请有经验的同志，帮助看看。谢谢。
解决方案 »
- 我想Delphi调用一个BCB写的DLL
- 我想用进度条显示我的某段程序的执行情况。如何写代码
- 求购二手书
- Delphi2005里的DateTimePicker控件问题
- 请教高手
- 小型单机版商业软件该用哪种数据库? ....提出建议性答案者有分
- 急救！急救！
- 请问SQL SERVER中，字符串类型转换到整型的函数名是什么？？
- 请问做一个手机短消息发送系统需要了解一些啥,谁能提供点资料吗?
- 在线程中如何接收通过PostThreadMessage()发送的消息？
- 编程小混混有点不懂
- 导出Excel,单元格格式设置为字符串。自动换行。可是有一奇怪问题，当字符串特别多的时候，在Excel里就显示成了"#######",双击编程该单元
TCPClient.Host := EdtHost.Text;IdTCPClient.Port := StrToInt(EdtPort.Text);LbLog.Items.Add('正在连接 ' + EdtHost.Text + '...');with IdTCPClient dobegintryConnect(5000);tryLbLog.Items.Add(ReadLn());BtnConnect.Enabled := False;BtnSend.Enabled := True;BtnDisconnect.Enabled := True;exceptLbLog.Items.Add('远程主机无响应！');IdTCPClient.Disconnect();end;//end tryexceptLbLog.Items.Add('无法建立到' + EdtHost.Text + '的连接！');end;//end tryend;//end withend;
procedure TFormMain.BtnSendClick(Sender: TObject);beginLbLog.Items.Add('DATA ' + EdtData.Text);with IdTCPClient dobegintryWriteLn('DATA ' + EdtData.Text);LbLog.Items.Add(ReadLn())exceptLbLog.Items.Add('发送数据失败！');IdTCPClient.Disconnect();LbLog.Items.Add('同主机 ' + EdtHost.Text + ' 的连接已断开！');BtnConnect.Enabled := True;BtnSend.Enabled := False;BtnDisconnect.Enabled := False;end;//end tryend;//end withend;
procedure TFormMain.BtnDisconnectClick(Sender: TObject);varReceived: string;beginLbLog.Items.Add('QUIT');tryIdTCPClient.WriteLn('QUIT');finallyIdTCPClient.Disconnect();LbLog.Items.Add('同主机 ' + EdtHost.Text + ' 的连接已断开！');BtnConnect.Enabled := True;BtnSend.Enabled := False;BtnDisconnect.Enabled := False;end;//end tryend;
在“连接”按钮事件响应过程中，首先根据用户输入设置IdTCPClient的主机和端口，并调用IdTCPClient的Connect方法向服务器发出连接请求。然后调用ReadLn方法读取服务器应答数据。在“发送”按钮事件响应过程中，调用WriteLn方法写DATA命令，向服务器发送数据。在“断开”按钮事件响应过程中，向服务器发送QUIT命令，并调用Disconnect方法断开连接。程序中还包含有通信信息记录和异常处理的代码。服务器程序代码服务器程序片断如代码列表2所示。代码列表2procedure TFormMain.BtnStartClick(Sender: TObject);beginIdTCPServer.DefaultPort := StrToInt(EdtPort.Text);IdTCPServer.Active := True;BtnStart.Enabled := False;BtnStop.Enabled := True;LbLog.Items.Add('服务器已成功启动！');end;
procedure TFormMain.BtnStopClick(Sender: TObject);beginIdTCPServer.Active := False;BtnStart.Enabled := True;BtnStop.Enabled := False;LbLog.Items.Add('服务器已成功停止！');end;
procedure TFormMain.IdTCPServerConnect(AThread: TIdPeerThread);beginLbLog.Items.Add('来自主机 '+ AThread.Connection.Socket.Binding.PeerIP+ ' 的连接请求已被接纳！');AThread.Connection.WriteLn('100: 欢迎连接到简单TCP服务器！');end;
procedure TFormMain.IdTCPServerExecute(AThread: TIdPeerThread);varsCommand: string;beginwith AThread.Connection dobeginsCommand := ReadLn();FLogEntry := sCommand + ' 来自于主机 '+ AThread.Connection.Socket.Binding.PeerIP;AThread.Synchronize(AddLogEntry);if AnsiStartsText('DATA ', sCommand) thenbeginFReceived := RightStr(sCommand, Length(sCommand)-5);WriteLn('200: 数据接收成功！');AThread.Synchronize(DisplayData);endelse if SameText(sCommand, 'QUIT') then beginFLogEntry := '断开同主机 '+ AThread.Connection.Socket.Binding.PeerIP+ ' 的连接！';AThread.Synchronize(AddLogEntry);Disconnect;endelse beginWriteLn('500: 无法识别的命令！');FLogEntry := '无法识别命令：' + sCommand;AThread.Synchronize(AddLogEntry);end;//endifend;end;
procedure TFormMain.DisplayData();beginEdtData.Text := FReceived;end;
procedure TFormMain.AddLogEntry();beginLbLog.Items.Add(FLogEntry);end;
“启动”按钮设置IdTCPServer 的Active属性为True来启动服务器，“停止”按钮设置Active属性为False来关闭服务器。IdTCPServerConnect方法作为IdTCPServer 的OnCorrect事件响应过程，向客户端发送欢迎信息。OnCorrect事件在一个客户连接请求被接受时发生，为该连接创建的线程AThread被作为参数传递给IdTCPServerConnect方法。IdTCPServerExecute方法是IdTCPServer 的OnExecute事件响应过程。OnExecute事件在TIdPeerThread对象试图执行其Run方法时发生。OnExecute事件与通常的事件有所不同，其响应过程是在某个线程上下文中执行的，参数AThread就是调用它的线程。这一点很重要，它意味着可能有多个OnExecute事件响应过程被同时执行。在连接被断开或中断前，OnExecute事件响应过程会被反复执行。在IdTCPServerExecute方法中，首先读入一条指令，然后对指令进行判别。如果是DATA指令，就解出数据并显示它。如果收到的是QUIT指令，则断开连接。需要特别指出的是，由于IdTCPServerExecute方法在某一线程上下文中执行，因此显示数据和添加事件记录都是将相应的方法传递给Synchronize调用来完成的。运行程序运行客户端和服务器程序，按如下流程进行操作：1.按服务器程序的“启动”按钮启动服务器；2.按客户程序的“连接”按钮，建立同服务器的连接；3.在客户程序的待发送数据编辑框中输入“Hello, Indy!”，并按“发送”按钮发送数据；4.按客户程序的“断开”按钮，断开同服务器的连接；5.按服务器程序的“停止”按钮停止服务器。
每次在发送到服务器端后readln都有返回数据。但是服务器端会不定时的发数据过来。我不知道
怎么监听服务器端是否发了数据过来。idTCPclient，只有有限的以下事件：
onconnecting;onstatus;onwork;workbegin;workend;
没有onreving这样的事件，我怎么监听到服务有数据过来，再去缓冲区去读呀。我现在就是每隔一秒
读一次缓冲区，这样不行，程序会没有反应。请有经验的同志，说说经验，分不够再加。谢谢。
{------------------------------通讯客户端消息程-------------------------}
type
TClientMessageThread = class(TThread)
private
MsgCommand: string; //消息命令
procedure HandleMessage;
protected
procedure Execute; override;
end;
{---------------------------------------------------------------------}if not IdClient.Connected then
begin
// 如何获得主机IP和Port
IdClient.Host := Dm_send.ServerIP;
IdClient.Port := Dm_send.ServerPort;
try
IdClient.Connect(10000);
ClientThread := TClientMessageThread.Create(True);
ClientThread.FreeOnTerminate := True;
ClientThread.Resume;
except
on E: Exception do
begin
MessageDlg('连接服务器错误:' + #13 + E.Message, mtError, [mbOk], 0);
Application.Terminate;
end;
end;
endprocedure TClientMessageThread.Execute;
begin
try
while not Terminated do
begin
if not Fm_Main_Client.IdClient.Connected then
Terminate
else
try
MsgCommand := Fm_Main_Client.IdClient.ReadLn();
Synchronize(HandleMessage);
except
end;
end;
except
end;end;
procedure TClientMessageThread.HandleMessage;
var
MsgID: Integer;
begin
MsgID := StrToInt(Trim(Copy(MsgCommand, 1, 2)));
case MsgID of
0: ;
1: ;
end;
end;