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




Вниз

Нужна помощь!№ 


Sergeysh   (2002-03-24 10:49) [0]

Мастера помогите мне пожалуйста. Почему у меня не работает следующий код.
procedure HTTPSTHD(Url,pagetosave:string);
var
HURL: HINTERNET;
HInet: HINTERNET;
HTMLPage: string;
ByteReaded: Cardinal;
Page:textfile;
begin
SetLength(HTMLPage, 16384);
HInet := InternetOpen("Mozilla/4.0 (compatible; MSIE 5.0; Win32)", INTERNET_OPEN_TYPE_DIRECT , nil, nil, 0);
HURL := InternetOpenUrl(HInet,
Pchar(Url),
nil,
0,
0,
0);
InternetReadFile(HURL, PChar(HTMLPage), 16384, ByteReaded);
assignFile(Page,pagetosave);
rewrite(Page);
write(page,HTMLpage);
closefile(page);
InternetCloseHandle(HInet);
end;




Помогите мне сдлеать так, чтобы он скачивал с интернета страницу до конца.
За ранее всем спасибо



Sergeysh   (2002-03-24 12:05) [1]

Предлагайте свои идеи !



Sergeysh   (2002-03-24 14:59) [2]

Что не кт не знает ? :)




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




Наверх





Память: 0.72 MB
Время: 0.027 c
3-9378            sergey_2              2002-03-12 12:07  2002.04.04  
DOA


14-9618           Suntechnic            2002-02-21 20:47  2002.04.04  
Загадки, которые в этой конференции по-моему всё актуальнее и актуальнее :)))


1-9465            Man-In-Red            2002-03-25 15:45  2002.04.04  
Как в Listbox1 добавить все содержимое папки, скажем: C: My Doc ???


1-9552            Sergeysh              2002-03-24 10:49  2002.04.04  
Нужна помощь!№


1-9583            Jurich                2002-03-23 22:31  2002.04.04  
Сдвиг строк в StringGrid