我想請教二個問題;我在使用IdIPMCastClient/Server寫了一個傳字串的測試， 可是出了二個問題， 一、我在物件檢視窗設定了client的Bindings屬性，可以成功傳，但是將其0-    TSocketHandles刪除，在client的FormCreate內加入      

     AnsiString szip="140.X.X.X";
     IdIPMCastClient1->Bindings->Items[0]->ClientPortMax=10;
     IdIPMCastClient1->Bindings->Items[0]->ClientPortMin=1;
     IdIPMCastClient1->Bindings->Items[0]->IP=szip;
     IdIPMCastClient1->Bindings->Items[0]->Port=4000; 
     

無法成功傳該字串，請問各位大大是那裡出錯? 二、設定位址部分如果本機測試用127.0.0.1設定sever端ip也無法成功接收， 且要連上網路才能編譯成功，很直覺的不知是為什麼?? 麻煩各位了!! server

 
//---------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
 IdIPMCastServer1->Active=false;
 IdIPMCastServer1->Port=4000;
 Memo1->Clear();         
}
//-------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdIPMCastServer1->Active=true;
Memo1->Lines->Add("sending...String(test)...");
TStringStream *ms=new TStringStream(NULL);
AnsiString sz="test";
ms->Write(&sz,sizeof(sz));
IdIPMCastServer1->Send(sz);
Memo1->Lines->Add("sending over...String(test)...");
}
//-------------------------------------------------------------------

client

 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
IdIPMCastClient1->DefaultPort=5000;
//AnsiString szip="140.X.X.X";
IdIPMCastClient1->Active=true;
//IdIPMCastClient1->Bindings->Items[0]->ClientPortMax=10;
//IdIPMCastClient1->Bindings->Items[0]->ClientPortMin=1;
//IdIPMCastClient1->Bindings->Items[0]->IP=szip;
//IdIPMCastClient1->Bindings->Items[0]->Port=4000;
}
//-------------------------------------------------------------------    void __fastcall TForm1::IdIPMCastClient1IPMCastRead(TObject *Sender,
      TStream *AData, TIdSocketHandle *ABinding)
{
TStringStream *ms =new TStringStream(NULL);
ms->CopyFrom(AData,AData->Size);
Memo1->Lines->Add(ms->DataString);
}

發表人 - sixblack 於 2005/10/05 08:18:47 發表人 - sixblack 於 2005/10/05 17:42:40

在這裡先謝過各位先進了，我先將其結案，再去找找答案。如不行再請教!

又是我，我想要表達的是如何以敘述來設定IdIPMCastClient的bindings屬性，而不是在object inspector設死，這樣可以讓我方便變更server端的機台，在其IdIPMCastClient->DefaultPort=XXXX設定也可以解決，但是就變成廣播了，而我想要達到的是multicast，請教各位先進要如何解決。