請問各位先進,BCB5的FastNet頁次下的NMHTTP元件,要如何做才能將讀取進度用ProgressBar表示? 嘗試底下這樣不行,BytesTotal永遠等於0.但事實上有資料讀入. void __fastcall TForm_main::NMHTTP1PacketRecvd(TObject *Sender) { ProgressBar1->Max=NMHTTP1->BytesTotal; ProgressBar1->Min=0; ProgressBar1->Position=NMHTTP1->BytesRecvd; } white

------
white

引言: 請問各位先進,BCB5的FastNet頁次下的NMHTTP元件,要如何做才能將讀取進度用ProgressBar表示? 嘗試底下這樣不行,BytesTotal永遠等於0.但事實上有資料讀入. void __fastcall TForm_main::NMHTTP1PacketRecvd(TObject *Sender) { ProgressBar1->Max=NMHTTP1->BytesTotal; ProgressBar1->Min=0; ProgressBar1->Position=NMHTTP1->BytesRecvd; } white

white 你好: (1)你這個問題，是不是應該貼在(網際網路討論區)比較適合呢?? ( > < class="code"> int giSize; void __fastcall TForm1::Button4Click(TObject *Sender) { //................................................................. TMemoryStream *ms=new TMemoryStream; IdHTTP1->Head("http://tw.comic.yahoo.com/tarzan/pic/tarzan_20030128_2.jpg"); giSize=IdHTTP1->Response->ContentLength; IdHTTP1->Get("http://tw.comic.yahoo.com/tarzan/pic/tarzan_20030128_2.jpg", ms); ms->SaveToFile("tarzan_20030128_2.jpg");delete ms; //................................................................. } void __fastcall TForm1::IdHTTP1Work(TObject *Sender, TWorkMode AWorkMode, const int AWorkCount) { CGauge1->Progress=(int)((double)AWorkCount/(double)giSize*(double)100); } 備註: 有關 Indy 元件的注意事項，請參考以下的連結文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28279 -- Enjoy Researching & Developing --