各位大大，你們好： 我這邊有一個BCB6.0中 TServerSocket 與 TClientSocket的問題想請較 我在BCB中使用這兩個物件去傳輸圖檔，可是每次接收到的資料都只有封包的1/4是正榷的，不知是否我有哪個地方設定錯誤，煩請各位大大不吝指教，感謝 以下是我的程式碼： Server端： play = new int [raw_size]; ServerSocket1->Socket->Connections[0]->SendBuf(play,raw_size); //傳送資料到CLIENT端 play圖檔data；raw_size資料大小 Client端： void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket) { int leng = 0; leng = Socket->ReceiveLength(); int *b = new int [leng]; play[leng] = 0; Socket->ReceiveBuf(b,leng); //接收來自SERVER的DATA memcpy(&play[gdwReceiverCount],b,leng); gdwReceiverCount = leng; delete b; } ==================================================================== 以上為我的程式部分：經由Server端傳送圖檔給Client端 不知為什麼每次接收的的資料只有1/4是正確ㄉ，例如：一個TCP封包最大是8K ，而我接收時8k中只有前面2K的資料是正確的，而後面6K值均為0。 若知道原因的大大請不吝指教，感激不盡。

1.

leng = Socket->ReceiveLength();    int *b = new int [leng];
 

ReceiveLength();收到的資料為byte數,而你確用int陣列去存,空間為原來的4倍. 2.

 
memcpy(&play[gdwReceiverCount],b,leng);

想必你宣告play應該也是int.建議用 char *p = (char*)play; memcpy(&p[gdwReceiverCount],b,leng); 代替. 3.

 
play = new int [raw_size];
ServerSocket1->Socket->Connections[0]->SendBuf(play,raw_size);

ServerSocket1->Socket->Connections[0]->SendBuf(play,4*raw_size); 因為SendBuf()也是byte數.一個int等於4個byte.

引言: 各位大大，你們好： 我這邊有一個BCB6.0中 TServerSocket 與 TClientSocket的問題想請較 我在BCB中使用這兩個物件去傳輸圖檔，可是每次接收到的資料都只有封包的1/4是正榷的，不知是否我有哪個地方設定錯誤，煩請各位大大不吝指教，感謝 以下是我的程式碼： Server端： play = new int [raw_size]; ServerSocket1->Socket->Connections[0]->SendBuf(play,raw_size); //傳送資料到CLIENT端 play圖檔data；raw_size資料大小 Client端： void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket) { int leng = 0; leng = Socket->ReceiveLength(); int *b = new int [leng]; play[leng] = 0; Socket->ReceiveBuf(b,leng); //接收來自SERVER的DATA memcpy(&play[gdwReceiverCount],b,leng); gdwReceiverCount += leng; delete b; } ==================================================================== 以上為我的程式部分：經由Server端傳送圖檔給Client端 不知為什麼每次接收的的資料只有1/4是正確ㄉ，例如：一個TCP封包最大是8K ，而我接收時8k中只有前面2K的資料是正確的，而後面6K值均為0。 若知道原因的大大請不吝指教，感激不盡。

LUZ 你好:
(1)利用 TServerSocket/TClientSocket 來傳輸檔案，會掉封包是很正常的，建
   議每一次傳輸的封包大小不要超過 1.5K
(2)你可以參考這篇範例中的做法，修改你的程式碼
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25914
(3)另外，還有之前曾經討論過的相關文章也可以參考
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47778
(4)建議你善用本站的搜尋功能，剩下的資料讓你自己找吧

-- Enjoy Researching & Developing --

感謝brook與RaynorPao兩位大大的解答。    我會試著改改看的，十分感謝 ^^ 發表人 -

Brook大大與RaynorPao板主    十分感謝兩位的大力幫助，我的疑惑已經解決了  >