TIdTCPServer TIdTCPClient傳檔的問題... |
|
答題得分者是：RaynorPao
|
|
wun
一般會員   發表：19 回覆：20 積分：7 註冊：2002-08-24 發送簡訊給我 |
要如何利用這兩元件來傳檔呢..
我寫了一個...但都有錯誤..可否請知道的大大指導一下呢..謝謝..
Client端.
void __fastcall TClient::ButtonClick(TObject *Sender)
{
IdTCPClient1->Connect();
}
void __fastcall TClient::IdTCPClient1Connected(TObject *Sender)
{
AnsiString ss = IntToStr(BmpStream->Size);
IdTCPClient1->WriteLn(ss);
IdTCPClient1->WriteStream(BmpStream,false);
} server:
void __fastcall TShow_Selec_Value_Form::IdTCPServer1Execute(
TIdPeerThread *AThread)
{
TMemoryStream *TempStream = new TMemoryStream();
AnsiString ss= AThread->Connection->ReadLn();
int ssi = ss.ToInt();
AThread->Connection->ReadStream(TempStream,ssi,false);
}
它會說Stream read error...為什麼是這樣呢..
謝謝...
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 要如何利用這兩元件來傳檔呢.. 我寫了一個...但都有錯誤..可否請知道的大大指導一下呢..謝謝.. Client端. void __fastcall TClient::ButtonClick(TObject *Sender) { IdTCPClient1->Connect(); } void __fastcall TClient::IdTCPClient1Connected(TObject *Sender) { AnsiString ss = IntToStr(BmpStream->Size); IdTCPClient1->WriteLn(ss); IdTCPClient1->WriteStream(BmpStream,false); } server: void __fastcall TShow_Selec_Value_Form::IdTCPServer1Execute( TIdPeerThread *AThread) { TMemoryStream *TempStream = new TMemoryStream(); AnsiString ss= AThread->Connection->ReadLn(); int ssi = ss.ToInt(); AThread->Connection->ReadStream(TempStream,ssi,false); } 它會說Stream read error...為什麼是這樣呢.. 謝謝...wun 你好: 可否把你的 Project 上傳至「會員求助程式檔案上傳區」 http://delphi.ktop.com.tw/forum.asp?FORUM_ID=97 我再幫你看看
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
ddy
站務副站長  發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
|
|
wun
一般會員 發表：19 回覆：20 積分：7 註冊：2002-08-24 發送簡訊給我 |
發表時間：2003-04-08 23:24:58
IP:203.203.xxx.xxx 未訂閱
系統時間：2024-04-19 19:27:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |