唉!闲着也是闲着!
在Form上加一个 tnmudp1,俩个port都为5558,Edit1,Edit2为udp,服务端ip,发送得信息,
加button1为发送!
procedure tform1.button1click();
var
tms:string;
tmarr
acked array [1..255] of char;
tml:word;
begin
setlength(tms,119);
tms:=trim(edit2.text);
if (tms='') then
begin
showmessage('No information!');
edit2.setfocus;
exit;
end;
if (trim(edit1.text)='') then
begin
showmessage('input server ip!');
edit2.setfocus;
exit;
end;
tml:=length(tms);
move(tms[1],tmarr[3],tml);//发送得字符
move(tml,tmarr[1],2);//字符串长度
nmudp1.remotehost:=trim(edit1.text);
nmudp1.sendbuffer(tmarr,sizeof(tmarr));
end;
procedure tform1.nmudp1datarecive();//就是接受事件,单词忘了
var
tmarr
acked array [1..255] of char;
tmp
char;
begin
fillchar(tmarr,length(tmarr),0);
nmudp1.readbuffer(TmArr[1],Recivedlength);//就是接受长度
tmp:=@tmarr[3]
showmessage('收到字符串:'+trim(string(tmp)));
end;
编译运行,在Edit1处输入服务端的IP地址,也可以是本机的IP,在Edit2处输入
要发送的信息,点Button1按钮即可。
若为两台电脑,可以互相输入对方的ip地址而改为聊天程序!