Главная страница
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.049 c
2-1129294767
d_savrasov
2005-10-14 16:59
2005.11.06
вопрос по quickrep


2-1129240693
Lordalexander
2005-10-14 01:58
2005.11.06
Мышь


9-1118065319
Gashish
2005-06-06 17:41
2005.11.06
Перенос модели в из 3d max в Delphi


4-1125311994
ANB
2005-08-29 14:39
2005.11.06
Как включить верхний регистр в чужом процессе ?


2-1129453886
quadronik
2005-10-16 13:11
2005.11.06
Хотите отвечайте, хотите нет...