Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Странности сложения строк [D7, XP]


Страницы:   1 2

romich ©   (2010-02-02 12:32:00) 


Buffer: array [0..1024] of Char;

InternetQueryDataAvailable(hResourceHandle, Size, 0, 0);
SetLength(strResult, Size);
strResult := '';

repeat
 InternetQueryDataAvailable(hResourceHandle, Size, 0, 0);
 if Size > 0 then begin
   InternetReadFile(hResourceHandle, @Buffer, SizeOf(Buffer), Downloaded);
   strResut:=strResult+String(Buffer);
 end;
until Size = 0;


Проблема в следующем: первые два прохода цикла в strResult исправно складывается значение буфера. Потом, несмотря на то, что в буфере содержится текст, содержимое strResult никак не меняется уже до завершения цикла. Почему?


romich   (2010-02-02 12:45:00) [21]

~7Кб весит целевая страница. Таким же выставляется размер строки.


KilkennyCat   (2010-02-02 12:41:00) [22]

размер маловат


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо