Открытие файла из интернета
vajo © (2005-07-27 09:43:00)
Подскажите как открыть файл из интернета допустим в 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:00) [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(..);
Наверх 
ЧАТ |
Орешник |
|
