indy10
xusb2008
这个作者很懒,什么都没留下…
展开
-
TIdTcp组件的连接
客户端的连接 procedure TMainForm.BtnconClick(Sender: TObject); var TmpIni:TIniFile; filename: string; tmpbyte:TIdBytes; begin if Btncon.Caption=连接 then begin filename:=ExtractFilePath(paramstr原创 2008-06-08 23:07:00 · 313 阅读 · 0 评论 -
udp的字符传输
客户端发送 procedure TMainForm.BitBtn2Click(Sender: TObject);beginidudpclient1.Host:=127.0.0.1;idudpclient1.Port:=9002;idudpclient1.Send(aaaaa);idudpclient1.Disconnect;end; procedure 服务器端的监听与接受 TMainFo原创 2008-06-08 23:29:00 · 456 阅读 · 0 评论