クライアントとサーバーの両方に tidudpserver を使用しています。以下は、指定されたサーバーとクライアントのコードです。
unit udp_server;
procedure TForm4.serverUDPRead(AThread: TIdUDPListenerThread;
AData: array of Byte; ABinding: TIdSocketHandle);
var
buffer:tbytes;
buffer2:tbytes;
i:integer;
ex_port:word;
i_ip,ex_ip:string;
t: string;
begin
ex_ip:=abinding.PeerIP; //public_ip
ex_port:=abinding.PeerPort; //public_port
//byte to string
setlength(i_ip,length(adata) div 2);
// extract private ip from array of byte
move(Adata[0],i_ip[1],length(adata));
// client profile {object of tclient }
user:=tclient.create(ex_ip,ex_port,i_ip,0,'');
//copying public and private endpoints to tclient object
setlength(buffer,sizeof(user));
move(user,buffer[0],sizeof(user)); // copying object to byte array
server.Sendbuffer(abinding.PeerIP,abinding.PeerPort,buffer);
// send client info to all connected clients(is this correct way of sending buffer(byte array)?)
end;
onudpread
これは、指定されたクライアント コードです。手順でサーバーから送信されたデータを読み取ることができません。バイト配列 (文字列と単語の型を含む) を読み取り可能なテキストに変換するにはどうすればよいですか?
unit udp_client;
procedure TForm4.server2UDPRead(AThread: TIdUDPListenerThread;
AData: array of Byte; ABinding: TIdSocketHandle);
var
dest:string;
user2:tclient;// i had a tclient class in a separate file
buffer:tbytes;
begin
setlength(dest,length(adata));
move(Adata[0],dest[1],length(adata)); // problem is over here ,is this correct?
end;
クライアントから送信されたプライベート IP
ip:=getipaddress; //call private ip function taken from (http://delphi.about.com/od/networking/l/aa103100a.htm)
setlength(i_ip,length(ip)*2);
move(ip[1],i_ip[0],length(i_ip));
server2.Sendbuffer('host',port,i_ip);
クライアントが情報(パブリック/プライベートIP/ポート)をサーバーに送信する必要があるため、UDPホールパンチングを実行したい.サーバーはクライアント情報を交換し、チャットできるはずです.データ配列がすべてのデータを受信しているため、混乱していますIPとテキストメッセージが混ざり合ってしまいますか?現在、中国語のようなゴミの値を受け取っています.