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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |