C/Visual C - Sockes

#include <vcl.h>

#include <winsock.h>

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    // Inicializa Winsock

    WSADATA wsaData;

    if (WSAStartup(MAKEWORD(2, 2), &wsaData) != 0) {

        Memo1->Lines->Add("Error al inicializar Winsock.");

        return;

    }

    // Crea un socket

    SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

    if (sock == INVALID_SOCKET) {

        Memo1->Lines->Add("Error al crear el socket.");

        WSACleanup();

        return;

    }

    // Configura la dirección del servidor

    struct sockaddr_in server;

    server.sin_family = AF_INET;

    server.sin_port = htons(80); // Puerto HTTP

    server.sin_addr.s_addr = inet_addr("IP_DEL_SERVIDOR"); // Cambia por la IP del servidor

    // Conéctate al servidor

    if (connect(sock, (struct sockaddr*)&server, sizeof(server)) == SOCKET_ERROR) {

        Memo1->Lines->Add("Error al conectar al servidor.");

        closesocket(sock);

        WSACleanup();

        return;

    }

    // Envía una solicitud HTTP

    const char *request = "GET /ruta_del_archivo_de_actualizacion HTTP/1.1\r\n"

                          "Host: IP_DEL_SERVIDOR\r\n"

                          "Connection: close\r\n\r\n";

    send(sock, request, strlen(request), 0);

    // Recibe la respuesta

    char buffer[1024];

    int bytesReceived = recv(sock, buffer, sizeof(buffer) - 1, 0);

    if (bytesReceived > 0) {

        buffer[bytesReceived] = '\0'; // Asegúrate de que el buffer esté terminado en null

        Memo1->Lines->Add("Respuesta del servidor:");

        Memo1->Lines->Add(buffer);

    } else {

        Memo1->Lines->Add("No se recibió respuesta del servidor.");

    }

    // Cierra el socket y limpia Winsock

    closesocket(sock);

    WSACleanup();

}