CYFROWY BARON • PROGRAMOWANIE

AnsiString ReadFileURL(const AnsiString &Url)
{
        AnsiString result;

        HINTERNET hSession = InternetOpen("ReadFileURL", INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);

        if(hSession)
        {
                HINTERNET hService = InternetOpenUrl(hSession, Url.c_str(), NULL, 0, 0, 0 );
                if(hService)
                {
                        char lpBuffer[1024 + 1];
                        DWORD dwBytesRead;

                        while(InternetReadFile(hService, lpBuffer, 1024, &dwBytesRead) == TRUE)
                        {
                                if(dwBytesRead == 0) break;
                                lpBuffer[dwBytesRead] = 0;
                                result += lpBuffer;
                        }
                }

                InternetCloseHandle(hService);
        }
       
        InternetCloseHandle(hSession);
        return result;
}