- 博客(3)
- 收藏
- 关注
RSS订阅原创 string与byte相互装换
procedure TMainForm.BtnSendClick(Sender: TObject);varstr1,str2:string;buf:array of byte;i:integer;beginstr1:=我们;setlength(buf,length(str1));//设置buf长度move(PChar(str1)^,buf[0],Length(Str1));for I := 0
2008-09-29 13:03:00
365
原创 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
447
原创 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
298
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人