傳輸文件的問題 在線程處理過程裏面 Procedure TClientThread.ClientExecute; 執行以下的語句 GetMem(bufSend,ThreadSendStream.size); // ThreadSendStream是從一個jpg文件中得到的Tmemorystream流 try ThreadSendStream.Read(bufSend^,ThreadSendStream.Size ); SendResult:=ClientSocket.SendBuf(bufSend^,ThreadSendStream.Size); finally FreeMem(bufSend,ThreadSendStream.Size); end; Receivedata: array [0..3,0..1] of Longint //總體變數 在用戶端Tclientsocket的OnRead裏面 iLength:=Socket.ReceiveLength; GetMem(bufRecv,iLength); Socket.ReceiveBuf(bufRecv^,iLength); try Receivedata[0,0]:=ReceiveData[0,0] iLength; ProgressBar.Max :=Receivedata[0,1]; // Receivedata[0,1]爲之前收到的伺服器傳輸文件的大小。文件大小在24K左右 ProgressBar.Position:=Receivedata[0,0]; StatusBar1.Panels[0].Text:='正在傳輸' Chanel1.Hint '圖像，已完成' Inttostr(Trunc((Receivedata[0,0] / Receivedata[0,1])*100)) '%'; Recstream[0].WriteBuffer(bufRecv^,iLength);// if Receivedata[0,0]>=Receivedata[0,1] then begin Socket.SendText(MP_END); //完成傳輸 End; Finally freeMem(bufRecv,iLength); end; 問題是，在局域網內傳輸的時候有的電腦是正常的，有的電腦接收到的資料包長度〉實際伺服器端發送的資料包長度。Receivedata[0,0]- Receivedata[0,1]〉0 但是在廣域網傳輸就沒有問題。而且同樣的一台電腦在局域網工作不正常。但在廣域網就沒有問題。

提問者您好:


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


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


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

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