Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: 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 вся ветка

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
9-1119467426
Germany
2005-06-22 23:10
2005.11.06
Отрожение в воде


14-1129217046
ArtemESC
2005-10-13 19:24
2005.11.06
Дизассемблер-редактор


3-1127475493
~viper~
2005-09-23 15:38
2005.11.06
Поиск


14-1129180394
Ega23
2005-10-13 09:13
2005.11.06
С днем рождения! 13 октября


1-1129160464
stef
2005-10-13 03:41
2005.11.06
Не получается создать список объектов