用free pascal里的 socket单元 实现TCP 和 UDP 网络通信

{tcp_server.pas}
uses sockets, windows;
{接收内容的线程}
procedure recv(psocket:pointer);stdcall;
var
buffer:array[0..1024] of byte;
socket: ^longint;
len:integer;
remsg:pchar;
begin
socket:=psocket;
remsg:=pchar(@buffer);
while true do
begin
len:=fprecv(socket^,@buffer,1024,0);
if(len>0)then
begin
buffer[len]:=0;
write('收到:');
writeln(remsg);
end;
end;
end;
{main}
var
serverSocket, clientSocket: longint;
server_addr, client_addr: TInetSockAddr;
iaddr:longint;
tid:longword;
buf:array[0..2048] of char;
i:integer;
begin
//创建一个 socket , 其中SOCK_STREAM是 TCP簇协议
serverSocket:=fpSocket( AF_INET, SOCK_STREAM, 0);
//服务器的地址配置
server_addr.sin_family:=AF_INET; //ipv4
server_addr.sin_port:=htons(6666); //端口6666
server_addr.sin_addr.s_addr:=0; //ip
//然后就是 BLA 操作， bind, listen, accept
fpbind(serverSocket, @server_addr, sizeof(server_addr)); //B
fplisten(serverSocket,0); //L
iaddr:=sizeof(client_addr);
writeln('正在等待客户连接...');
//A, accept 返回一个socket用来和客户关的通信,可以accept多次的，也就是可以接入多个客户的连接
clientSocket:=fpaccept(serverSocket,@client_addr,@iaddr);
writeln('客户连接成功！说话：');
//↑↑↑↑↑↑↑↑↑↑↑↑↑ 以上 BLA ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
CreateThread(nil,0,@recv,@clientSocket,0,tid);
//发送用 fpsend (send), 收取用 fprecv (recv)
while true do
begin
i:=0;
while not eoln do
begin
read(buf[i]);
inc(i);
end;
readln;
fpsend(clientSocket,@buf,i,0);
end;
end.

{ tcp_client.pas}
uses sockets,windows;
{接收内容的线程}
procedure recv(psocket:pointer);stdcall;
var
buffer:array[0..1024] of byte;
socket: ^longint;
len:integer;
remsg:pchar;
begin
socket:=psocket;
remsg:=pchar(@buffer);
while true do
begin
len:=fprecv(socket^,@buffer,1024,0);
if(len>0)then
begin
buffer[len]:=0;
write('收到:');
writeln(remsg);
end;
end;
end;
{main}
var
server_addr: TInetSockAddr;
locationSocket: longint;
tid:longword;
buf:array[0..2048] of char;
i:integer;
begin
locationSocket:=fpSocket(AF_INET, SOCK_STREAM, 0);
writeln('Socket:',SocketError);
//设置要连接到的服务器的地址
server_addr.sin_family:=AF_INET; //ip
server_addr.sin_port:=htons(6666); //端口
server_addr.sin_addr:=StrtoNetAddr('127.0.0.1');
writeln('正在连接。。。');
if fpconnect(locationSocket, @server_addr, sizeof(server_addr))=0 then //客户直接connect 服务器
begin
CreateThread(nil,0,@recv,@locationSocket,0,tid);
writeln('已经接上服务器！可以说话了亲：');
while true do
begin
i:=0;
while not eoln do
begin
read(buf[i]);
inc(i);
end;
readln;
fpsend(locationSocket,@buf,i,0);
end;
end
else
writeln('接接失败！error code:',SocketError);
end.

