首先我把UDP無(wú)連接協(xié)議的套接字調(diào)用時(shí)序圖表示出來(lái)

在我把在Delphi中使用UDP協(xié)議實(shí)現(xiàn)數(shù)據(jù)通訊收發(fā)的實(shí)現(xiàn)方法總結(jié)如下:

例子描述:下面例子是我的一個(gè)實(shí)際設(shè)備通訊的例子,使用UDP協(xié)議在4660端口上發(fā)送'F1,00'(16進(jìn)制,2個(gè)字節(jié)),在同一個(gè)端口上接收到'F1,00,00,00,00,00'((16進(jìn)制,2個(gè)字節(jié)))

1.使用底層函數(shù)來(lái)實(shí)現(xiàn)

procedure TForm1.FormCreate(Sender: TObject);
var
WSAData:TWSAData;
begin
edtHost.Text:=192.168.1.222';
edtPort.Text:='4660';
//1.初始化Winsock
if (WSAStartup(MAKEWORD(2,0),WSAData)<>0) then
begin
//初始化失敗
memInfo.Lines.Add('Winsock Init Failed');
exit;
end
else
memInfo.Lines.Add('Socket Start');
end;
procedure TForm1.btnFingerClick(Sender: TObject);
var
Info:string;
BufSend,BufRecv:array[0..1024] of byte;
skt:TSOCKET;
addr:TSockAddr;
Re:Integer;
S:String;
i:Integer;
begin

//=====================數(shù)據(jù)發(fā)送=========================================
//2.建立socket
skt:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
if(skt=INVALID_SOCKET)then
begin
memInfo.Lines.Add('Error:Create socket failed!');
exit;
end;
//3.連接主機(jī)
ZeroMemory(@addr,sizeof(addr));
addr.sin_family :=AF_INET;
addr.sin_addr.s_addr :=inet_addr('192.168.1.222');
addr.sin_port:=htons(4660);
Re := connect(skt,addr,sizeof(addr));
if(Re<>0)then
begin
memInfo.Lines.Add('Connect to server failed');
exit;
end;
//4.發(fā)送信息
BufSend[0]:=$F1;
BufSend[1]:=0;
Re:=send(skt,BufSend,2,0);
if(Re=SOCKET_ERROR)then
begin
memInfo.Lines.Add('Send Data Failed');
exit;
end;
//6.關(guān)閉socket
closesocket(skt);
//=============接收數(shù)據(jù)的==================================

//2.建立socket
skt:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
if(skt=INVALID_SOCKET)then
begin
memInfo.Lines.Add('Error:Create socket failed!');
exit;
end;
//3.綁定主機(jī)
ZeroMemory(@addr,sizeof(addr));
addr.sin_family :=AF_INET;
addr.sin_addr.s_addr :=inet_addr('192.168.1.106');
addr.sin_port:=htons(4660);
Re := Bind(skt,addr,sizeof(addr));
if(Re<>0)then
begin
memInfo.Lines.Add('Connect to server failed');
exit;
end;
//4.接收信息
Re:=Recv(skt,BufRecv,6,0);
if(Re=SOCKET_ERROR)then
begin
memInfo.Lines.Add('Send Data Failed');
exit;
end
else
begin
S:='';
for i:=0 to Re-1 do
begin
S:=S+IntToHex(Integer(BufRecv[i]),2);
end;
memInfo.Lines.Add(S);
end;
//6.關(guān)閉socket
closesocket(skt);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
//6.釋放Winsock
WSACleanUP();
end;

2.使用TUDPSocket組件實(shí)現(xiàn)

TUDPSocket組件是繼承于TCustomIPClient的。它被設(shè)計(jì)為只能當(dāng)作一個(gè)客戶端來(lái)用

所以它是不能直接用來(lái)接收數(shù)據(jù)的,要是實(shí)現(xiàn)接收必須另外定義一個(gè)接收的TIPSocket,重新綁定接口.

