線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1199
推到 Plurk!
推到 Facebook!

有關disconnect?

答題得分者是:RaynorPao
richardc
一般會員


發表:9
回覆:6
積分:3
註冊:2003-04-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-25 13:27:59 IP:61.59.xxx.xxx 未訂閱
Indy如何用?if NMHTTP1.Connected then NMHTTP1.Disconnect;(該段code應加入何處?我用C 撰寫) void __fastcall TForm1::SpeedButtonGoClick(TObject *Sender) NMHTTP1->HeaderInfo->UserId = "admin"; NMHTTP1->HeaderInfo->Password = "1234"; data = "http://" ip_Address "/" index ; Memo1->Lines->Add( data); NMHTTP1->Get(data); 我若只讀NMHTTP1->Get(data),不會出現錯誤訊息:exception invalidation,但若有NMHTTP1->Get(data1),NMHTTP1->Get(data2)...數筆Get讀入,就會有錯誤訊息:exception invalidation,show出"already conneccted",請問是否要disconnect? ps:對不起,我是BCB新手,請您解釋清楚點!謝謝! 發表人 - Mickey 於 2003/04/25 21:57:34
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-27 13:36:31 IP:61.221.xxx.xxx 未訂閱
引言: Indy如何用?if NMHTTP1.Connected then NMHTTP1.Disconnect;(該段code應加入何處?我用C 撰寫) void __fastcall TForm1::SpeedButtonGoClick(TObject *Sender) NMHTTP1->HeaderInfo->UserId = "admin"; NMHTTP1->HeaderInfo->Password = "1234"; data = "http://" ip_Address "/" index ; Memo1->Lines->Add( data); NMHTTP1->Get(data); 我若只讀NMHTTP1->Get(data),不會出現錯誤訊息:exception invalidation,但若有NMHTTP1->Get(data1),NMHTTP1->Get(data2)...數筆Get讀入,就會有錯誤訊息:exception invalidation,show出"already conneccted",請問是否要disconnect? ps:對不起,我是BCB新手,請您解釋清楚點!謝謝!
richardc 你好: (1)是要 Disconnect 的 (2)想不想試試用 Indy 元件中的 TIdHTTP 呢??(以下是範例程式碼) < class="code"> // 假設檔案 url.txt 的內容只有三行如下 // http://tw.comic.yahoo.com/tarzan/pic/tarzan_20030426_2.jpg // http://tw.comic.yahoo.com/tarzan/pic/tarzan_20030424_2.jpg // http://tw.comic.yahoo.com/tarzan/pic/tarzan_20030422_2.jpg int giSize; void __fastcall TForm1::Button4Click(TObject *Sender) { TStringList *sl1=new TStringList; sl1->LoadFromFile("url.txt"); for(int i=0; iCount; i ) { TMemoryStream *ms=new TMemoryStream; // Use TIdHTTP to get file's message IdHTTP1->Head(sl1->Strings[i]); giSize=IdHTTP1->Response->ContentLength; IdHTTP1->Get(sl1->Strings[i], ms); TStringList *sl2=new TStringList; AnsiString sz=sl1->Strings[i]; sz=StringReplace(sz, "/", ",", TReplaceFlags()<CommaText=sz; ms->SaveToFile(sl2->Strings[sl2->Count-1]); IdHTTP1->Disconnect(); delete sl2; delete ms; } delete sl1; } //--------------------------------------------------------------------------- void __fastcall TForm1::IdHTTP1Work(TObject *Sender, TWorkMode AWorkMode, const int AWorkCount) { if(giSize!=0) { CGauge1->Progress=(int)((double)AWorkCount/(double)giSize*(double)100); } } 備註: (1)這段程式碼可以自 http://tw.yahoo.com/ 下載三個 *.jpg 檔案並將其存檔 (2)有關使用 Indy 元件的相關注意事項,請參考以下的連結文章
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
系統時間:2024-03-29 16:20:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!