Написать клиент для загрузки сетевых ресурсов на диск

#include <winsock2.h>
#include <windows.h>
#include <stdio.h>
#pragma comment(lib, "ws2_32.lib")
#define  HTTP_DEFPORT   80
#define  HTTP_WAITGET   15000000L
 
char* get_host(char* h, const char* u);
char* get_fname(char* f, const char* u);
 
 
 
//копирование файла с сервера на локальный диск
int copy_url(const char* url, const char* output_dir){
    int   ret;
    char  buf[1024];
    char  hname[MAX_PATH];
 
    if(get_host(hname, url) == NULL)
        return WSAEFAULT;
 
    SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    if(sock == INVALID_SOCKET)
        return WSAGetLastError();
 
    sockaddr_in addr = {0};
    addr.sin_family  = AF_INET;
    addr.sin_port    = htons(HTTP_DEFPORT);
 
    //узнаём IP-адрес
    hostent* host = gethostbyname(hname);
    if(host == NULL){
        ret = WSAGetLastError();
        closesocket(sock);
        return ret;
    }
    CopyMemory(&addr.sin_addr, host->h_addr_list[0], host->h_length);
 
    
    //переводим сокет в не блокирующий режим чтения
    u_long argp = 1;
    if(ioctlsocket(sock, FIONREAD, &argp) == SOCKET_ERROR) {
        ret = WSAGetLastError();
        closesocket(sock);
        return ret;
    }
 
    //коннектимся к серверу
    ret = connect(sock, (const sockaddr*)&addr, sizeof(addr));
    if(ret == SOCKET_ERROR){
        ret = WSAGetLastError();
        closesocket(sock);
        return ret;
    }
 
    // задаём HTTP-запрос GET
    ret = wsprintfA(buf,"GET %s\r\n\r\n", url);
    ret = send(sock, buf, ret, 0);
    if(ret == SOCKET_ERROR){
        ret = WSAGetLastError();
        closesocket(sock);
        return ret;
    }
    Sleep(150UL);
 
    //формирование пути-файла для сохранение на диск
    get_fname(buf, url);
    lstrcpyA(hname, output_dir);
    lstrcatA(hname, buf);
 
    //создаём файл
    FILE* fp = fopen(hname, "wb+");
    if(fp == NULL){ 
        ret = (int)GetLastError();
        closesocket(sock);
        return ret;
    }
 
    // дальше скачивание файла
 
    FD_SET  fset;
    timeval tval;
 
    while(1){
 
        FD_ZERO(&fset);
        FD_SET(sock, &fset);
 
        tval.tv_sec  = 0L;
        tval.tv_usec = HTTP_WAITGET;
        
        ret = select(0, &fset, NULL, NULL, &tval);
        if(ret == SOCKET_ERROR)
            goto err;
        else if(! ret)
            continue;
 
        if(! FD_ISSET(sock, &fset))
            goto err;
 
        while(1){
            ret = recv(sock, buf, sizeof(buf) - 1, 0);
            if(ret == SOCKET_ERROR) {
                if((ret = WSAGetLastError()) != WSAEWOULDBLOCK)
                    goto err;
            } else if(ret > 0)
                fwrite(buf, sizeof(char), (size_t)ret, fp);
            else if(ret == 0)
                goto end;
        }
    }
 
end:
    closesocket(sock);
    fflush(fp);
    fclose(fp);
    return ERROR_SUCCESS;
 
err:
    ret = WSAGetLastError();
    closesocket(sock);
    fclose(fp);
    remove(hname);
    return ret;
}
 
 
 
int main(void){
    WSADATA wd = {0};
    if(WSAStartup(MAKEWORD(2, 2), &wd) != 0){
        fprintf(stderr, "code error: %d\n", WSAGetLastError());     
        return 1;
    }
 
    char url[] = "http://localhost/doc/my.pdf";
    char dir[] = "D:\\";
 
    int  err = copy_url(url, dir);
    if(err == ERROR_SUCCESS)
        puts("file upload.");
    else
        fprintf(stderr, "error code: %d\n", err);
 
    WSACleanup();
    return 0;
}
 
 
 
//имя хоста
char* get_host(char* h, const char* u){
    char* t = h;
 
    while(*u && (*u != '/'))
        ++u;
 
    if((*u != '/') || (*(u + 1) != '/'))
        return NULL;
 
    u += 2;
    while(*u && (*u != '/'))
        *h++ = *u++;
    *h = '\0';
    return t;
}
 
 
//имя файла-ресурса
char* get_fname(char* f, const char* u){
    const char* p = u;
    char* t = f;
 
    for(; *u; ++u){
        if(*u == '/')
            p = u;
    }
 
    if(*p == '/')
        ++p;
    
    while(*p)
        *f++ = *p++;
    *f = '\0';
    return t;
}