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

請問有關INDY的ReadLn的問題??

缺席
willchen
初階會員


發表:64
回覆:81
積分:29
註冊:2003-05-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-29 19:33:44 IP:211.74.xxx.xxx 未訂閱
以下是我的程式 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  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; AnsiString IP; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Serverlet_IP->Active=True; IP=Serverlet_IP->LocalIP(); Edit1->Text=IP; Broker_Client->Port=6666; Broker_Client->Host="140.116.39.126"; //連到Service Broker } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Broker_Client->Connect(); Broker_Client->WriteLn(IP); } //--------------------------------------------------------------------------- 我的目的是,一但Client程式執行時,會傳本身的IP給Server讓Server知道他的IP,我是用WriteLn與ReadLn做,我在單機上try(127.0.0.1)沒問題,但如果我在家執行Client(浮動,且加裝IP Router),Server在學校執行(固定IP),就會出問題,請問各位高手,這是什麼原因??是不是我的Readln一定得設終止符號才行?? 小弟才疏學淺,問這個笨問題,請多指教 < class="code">
系統時間:2024-07-01 12:58:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!