Главная страница
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.032 c
2-1129298933
roma40
2005-10-14 18:08
2005.11.06
интернет


14-1129571602
Sergey_Masloff
2005-10-17 21:53
2005.11.06
Поковырялся сегодня в исходниках Indy... мама родная


2-1129083148
AlexLines
2005-10-12 06:12
2005.11.06
ПРОБЛЕМА С LIKE "A%" И LIKE "A"


8-1115301949
Дельфин
2005-05-05 18:05
2005.11.06
Ошибка проигрывания avi файлов


14-1129277723
cyborg
2005-10-14 12:15
2005.11.06
СмЯшно :)