用Delphi写的最简单的winsock程序

我把socket编程教程的第一个例子改写了一下
　　服务器接受客户信息,再反送回去
　　
　　实际上是直接调用win api
　　在delphi4下用命令行编译
　　dcc32 -cc server1.pas
　　用windows自带的telnet测试
　　
　　server1.pas:
　　program server1;
　　
　　uses windows,winsock;
　　
　　const myport=1414;//预定义口
　　
　　{type
　　　sockaddr_in = record
　　case Integer of
　　　0: (sin_family: u_short;
　　　sin_port: u_short;
　　　sin_addr: TInAddr;
　　　sin_zero: array[0..7] of Char);
　　　1: (sa_family: u_short;
　　　sa_data: array[0..13] of Char)
　　　end;
　　　TSockAddrIn = sockaddr_in;
　　　PSOCKADDR = ^TSockAddr;
　　　TSockAddr = sockaddr_in;
　　
　　　WSAData = record // !!! also WSDATA
　　wVersion: Word;
　　wHighVersion: Word;
　　szDescription: array[0..WSADESCRIPTION_LEN] of Char;
　　szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
　　iMaxSockets: Word;
　　iMaxUdpDg: Word;
　　lpVendorInfo: PChar;
　　　end;
　　　TWSAData = WSAData;
　　
　　end
　　}
　　
　　var str:string;
　　s,ns:TSocket;//type:u_int|integer;
　　ver:word;
　　rece:TWSAData;//type:WSAData;
　　wsstatus:integer;//winsocket_status;
　　i,pktlen:integer;
　　szd:array[0..WSADESCRIPTION_LEN] of Char;
　　szs:array[0..WSASYS_STATUS_LEN] of Char;
　　server:TSockAddr;//tpye:sockaddr_in
　　client:PSockAddr;//type:^sockaddr_in
　　namelen:PInteger;//type:^Integer;
　　buf:array[0..1023] of char;
　　
　　begin
　　ver:=514;
　　write('WSAStartup = ');
　　try
　　wsstatus:=WSAStartup(ver,rece);
　　//初始化winsock;在windows下是必须的过程
　　writeln(wsstatus);//winsock状态,0代表成功
　　if wsstatus=0 then
　　begin
　　writeln;
　　writeln('********************************************************************************');
　　//以下显示winsock状态
　　write('wVersion = ');
　　writeln(rece.wVersion);
　　write('wHighVersion = ');
　　writeln(rece.wHighVersion);
　　write('iMaxSockets = ');
　　writeln(rece.iMaxSockets);
　　write('iMaxUdpDg = ');
　　writeln(rece.iMaxUdpDg);
　　writeln('szDescription is ');
　　for i:=0 to WSADESCRIPTION_LEN do write(szd[i]);
　　writeln;
　　writeln('szSystemStatus is ');
　　for i:=0 to WSASYS_STATUS_LEN do write(szs[i]);
　　writeln;
　　writeln('********************************************************************************');
　　end;
　　
　　write('socket = ');
　　s:=socket(AF_INET,SOCK_STREAM,0);
　　//第一步,建立服务器的socket,0表示成功
　　writeln(s);
　　if s<0 then exit;
　　
　　write('bind = ');
　　server.sin_family := AF_INET;
　　server.sin_port := htons(myport);
　　server.sin_addr.s_addr := INADDR_ANY;
　　wsstatus:=bind(s,server,sizeof(server));
　　//第二步,绑定,0表示成功
　　writeln(wsstatus);
　　if wsstatus<>0 then exit;
　　
　　write('listen = ');
　　wsstatus:=listen(s,5);
　　//第三步,监听
　　writeln(wsstatus);
　　if wsstatus<>0 then exit;
　　
　　write('accept = ');
　　new(client);
　　new(namelen);
　　namelen^:=sizeof(client^);
　　ns:=accept(s,client,namelen);
　　//第四步,等待接收
　　//注:bind时传递的是sockaddr_in结构的数据,accept时是两个指针!!!
　　if ns=-1 then //以下可以做成多线程过程
　　　 begin
　　　 writeln(-1);
　　　 exit;
　　　 end
　　　 else
　　　 begin
　　　 writeln(ns);
　　　 pktlen:=0;
　　　 writeln('recv');
　　　 repeat
　　　 pktlen:= recv(ns,buf,1024,0);//接收数据
　　//pktlen=为接收长度,0表示断开联接,<0表示失败
　　　 sleep(1);
　　　 write(pktlen:5);
　　　 if pktlen>0 then
　　　 begin
　　　 i:=send(ns,buf,pktlen,0);//返回数据
　　　 end;
　　　 until pktlen<1;//循环直到客户断开联接
　　　 end;
　　finally
　　writeln;
　　writeln('********************************************************************************');
　　writeln('Press to exit winsocket');
　　readln(str);
　　wsstatus:=WSACleanup();//退出winsocket;
　　write('WSACleanup = ');
　　writeln(wsstatus);
　　end;
　　writeln;
　　writeln('Press to exit');
　　readln(str);
　　end.