不是很难,但没什么实在的意义,我以前就写过,给你个思路吧,用udp协议,tcp协议都可以实现,但
即时通讯么,用udp就行了fastnet下的umudp就可以实现一个简单的即时通讯
SRemoteHost:=EditIP.Text;
NMUDP1.RemoteHost := SRemoteHost; {远程主机}
NMUDP1.LocalPort:=Iport; {本地端口}
NMUDP1.RemotePort := Iport; {远程端口}
MySendTxt := EditMyTxt.Text;
MyStream := TMemoryStream.Create; {建立流}
try
if EditMyTxt.Text='' then
begin
Application.MessageBox('不能发送空信息!','提示',MB_ICONINFORMATION+MB_OK);
exit;
end;
MyStream.Write(MySendTxt[1], Length(EditMyTxt.Text));{写数据}
NMUDP1.SendStream(MyStream); {发送流}
finally
MyStream.Free; {释放流}
end;