Скачать: CL | DM;

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

← →
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(..);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c