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




Вниз

Нужна помощь 


POOKER   (2002-03-23 17:16) [0]

Помогите мне, что то меня заклинуло, Вот текст программы, но я не пойму как тут сделать следующее, вроде все работает, но как определить длину строки
var
HURL: HINTERNET;
HInet: HINTERNET;
HTMLPage: string;
ByteReaded: Cardinal;
Page:textfile;
begin
SetLength(HTMLPage, 163840); >>>> Вот тут

HInet := InternetOpen("Mozilla/4.0 (compatible; MSIE 5.0; Win32)", INTERNET_OPEN_TYPE_DIRECT , nil, nil, 0);
HURL := InternetOpenUrl(HInet,
" http://www.aport.ru",
nil,
0,
0,
0);
InternetReadFile(HURL, PChar(HTMLPage),163840 ,ByteReaded);//>>> вот тут

assignFile(Page,"c:\Page.html");
rewrite(Page);
write(page,HTMLpage);
closefile(page);
InternetCloseHandle(HInet);


Помогите пожалуйста где и вчем тут ошибка, т.к. страница не считывается полностью и как эту ошибку исправить



Я же   (2002-03-23 18:23) [1]

Предлагайте свои мнения :)



!   (2002-03-23 20:12) [2]

АУ




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




Наверх





Память: 0.72 MB
Время: 0.024 c
14-9611           Юра                   2002-02-21 06:10  2002.04.04  
Help


1-9533            новенький в Делфи     2002-03-23 17:25  2002.04.04  
Работа с фалами


14-9619           Tosov                 2002-02-15 16:48  2002.04.04  
Получение пароля из формы


4-9688            MJH                   2002-02-03 13:44  2002.04.04  
COMBOBOX


3-9377            JibSkeart             2002-03-08 18:25  2002.04.04  
Пернести базу MSSQL 6.5 на MSSQL 7.xx Реально ли?