Прогрессирование CGauge или TProgressBar

9.5K

30 января 2007 года

53 / / 09.11.2006

Как прогрессировать CGauge или TProgressBar по мере скачивания файла
функцией UrlDownloadToFile? или NMHTTP.. или чем вы знаете.
Заранее спасибо!

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

5 ответов

0 спам

01 февраля 2007 года

Тень Пса

2.2K / / 19.10.2006

знаю как прогрессировать прогрессбар (во круто звучит:D) при изменении прогресса TCppWebBrowser )))

у него даже событие есть OnProgressChange =))) ну а описалово сам посмотришь если нужно будет ;)

Цитировать

0 спам

294

01 февраля 2007 года

Plisteron

982 / / 29.08.2003

Где-то (видимо, в обработчике события OnStatus) узнаёшь, что начинается закачка и делаешь

Код:

ProgressBar1->Max = NMHTTP1->BytesTotal;

В обработчике события OnPacketRecvd делаешь

Код:

ProgressBar1->Position = NMHTTP1->BytesRecvd;

По-моему, так. Сам, правда, не пробовал.

Цитировать

0 спам

01 февраля 2007 года

Тень Пса

2.2K / / 19.10.2006

что-то я лично в описалове этого компонента не нашёл как узнать когда начинается закачка...

вот это вот можно узнать в событии OnStatus:

[quote=Borland BuilderC++ 6.0 help]
hsResolving - A host name is being resolved to an IP Address
hsConnecting - A connection is being opened
hsConnected - A connection has been made
hsDisconnecting - The connection is being closed
hsDisconnected - The connection has been closed
hsText - The connection is generating an informational message
[/quote]

также можно узнать то, что успешно завершено:

Свернуть исходник

Код:

void __fastcall TForm1::NMHTTP1Success(CmdType Cmd)

{

  if (NMHTTP1->CookieIn != "")

    Memo4->Text = NMHTTP1->CookieIn;

  Memo1->Text = NMHTTP1->Header;

  Memo2->Text = NMHTTP1->Body;

  switch(Cmd)

    {

      case CmdGET: Memo3->Lines->Add("HTTP GET Successful");

      case CmdPOST: Memo3->Lines->Add("HTTP POST Successful");

      case CmdHEAD: Memo3->Lines->Add("HTTP HEAD Successful");

      case CmdOPTIONS: Memo3->Lines->Add("HTTP OPTIONS Successful");

      case CmdTRACE: Memo3->Lines->Add("HTTP TRACE Successful");

      case CmdPUT: Memo3->Lines->Add("HTTP PUT Successful");

      case CmdDELETE: Memo3->Lines->Add("HTTP DELETE Successful");

    }

}