請問有關INDY的ReadLn的問題?? |
缺席
|
willchen
初階會員 發表:64 回覆:81 積分:29 註冊:2003-05-23 發送簡訊給我 |
以下是我的程式
Server部份 ================================================================== //---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString CurrentDir;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------- void __fastcall TForm1::Broker_ServerExecute(TIdPeerThread *AThread)
{
AnsiString Serverlet_message=AThread->Connection->ReadLn();
//Server一執行所傳回來的訊息,包含執行主機IP與Serverlet的檔名
//例如:140116039126@math
Edit1->Text=Serverlet_message;
ListBox1->Items->Add(Serverlet_message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
char buf[512];
GetCurrentDirectory(512,buf);
CurrentDir=buf;
//Broker Server 設定
Broker_Server->DefaultPort=6666; //port
Broker_Server->Active=True; //開啟
//End
}
//--------------------------------------------------------------------------- Client部分
=====================================================================
//--------------------------------------------------------------------------- #include
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |