shing187 你好:
(1)UDP: 利用 Indy V9.00.11 元件 TIdUDPServer
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34405
(2)TCP: 利用 Indy V9.00.11 元件 TIdTCPServer/TIdTCPClient
// Server
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   IdTCPServer1->DefaultPort=4000;
   IdTCPServer1->Active=true;
}
__fastcall TForm1::~TForm1()
{
   IdTCPServer1->Active=false;
}
void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{
   AnsiString szCommand=AThread->Connection->ReadLn();
   if(szCommand=="SendMeFile")
   {
      TFileStream *fs=new TFileStream("24bit.bmp", fmOpenRead);
      try
      {
         AThread->Connection->WriteStream(fs, true, true, 0);
      }
      __finally
      {
         delete fs;
      }
   }
}
// Client
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   IdTCPClient1->Host="192.168.1.1";
   IdTCPClient1->Port=4000;
   IdTCPClient1->Connect(3000);
}
__fastcall TForm1::~TForm1()
{
   IdTCPClient1->Disconnect();
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(IdTCPClient1->Connected())
   {
      TFileStream *fs=new TFileStream("24bit.bmp", fmCreate);
      try
      {
         IdTCPClient1->WriteLn("SendMeFile");
         IdTCPClient1->ReadStream(fs, -1, false);
         ms->SaveToFile("24bit.bmp");
      }
      __finally
      {
         delete fs;
      }
   }
}