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

Вниз

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

 
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]

АУ



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
1-9550
Atrem
2002-03-23 12:38
2002.04.04
Мастера,как можно перебрать в цикле все узлы и всех потомков всех узлов и т.д. в TTreeView?


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


1-9521
wal
2002-03-22 14:40
2002.04.04
---|Ветка была без названия|---


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


1-9517
FoxerMoxer
2002-03-22 20:11
2002.04.04
Мне нужна помощь