SOCKET_BUFFER_SIZE=1024,在局域网内大于1024没问题,但在INTERNET上则会出错.是不是用UDP能大一点. 我的TCP测试速度(宽带只有1K/S) 哪位大哥指点一下,是BUFFERSIZE问题? ============ procedure pDownLoadData(Socket: TCustomWinSocket); var tmpBuf:array [0..SOCKET_BUFFER_SIZE-1] of Char; //SOCKET_BUFFER_SIZE=1024,在局域网内大于1024没问题,但在INTERNET上则会出错. iReceiveLength:Integer; sTmpInfo:string; begin with FrmDataExchangewithMainShop do begin with Socket do begin Application.ProcessMessages; iReceiveLength:=ReceiveLength; ReceiveBuf(tmpBuf,iReceiveLength); aFileStream.Write(tmpBuf,iReceiveLength); iReceiveFileSize:=iReceiveFileSize iReceiveLength; if iReceiveFileSize>=iTotalReceiveFileSize then begin //表示全部完成.. sTmpInfo:='xxxx!'; pAddMsg(sTmpInfo); SendText(CMD_CLIENT_FINISH_RECEIVE_FILE sTmpInfo); FreeAndNil(aFileStream); vStreamStatus:=False; //完成文件传送 FreeAndNil(tmpConn); if not pUNZipFile(sTmpAccFile,sGetTmpDir) then begin pAddMsg('接收的文件解压缩失败! 接收文件:' sTmpAccFile); pSetEnabled2(True); Exit; end; DeleteFile(sTmpAccFile); kSleep(1000); //开始处理数据 iType:=0; sSrcTmpAccDBFile:=sGetTmpDir SERVER_TMP_MDB_FILE_NAME; if fLoadSubShopDataFromAFileOnSub then FrmMain.dxBarButton92Click(nil); //刷新一次性信息. if Connected then pSetEnabled2(True); end else begin SendText(CMD_CLIENT_ALLOW_SERVER_NEXT_DOWNLOAD); end; end; end; end;