下面是我的程式碼 for Delphi 6 所使用的元件為 TServerSocket procedure TMainForm.FileServerClientRead(Sender: TObject; Socket: TCustomWinSocket); var FileName: String; SendFile: File; Buffer: array[1..1024] of Char; SourceCount: Integer; begin FileName := Socket.ReceiveText; FileName := ProgramPath ImagePath FileName; // 檢測檔案是否存存，不存在則傳回預設檔 if not FileExists(FileName) then begin FileName := ProgramPath ImagePath 'error.gif'; end ; // 開啟檔案 AssignFile(SendFile,FileName); ReSet(SendFile,1); // 唯讀模式，一次讀取一筆資料 // 讀取資料並傳送 repeat BlockRead(SendFile,Buffer,Sizeof(Buffer),SourceCount); Socket.SendBuf(Buffer,sizeof(Buffer)); until (SourceCount=0); CloseFile(SendFile); Socket.Close; end; 現在我要另外寫一個 Client 端來接收此資料，但是我試過很多的方法就是沒有辦法正常的接收，是否有那位大大可以教授一下，謝謝，非常感激 ( 使用的元件為 TClientSocket )

這一行 Socket.Close; 先刪掉 試試看    如果還不行請將 Client 端 的程式貼上來    問題..希望不是最後才發生！建議一次問完！

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.