program Server;
uses
windows,jwaws2tcpip,jwaWinSock2;
const
DEFAULT_PORT = '55555';
DEFAULT_BUFLEN = 255;
var
recvbuf: array[0..DEFAULT_BUFLEN] of byte;
// i : Byte;
ret, recvbuflen : integer;
SocketData : TwsaData;
hints : TAddrInfo;
Result,ptr : PAddrInfo;
ListenSocket, ClientSocket : TSocket;
iResult, iSendResult : Integer;
// 1º Iniciar Winsock ----------------------------------------------------------------------------
begin
Initialize(SocketData);
ret := WSAStartup(WINSOCK_VERSION,SocketData);
if ret <> 0 then
begin
WriteLn('WSAStartup failed: ', ret);
ExitProcess(1);
end
else
WriteLn('WSAStartup Ok');
// 2º Crear un socket para el servidor-----------------------------------------------------------------
Initialize(hints);
hints.ai_family := AF_INET;
hints.ai_socktype := SOCK_STREAM;
hints.ai_protocol := IPPROTO_TCP;
hints.ai_flags := AI_PASSIVE;
Result := nil;
iResult := getaddrinfo(nil,DEFAULT_PORT,@hints, Result);
if iResult <> 0 then
begin
WriteLn('getaddrinfo failed : ', iResult);
WSACleanup;
ExitProcess(1);
end;
if Result = nil then
begin
WriteLn('MemAlloc Error');
Exit;
end;
ptr := Result;
ListenSocket := INVALID_SOCKET;
ListenSocket := socket(ptr^.ai_family,ptr^.ai_socktype,ptr^.ai_protocol);
if ListenSocket = INVALID_SOCKET then
begin
WriteLn('Error at socket(): ',WSAGetLastError);
freeaddrinfo(Result);
WSACleanup;
ExitProcess(1);
end;
// 3º Binding (enlazar) el socket -----------------------------------------------------------
iResult := bind(ListenSocket, ptr^.ai_addr, Integer(ptr^.ai_addrlen));
if iResult = SOCKET_ERROR then
begin
WriteLn('bind failed with error: ', WSAGetLastError);
freeaddrinfo(result);
closesocket(ListenSocket);
WSACleanup;
ExitProcess(1);
end;
// 4º Listening on a socket, escuchando...-----------------------------------------------------
if listen( ListenSocket, SOMAXCONN ) = SOCKET_ERROR then
begin
WriteLn('Listen failed with error: ', WSAGetLastError);
closesocket(ListenSocket);
WSACleanup;
ExitProcess(1);
end;
// 5º Aceptando una conexión-----------------------------------------------------------------
ClientSocket := INVALID_SOCKET;
ClientSocket := accept(ListenSocket, nil, nil);
if ClientSocket = INVALID_SOCKET then
begin
WriteLn('accept failed: ', WSAGetLastError);
closesocket(ListenSocket);
WSACleanup;
ExitProcess(1);
end;
// 6º Recibiendo y enviando datos............-----------------------------------------------------------
recvbuflen := DEFAULT_BUFLEN;
Initialize(recvbuf);
repeat
iResult := recv(ClientSocket, recvbuf, recvbuflen, 0);
if iResult > 0 then
begin
WriteLn('Bytes received: ', iResult);
//--WriteLn los bytes recibidos (el número de ellos está en iResult(4)), que van a ser una parte de recvbuf ¿Como?
//--Operar con los bytes recibidos y enviarlos al cliente ¿Como?
iSendResult := send(ClientSocket, recvbuf, iResult, 0);
if iSendResult = SOCKET_ERROR then
begin
WriteLn('send failed: ', WSAGetLastError);
closesocket(ClientSocket);
WSACleanup();
Exit;
end;
WriteLn('Bytes sent: ', iSendResult);
end
else
if iResult = 0 then
begin
WriteLn('Connection closing...');
end
else
begin
WriteLn('recv failed: ', WSAGetLastError());
closesocket(ClientSocket);
WSACleanup();
Exit;
end;
until iResult <= 0;
// 7º Desconectando el servidor ---------------------------------------------------------------------------
iResult := shutdown(ClientSocket, SD_SEND);
if iResult = SOCKET_ERROR then
begin
WriteLn('shutdown failed with error: ', WSAGetLastError());
closesocket(ClientSocket);
WSACleanup();
Exit;
end;
// cleanup
closesocket(ClientSocket);
WSACleanup();
end.
Recent
