Winsock API TCPServer

最新推荐文章于 2024-10-24 12:59:38 发布

jondynet

最新推荐文章于 2024-10-24 12:59:38 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi / Win32SDK 文章标签： api server socket integer stream windows

本文链接：https://blog.youkuaiyun.com/jondynet/article/details/544412

Delphi / Win32SDK 专栏收录该内容

6 篇文章

订阅专栏

此博客展示了一段Windows环境下使用Winsock进行Socket编程的代码。代码包含WSAStartup初始化、socket创建、绑定端口、监听连接、接受连接、发送和接收数据等操作，还涉及数据处理，最后关闭socket并清理资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

program exe;
{$apptype console}

uses
Windows, Winsock, SysUtils;

var
FSocket,CSocket:TSocket;
buf:array[0..255]of char;
wsaData:TWSADATA;
Server:TSockAddrIn;
err,len,id:integer;
const
    CRLF=#13#10;
begin
err := WSAStartup(MAKEWORD(2,0),WSAData);
if err=-1 then
begin
writeln('WSAStartup初始化失败！');
exit;
end;
FSocket := socket(AF_INET, SOCK_STREAM,0);
if FSocket=SOCKET_ERROR then
begin
writeln('socket创建套接口失败！');
WSACleanup();
exit;
end;
Server.sin_family := AF_INET;
Server.sin_addr.s_addr:=INADDR_ANY; //host
Server.sin_port:=htons(40400); //port
bind(FSocket,server,sizeof(server));
len := sizeof(server);
getsockname(FSocket,server,len);
if listen(FSocket,5)<>0 then
begin
writeln('bind绑定错误！');
Closesocket(FSocket);
WSACleanup();
exit;
end; CSocket:=accept(FSocket,@server,@len);
if CSocket=-1 then
begin
writeln('CSocket连接错误！');
Closesocket(FSocket);
WSACleanup();
exit;
end;
id := connect(CSocket,Server, SizeOf(Server));
if id <>0 then
begin
strcopy(buf,
      char($00)+char($00)+char($00)+char($00)+char($00)+char($00)+char($00)+
      char($00)+char($01)+char($00)+char($CA)+char($67)+char($43)+char($B4)+
      char($7F)+char($00)+char($00)+char($01)+char($D0)+char($9D)+char($DA)+
      char($10)+char($82)+char($02)+char($F4)+char($3F)+char($02)+char($43)+
      char($FF)+char($67)+char($D7)+char($D1)+char($12)+char($33)+char($6A)+
      char($A3)+char($D8)+char($C6)+char($24)+char($D8)+char($50)+char($19)+
      char($8B)+char($26)+char($00)+char($00)+char($00)+char($00)+char($77)+
      char($77)+char($77)+char($2E)+char($59)+char($6F)+char($63)+char($6B)+
      char($73)+char($6B)+char($59)+char($2E)+char($63)+char($6F)+char($6D)+
      char($00)+char($77)+char($77)+char($77)+char($2E)+char($59)+char($6F)+
      char($63)+char($6B)+char($73)+char($6B)+char($59)+char($2E)+char($63)+
      char($6F)+char($6D)+char($00)+char($77)+char($77)+char($77)+char($2E)+
      char($59)+char($6F)+char($63)+char($6B)+char($73)+char($6B)+char($59)+
      char($2E)+char($63)+char($6F)+char($6D)+char($00)+char($77)+char($77)+
      char($77)+char($2E)+char($59)+char($6F)+char($63)+char($6B)+char($73)+
      char($6B)+char($59)+char($2E)+char($63)+char($6F)+char($6D)+char($00)+
      char($77)+char($77)+char($77)+char($2E)+char($59)+char($6F)+char($63)+
      char($6B)+char($73)+char($6B)+char($59)+char($2E)+char($63)+char($6F)+
      char($6D)+char($00)
);
send(CSocket,buf,strlen(buf),0);
end;
//    数据处理
strcopy(buf,
      char($00)+char($00)+char($00)+char($00)+char($00)+char($00)+char($00)+
      char($00)+char($01)+char($00)+char($CA)+char($67)+char($43)+char($B4)+
      char($7F)+char($00)+char($00)+char($01)+char($D0)+char($9D)+char($DA)+
      char($10)+char($82)+char($02)+char($F4)+char($3F)+char($02)+char($43)+
      char($FF)+char($67)+char($D7)+char($D1)+char($12)+char($33)+char($6A)+
      char($A3)+char($D8)+char($C6)+char($24)+char($D8)+char($50)+char($19)+
      char($8B)+char($26)+char($00)+char($00)+char($00)+char($00)+char($77)+
      char($77)+char($77)+char($2E)+char($59)+char($6F)+char($63)+char($6B)+
      char($73)+char($6B)+char($59)+char($2E)+char($63)+char($6F)+char($6D)+
      char($00)+char($77)+char($77)+char($77)+char($2E)+char($59)+char($6F)+
      char($63)+char($6B)+char($73)+char($6B)+char($59)+char($2E)+char($63)+
      char($6F)+char($6D)+char($00)+char($77)+char($77)+char($77)+char($2E)+
      char($59)+char($6F)+char($63)+char($6B)+char($73)+char($6B)+char($59)+
      char($2E)+char($63)+char($6F)+char($6D)+char($00)+char($77)+char($77)+
      char($77)+char($2E)+char($59)+char($6F)+char($63)+char($6B)+char($73)+
      char($6B)+char($59)+char($2E)+char($63)+char($6F)+char($6D)+char($00)+
      char($77)+char($77)+char($77)+char($2E)+char($59)+char($6F)+char($63)+
      char($6B)+char($73)+char($6B)+char($59)+char($2E)+char($63)+char($6F)+
      char($6D)+char($00)
);
send(CSocket,buf,strlen(buf),0);
repeat
recv(CSocket,buf,strlen(buf),0);
send(CSocket,buf,strlen(buf),0);
until pos('Q',buf)>0;

Closesocket(FSocket);
WSACleanup();
end.