{udp_server.pas}
uses sockets,windows;
{接收内容的线程}
procedure recv(psocket:pointer);stdcall;
var
buffer:array[0..1024] of byte;
socket: ^longint;
len:integer;
remsg:pchar;
client_addr:TInetSockAddr;
iaddr:longint;
begin
socket:=psocket;
remsg:=pchar(@buffer);
while true do
begin
iaddr:=sizeof(client_addr);
len:=fprecvfrom(socket^,@buffer,1024,0,@client_addr,@iaddr);
if(len>0)then
begin
buffer[len]:=0;
write('收到来自,',NetAddrToStr(client_addr.sin_addr),':',htons(client_addr.sin_port),'的消息：');
writeln(remsg);
end;
end;
end;
{main}
var
udpServerSocket:longint;
server_addr:TInetSockAddr;
tid:longword;
buf:array[0..2048] of char;
i:integer;
client_ip:string;
client_port:longint;
client_addr:TInetSockAddr;
begin
udpServerSocket:=fpSocket(AF_INET, SOCK_DGRAM, 0); // udp簇 用 SOCK_DGRAM
//设置 服务器 ip和端口信息
server_addr.sin_family:=AF_INET;
server_addr.sin_port:= htons(6667);
server_addr.sin_addr.s_addr:=0;
fpbind(udpServerSocket, @server_addr,sizeof(server_addr)); //客户端 可以bind, 也可以不bind, 服务器就要bind
//↑↑↑↑↑↑↑↑↑↑↑↑↑ 以上 ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
if SocketError=0 then
begin
CreateThread(nil,0,@recv,@udpServerSocket,0,tid);
while true do
begin
write('客户ip:'); //因为 udp 用 sendto 每次都要指定 ip 和端口;
readln(client_ip);
write('客户端口:');
readln(client_port);
client_addr.sin_family:=AF_INET;
client_addr.sin_port:=htons(client_port);
client_addr.sin_addr:=StrToNetAddr(client_ip);
write('发给客户的内容:');
i:=0;
while not eoln do
begin
read(buf[i]);
inc(i);
end;
readln;
fpsendto(udpServerSocket,@buf,i,0,@client_addr,sizeof(client_addr));
end;
end;
end.

{udp_clinet.pas}
uses sockets,windows;
{接收内容的线程}
procedure recv(psocket:pointer);stdcall;
var
buffer:array[0..1024] of byte;
socket: ^longint;
len:integer;
remsg:pchar;
client_addr:TInetSockAddr;
iaddr:longint;
begin
socket:=psocket;
remsg:=pchar(@buffer);
while true do
begin
iaddr:=sizeof(client_addr);
len:=fprecvfrom(socket^,@buffer,1024,0,@client_addr,@iaddr);
if(len>0)then
begin
buffer[len]:=0;
write('收到来自,',NetAddrToStr(client_addr.sin_addr),':',htons(client_addr.sin_port),'的消息：');
writeln(remsg);
end;
end;
end;
{main}
var
udpSocket:longint;
server_addr:TInetSockAddr;
tid:longword;
buf:array[0..2048] of char;
i:integer;
begin
udpSocket:=fpSocket(AF_INET, SOCK_DGRAM, 0); // udp簇 用 SOCK_DGRAM
//设置 服务器 ip和端口信息
server_addr.sin_family:=AF_INET;
server_addr.sin_port:= htons(6667);
server_addr.sin_addr:=StrToNetAddr('127.0.0.1');
//客户端 可以bind, 也可以不bind, 服务器就要bind
//↑↑↑↑↑↑↑↑↑↑↑↑↑ 以上 ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
if SocketError=0 then
begin
CreateThread(nil,0,@recv,@udpSocket,0,tid);
while true do
begin
i:=0;
while not eoln do
begin
read(buf[i]);
inc(i);
end;
readln;
fpsendto(udpSocket,@buf,i,0,@server_addr,sizeof(server_addr));
end;
end;
end.

2楼 tcp_server.pas和谐，tcp_server.pas图片版

虽然不知道上面说的是什么意思。
uses windows
procedure t22t();
begin
while true do
begin
writeln('Thread!~~~');
sleep(500);
end;
end;
var
tid:longword;
begin
CreateThread(nil,0,@t22t,nil,0,tid);
sleep(5000);
end.
编译后，看下它的内部结构：
从start开始。。。做了一堆工作：

call 到了 sub_406c50:

Call sub_40836C:

sub_401450: 这里到了我们写的 主程序 也就是， 很明显地看出了 Create, 和 sleep两个在pascal源代码的函数。

F5神器对应的 伪C代码：

主程序中的结尾有一个 sub_403750, 这是我们代码所写的pascal语言源代码没有的。
它就是在 pascal 程序结束 执行 ExitProcess前的释放资源那一堆操作。
.text:00403750 sub_403750 proc near ; CODE XREF: sub_401450+2Ap
.text:00403750 ; sub_403760+5p
.text:00403750 call sub_4035A0
.text:00403755 call sub_406B60
.text:00403755 sub_403750 endp
到 SUB_406B60



最后 很多很多操作,不释放线程和内存，它在吃干饭吗， 最后是 ExitProcess。

多人聊天呢？

能不能解释一下fpsend的参数列表

我试过用服务器转，可是为什么转的接收不到？

这么用的fpsend（c2,@b2,k,0); //c2是接收的，b2是要转的，k是b2的长度，这样用对吗？