Открытие файла из интернета

← →
vajo (2005-07-27 09:43) [0]

Подскажите как открыть файл из интернета допустим в Memo. Файл: Test.txt по адресу "http://www.adres.ru/Test/Test.txt".
Если сделать так:
memo1.Lines.LoadFromFile("http://www.adres.ru/Test/Test.txt");
, то пишет ошибку "Не могу открыть файл "C:\Project\Test\http:\www.adres.ru\Test\Test.txt"

← →
isasa © (2005-07-27 15:19) [1]

1.Вариант, Инди http клиент - TIdHTTP

2.Вариант, используя ф-ции библиотеки MS Wininet.dll (см. MSDN)
последовательность вызовов, вроде, соблюдена.
hSes:=InternetOpen(PChar(Application.ExeName), INTERNET_OPEN_TYPE_PROXY, PChar(buf), nil, INTERNET_FLAG_RELOAD); ... hURL:=InternetConnect(hSes, PChar(sServ), 0, nil, nil, INTERNET_SERVICE_HTTP, 0, 0); ... hHTTP:=HttpOpenRequest(hURL, nil, PChar(URLPath), nil, nil, nil, INTERNET_FLAG_NO_AUTO_REDIRECT or INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 0); ... HttpSendRequest(hHTTP, nil, 0, nil, 0); ... HttpQueryInfo(hHTTP, HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER, @i, bLen, hInd); ... HttpQueryInfo(hHTTP, HTTP_QUERY_RAW_HEADERS_CRLF, rBuff, bLen, hInd); ... if InternetQueryDataAvailable(hHTTP, BytesAvail, 0, 0) then ... ItDone:=InternetReadFile(hHTTP, rBuff, cURL.bufLen, BytesRead); ... InternetCloseHandle(..);

Открытие файла из интернета Найти похожие ветки