// Client
#define IDENTIFY_STRING "abcd\0"
typedef struct _SEND_STRUCT
{
   wchar_t wszIden[10];
   wchar_t wszText[1024];
} SEND_STRUCT, *PSEND_STRUCT;
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
   SEND_STRUCT ss;
   Socket->ReceiveBuf(&ss, sizeof(SEND_STRUCT));       char szIden[10]={0};
   WideCharToMultiByte(CP_ACP, 0, ss.wszIden, -1, szIden, 10, NULL, NULL);
   if(!strcmp(IDENTIFY_STRING, szIden))
   {
      char szText[1024]={0};
      WideCharToMultiByte(CP_ACP, 0, ss.wszText, -1, szText, 1024, NULL, NULL);
      ShowMessage((AnsiString)szText);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ClientSocket1->Address="192.168.1.1";
   ClientSocket1->Port=4000;
   ClientSocket1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   ClientSocket1->Close();
}

leeli 你好:
(1)client 端收到 "a" 代表 Unicode 字串已經傳過去了
(2)有注意到我上面定義的 structure 嗎?? 實際上在傳輸過程之前的字串會像
   這樣子 "abcd\0測試傳送字串abcdefg\0"
(3)其中前面 5 個 bytes ("abcd\0")是用來做 identify 的，之後的字串才是
   要傳輸的字串內容
(4)但是因為要轉成 Unicode，所以整個資料結構都會變得不一樣了(因為英文字
   ANSI 只佔 1 byte，轉成 Unicode 以後變成佔 2 byte)，所以原來的字串
   "abcd\0" 的 ANSI 串流為以下這樣子(16 進位)
   61 62 63 64 00
   被轉成 Unicode 以後的串流為以下這樣子(16 進位)
   61 00 62 00 64 00 64 00 00 00
(5)所以在你的 Client 端如果用 char* 或 AnsiString 去接這個串流的話，當
   然只能看到第 1 個 byte 0x61，因為第 2 個 byte 就是 0x00，就直接截掉
   了(這是 NULL terminated string 的特性)
(6)如果你的 Client 端不配合更改的話，那就在傳送之前先不要轉成 Unicode
   等傳送完成以後，在 Client 端自行轉成 Unicode，這樣問題會簡單許多
(7)如果你還不太了解我在說什麼的話，請參考以下程式碼在 Server 端執行以
   後會產生兩個檔案 ms1.dat, ms2.dat，用 UltraEdit 把這兩個檔案打開，
   好好觀察這兩個檔案的內容，ms1.dat 是 ANSI 的格式，ms2.dat 是Unicode
   的格式，看完以後，你大概就會知道我在說什麼了
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   SEND_STRUCT ss;
   ZeroMemory(&ss, sizeof(SEND_STRUCT));       AnsiString szIden=IDENTIFY_STRING;
   AnsiString szText="測試傳送字串abcdefg";

   TMemoryStream *ms1=new TMemoryStream;
   BYTE bSend[5 512]={0};
   CopyMemory(bSend, szIden.c_str(), szIden.Length() 1);
   CopyMemory(bSend szIden.Length() 1, szText.c_str(), szText.Length() 1);
   ms1->Size=5 512;
   ms1->Write(bSend, ms1->Size);
   ms1->SaveToFile("ms1.dat");
   delete ms1;       MultiByteToWideChar(CP_ACP, 0, szIden.c_str(), -1, ss.wszIden, 5*2);
   MultiByteToWideChar(CP_ACP, 0, szText.c_str(), -1, ss.wszText, 512*2);       TMemoryStream *ms2=new TMemoryStream;
   ms2->Size=sizeof(SEND_STRUCT);
   ms2->Write(&ss, ms2->Size);
   ms2->SaveToFile("ms2.dat");
   delete ms2;    //   ServerSocket1->Socket->Connections[0]->SendBuf(&ss, sizeof(SEND_STRUCT));
}