原创力文档- 1、本文档共5页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Udp数据接收端实现
Udp数据接收端实现
----Delphi实现
Lanno Ckeeke??????? LC2005052202
概要
此程序本想与上一篇实现的功能相同，代码是在delphi6编写。
正在装载数据…… 与Ｃ++程序相比，其发送端发送数据太快，在一个for循环中连续调用sendto２０次，则此程序将不能完全接收到数据。若在for循环中每发送一次数据后 sleep(200)，则此程序可以接收全部的数据。这就是ＵＤＰ数据传输的不可靠性吗？而Ｃ++程序（LC2005052201）则不会出现此现象。进一步考虑中。。。。。。
说明
所用到的函数与LC2005052201相同，可以参见上一篇文章。
窗体中一个Button用于启动程序进行必要的socket设置，并开始接收数据（处于阻塞状态）；一个EditBox用于显示接收数据的次数；一个ListBox用于显示已接收到的数据。
?
变量说明在代码中有详细的注释。
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
文档评论（0）