Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

!!!!!!!!!!!!!!!!!! 


HELP!!!!!!!!!!!!!!!   (2002-03-14 16:23) [0]

Помогите мастера , может кто-нибудь знает как при помощи винапи с сайта скачать файл желательно с примерами.
За ранее спасибо!!!



Nebula   (2002-03-14 16:57) [1]

Это минимум, только html.
У нас стоит proxy, так-что тестировал только с ним. Без него, скорее всего, подойдет ключ INTERNET_OPEN_TYPE_DIRECT в InternetOpen.

uses WinInet;

var
HURL: HINTERNET;
HInet: HINTERNET;
HTMLPage: string;
ByteReaded: Cardinal;
begin
SetLength(HTMLPage, 16384);
HInet := InternetOpen("Mozilla/4.0 (compatible; MSIE 5.0; Win32)", INTERNET_OPEN_TYPE_PROXY, "proxyname:port", nil, 0);
HURL := InternetOpenUrl(HInet, " http://delphi.mastak.ru/forums.shtml", nil, 0, 0, 0);
InternetReadFile(HURL, PChar(HTMLPage), 16384, ByteReaded);
Memo.Text := HTMLPage;
Memo.Lines.SaveToFile("c:\page.htm");
InternetCloseHandle(HInet);
end;

Если чего конкретно надо пиши, лучше, конечно, на ICQ 150534510 или email.



HELP!!!!!!!!!!!!!!!   (2002-03-14 17:06) [2]

Спасибо вам большое!!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.037 c
3-90727           JEff                  2002-02-25 18:34  2002.03.28  
КАК ЖЕ МНЕ ИЗМЕНИТЬ CAPTION QRLabel а?


3-90791           Sewix                 2002-02-28 10:32  2002.03.28  
Отчет


1-90949           Kettle of delphi      2002-03-14 03:24  2002.03.28  
Про точные интервалы времени.....................


4-91117           star                  2002-01-28 12:23  2002.03.28  
Кто-нибудь писал ловушки (hooks)? Подскажите ...


6-91012           twinc                 2002-01-15 13:12  2002.03.28  
INDY AND ALL ALL ALL