Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

Нужна помощь!№   Найти похожие ветки 

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.04.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
14-9631
Fred
2002-02-23 08:02
2002.04.04
Как засинхронизироваться по времени от другого коммпьютера?


3-9362
Ghostlady
2002-03-11 16:44
2002.04.04
Падает база данных без видимых причин


1-9526
Лана Розанова
2002-03-23 18:30
2002.04.04
ListBox


14-9646
Morfey
2002-02-23 04:23
2002.04.04
Как открыть файл в HEX виде.


3-9406
Tanya_
2002-03-12 19:47
2002.04.04
ApplyUpdate и связь master-detail