您现在的位置:首页 >> 网络通讯 >> 网络通讯 >> 内容

Delphi中UDP数据接收端实现

时间:2011/9/3 15:14:09 点击:

  核心提示:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Di...
unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls,Winsock;
 
type
 TForm1 = class(TForm)
    Button2: TButton;    //开始接收数据
    ListBox1: TListBox; //将接收到的数据显示到列表中
    Edit1: TEdit;        //显示接收了多少次数据
    procedure Button2Click(Sender: TObject);
 private
    { Private declarations }
 public
    { Public declarations }
 end;
 
 procedure CheckRc(szErr : PChar);
 
var
 Form1: TForm1;
const
       DEFAULT_PORT = 5150;    //接收端口号
 DEFAULT_COUNT = 20;     //接收20次
 DEFAULT_BUFFER_LENGTH = 4096; //接收数据的最大缓冲区大小
var
       nPort : Integer = DEFAULT_PORT;
 dwCount : DWORD = DEFAULT_COUNT;
 dwLength : DWORD = DEFAULT_BUFFER_LENGTH ;
 szInterface : array[0..31] of char;
 
 wsd : WSAData; //保存初始化信息
 soRecv : TSOCKET; //接收数据的socket
 pszRecv: PChar;   //接收数据的缓冲区指针
 nRet : integer;
 i : integer;
 dwSenderSize : Integer;
 siSender,local : SOCKADDR_IN;
 nError : Integer;
 
implementation
 
{$R *.dfm}
procedure CheckRc(szErr : PChar);
begin
 MessageBox(0,szErr,'Error',MB_OK);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
       i: integer;
 nLastError : Integer;
 nNumOfRecv : Integer;
begin
       nNumOfRecv := 0;
 //初始化socket
       nError := WSAStartup(MakeWord(2,2),wsd);
 if Boolean(nError) then
     MessageBox(0,'WSAStartup','Error',MB_OK);
 //建立socket
 soRecv := socket(AF_INET,SOCK_DGRAM,0);
 if soRecv = SOCKET_ERROR then
 begin
     CheckRc('socket');
 end;
 
  //设置端口与地址
 local.sin_family := AF_INET;
 local.sin_port := htons(5150);
 local.sin_addr.S_addr := inet_addr('127.0.0.1');
  //将socket绑定地址
 nError := bind(soRecv,local,sizeof(local));
 if nError = SOCKET_ERROR then
     CheckRc('bind');
 //分配内存
 pszRecv := AllocMem(4096);
 
 for i := 0 to dwCount -1 do
 begin
     dwSenderSize := SizeOf(siSender);
    //接收发送过来的数据,并保存到缓冲区中
    nRet := recvFrom(soRecv,pszRecv[0],4096,0,siSender,dwSenderSize);
 
    if nRet = SOCKET_ERROR then
    begin
           CheckRc('recvFrom');
      break;
    end else if nRet = 0 then
           break
    else
    begin
           pszRecv[nRet] := #0;
      //添加到列表中,仅用于显示
      self.ListBox1.Items.Add(pszRecv);
    end;
    Inc(nNumOfRecv);
    self.Edit1.Text := IntToStr(nNumOfRecv);
 
 end; //end of for
 //关闭 socket
 closesocket(soRecv);
 //释放分配的内存
 FreeMem(pszRecv);
 //清理winsocket
 WSACleanup();
end;
 
end.

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号