type
TForm2 = class(TForm)
UdpSocket1: TUdpSocket;
Button1: TButton;
UdpSocket2: TUdpSocket;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
aUDPServer:TIPSocket;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
addr:sockAddr_In;
begin
UdpSocket1.RemoteHost:='192.168.1.222';
UdpSocket1.RemotePort:='4660';
UdpSocket1.Open ;

aUDPServer:=TIPSocket.Create(nil);
aUDPServer.RemoteHost:='192.168.1.222';
aUDPServer.RemotePort:='4660';
aUDPServer.LocalHost:=aUDPServer.LocalHostName;
aUDPServer.LocalPort:='4660';
aUDPServer.Protocol:=IPPROTO_UDP;
aUDPServer.SockType:=stDgram;
aUDPServer.Active:=true;
addr:=aUDPServer.GetSocketAddr(aUDPServer.LocalHost,aUDPServer.LocalPort);
bind(aUDPServer.Handle,addr,sizeof(addr));

end;

procedure TForm2.Button1Click(Sender: TObject);
var
ReceivedString:string;
Buff:array[0..1] of byte;
RevBuf:array[0..1024] of byte;
RevSize:Integer;
i:Integer;
S:string;
ToAddr:sockAddr_In;
Len:integer;
a:in_Addr;
begin
Buff[0]:=$F1;
Buff[1]:=0;
UdpSocket1.SendBuf(Buff,2);
ToAddr:=UdpSocket2.GetSocketAddr(UdpSocket2.LocalHost,UdpSocket2.LocalPort);
bind(UdpSocket2.Handle,ToAddr,sizeof(ToAddr));
RevSize:=UdpSocket2.ReceiveBuf(RevBuf,6) ;
S:='';
for i:=0 to RevSize-1 do
begin
S:=S+IntToHex(Integer(RevBuf[i]),2);
end;
ShowMessage(S);
end;
3.使用TIdUDPClient組件實(shí)現(xiàn)

TIdUDPClient組件中重新綁定了一個(gè)Socket,用來(lái)專門接收數(shù)據(jù),所以本身一個(gè)組件就可以實(shí)現(xiàn)接收

procedure TForm1.Button1Click(Sender: TObject);
var
ReceivedString:string;
Buff:array[0..1] of byte;
RevBuf:array[0..1024] of byte;
RevSize:Integer;
i:Integer;
S:string;
begin
Buff[0]:=$F1;
Buff[1]:=0;
IdUDPClient1.SendBuffer(Buff,2);
RevSize:=IdUDPClient1.Binding.Recv(RevBuf,6,0);
S:='';
for i:=0 to RevSize-1 do
begin
S:=S+IntToHex(Integer(RevBuf[i]),2);
end;
ShowMessage(S);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPClient1.Host:='192.168.1.222';
IdUDPClient1.Binding.Port:=4660;
IdUDPClient1.Binding.Bind;
IdUDPClient1.Active:=True;

end;
3.使用TNMUDP組件實(shí)現(xiàn)

這里我發(fā)現(xiàn)在第一次運(yùn)行時(shí),要連續(xù)按兩次按鈕,才能收到數(shù)據(jù)

procedure TForm1.BitBtn2Click(Sender: TObject);
var
Buf:array[0..1] of char;
RevBuf :array[0..1024] of char;
ss:string;
i:integer;
Len:Integer;
begin

Buf[0]:=char($F1);
Buf[1]:=char(0);
NMUDP1.SendBuffer(Buf[0],2);
NMUDP1.ReadBuffer(RevBuf[0],Len);
if Len>0 then
begin
ss:='';
for i:=1 to Len do
begin
ss:=ss + intToHex(integer(RevBuf[i]),2);
end;
ShowMessage(ss);
end;

end;

轉(zhuǎn)載于:https://www.cnblogs.com/MaxWoods/archive/2010/07/10/1774936.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎(jiǎng)勵(lì)來(lái)咯，堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎(jiǎng)

總結(jié)

以上是生活随笔為你收集整理的在Delphi中关于UDP协议的实现的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。