kirsanviне могли бы привести пример рабочего кода с wininet, вместе с include
те примеры что нахожу вообще не идут, почему то.
Нужно просто файл скачать.
Неужели в сети примера не нашлось?
Вот, только добавь нужные проверки, обработку ошибок...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
char *url="http://www.sql.ru/forum/actualtopics.aspx?bid=21";
char Buf[ 129 ];
unsigned long dwRead;
TFileStream* fs = new TFileStream("C:\\Test.html",fmCreate);
HINTERNET hInet = InternetOpen("DownloadFile",INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL, 0 );
HINTERNET hUrl = InternetOpenUrlA(hInet,url,NULL,NULL, 0 , 0 );
if( hUrl )
{
do
{
InternetReadFile(hUrl,(void*)Buf, 128 ,&dwRead);
fs->Write(Buf,dwRead);
}while(dwRead);
}
delete fs;
InternetCloseHandle(hInet);
InternetCloseHandle(hUrl);
Или ещё проще - на закладке Indy Clients... TidHTTP:
1.
IdHTTP->Get("http://www.sql.ru/forum/actualtopics.aspx?bid=21",fs);
fs - нужный Stream.
...
