Question

Delphi idtcpserver/client 用法

请教各位Delphi中idtcpserver和idtcpclient的用法，直接给代码是不给分的哦。
请如下叙述：
服务器端：
1、设置端口
2、设置端口可用
3、创建线程类
4、在XX事件中监听接收？
客户端：
1、设置服务器IP
2、设置服务器端口
3、和服务器连接（Connected）
4、如何发送消息？（靠什么事件？）
貌似TCP/IP就这么连吧，我当中肯定少了很多东西，比如线程，在线程中接收数据什么的，这些步骤我都不知道。
直接给代码的话请加注释，无注释的代码不好看，而且我想知道的是编代码具体的步骤。
比如写delphi串口的话就是：
1、设置波特率
2、设置数据位
3、设置……（设置所有参数，记得是6个？）
4、在接收事件中写接收代码（ReceiveData事件）
PS:我用的是D7

Answer 1

1.IdTcpServer中有Connected和DisConnected事件,易于进行管理,而且当Client非正常关闭也可以用.
2.阻塞方式的通信方式虽然"笨"点,但当一个"笨"办法有效,那它就不是一个笨办法.
3.由于是Tcp方式的连接,可靠性高了很多,而且使得内网连接也可靠了许多.
一.关于组件的一般无错处理和应用
虽然IdTcpClient没有Execute事件,但可以用线程的办法解决,这个网上很多
TClientHandleThread = class(TThread)
private
servercmd:integer;
procedure HandleInput;
protected
procedure Execute; override;
end;
再在主窗口定义一全局变量
ClientHandleThread: TClientHandleThread;
两个过程:
procedure TClientHandleThread.Execute;
begin
while not Terminated do
begin
if not fmclient.cTcpC.Connected then
Terminate
else
try
servercmd:=fmclient.cTcpC.Socket.ReadInteger;
Synchronize(HandleInput);
except
end;
end;
end;
procedure TClientHandleThread.HandleInput;
begin
case servercmd of
....
else
end;
end;
在Client连接时创建线程
if ClientHandleThread<>nil then ClientHandleThread.Terminate;
try
ctcpc.Connect;
if ctcpc.Connected then begin
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
end;
except
ctcpc.Disconnect;
end;
在Client的DisConnected事件中释放线程
ClientHandleThread.Terminate;
IdTcpServer在还有Client连接时要断开可不是件容易事,网上对它也作了些讨论,但没什么结果,在本人的使用过程中,可以用以下方法解决
1.当然是释放所有Connection
一般在Server中都会用一个ListView来登记登录进来的Client,我是这样来释放的
i:=clist.Items.Count-1;
while i>=0 do begin
TIdContext(clist.Items[i].Data).Connection.Disconnect;
dec(i);
end;
try
ctcps.Contexts.UnlockList;
ctcps.Active:=false;
except
end;
2.后续无错处理
这样还没有完,因为一定会在DisConnected事件中有若干代码,而关闭不成功的主要原因我猜测不是来自于IdTcpServer本身,而是这些后续代码引起的.所以这步很有必要.
例如：
在Form的Close事件中让IdTcpServer.Tag=-1
在DisConnected中
If IdTcpServer.Tag<0 then exit;
1.Client对Server的数据传输
这个简单的很,基本上可以用一问一答的方式来作比方(阻塞方式的优点啊).
Client用Socket来喊话,它的Write方法很有意思,可以Write多种类型的数据,当然,都是定长或可以判断出长度的类型,而服务器的Execute事件就能用AContext.Connection.IOHandler的各种Read方法来读出相应的内容.
由于是阻塞状态,所以所有的操作都可以在一次Server的Execute事件中完成,哪怕是传输大文件.而在这个Execute的对话中,不会触发Client的监视线程!这个尤其重要.
2.Server对Client的数据传输
与其说是数据传输,事实上不如说是指令传输.这是在服务器主动的方式下进行的一次性指令传输.注意,与Client对Server交流不同,服务器的所有内容必须在这一次传输中进行完毕!也就是说,这次传输必须是：指令+数据大小+数据内容。

Answer 2

不需要创建线程，连接的时候已经带线程了。
type
PCClient=^TClient;
TClient=record
DNS: String[20];
LVData: Pointer;
Connected,
LastAciton : TDateTime;
Thread :Pointer;
end;

在Connection的事件里这么写
GetMem(NewClient, SizeOf(TClient));
NewClient.DNS := AThread.Connection.LocalName;
NewClient.LVData := lvUserList.Items.Item[lvUserList.Items.Count - 1].Data;
NewClient.Connected := Now;
NewClient.LastAciton := NewClient.Connected;
NewClient.Thread := AThread;
AThread.Data:=TObject(NewClient);
try
Clients.LockList.Add(NewClient);
finally
Clients.UnlockList;
AThread.Connection.WriteLn(WELCOME_STR);
end;

可以获得客户端列表

Answer 3

indy server低层代码已经有创建线程了，你可以省掉。client的话，你一定要自建一个线程。在那个线程里面定时地收，发数据。

indy一般是用线程，同步（即阻塞）的方式收发数据。
你要发数据，就调用发的过程，要收数据就调用收的过程。
跟据不同的协议类型，调用不同的函数。

设置端口地址的话，只是设属性而已。你摸一下就知道了。创建线程，你注意一下释放，和同其它线程的数据交互就行了。收发的话就是一个过程。
你找一下demo看一下就行了。