关于传送速度的问题和FTP的问题

[jsfserver]

如果服务器和客户端之间传送数据,一般服务器的带宽大,客户端带宽小,而自己写的服务器端的程序不断的send数据到客户端,那客户端来不及接收怎么办?是TCP/IP,不是UDP.
还有怎么实现限速?
最后谁有FTP的服务器和客户端的实现原理及相应API的函数,不要组件的
每个问题20分

[pp616]

xpdavis(咕嘟) ( ) 信誉：106 2006-05-12 09:44:00 得分: 0


客户端来不及收的话，服务端发送会阻塞，这是TCP的流控功能。

写了个测试程序。代码如下
//.cpp
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TCustomWinSocket *Sock=NULL;
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}

void __fastcall TForm1::FormCreate(TObject *Sender){
ServerSocket1->Port=4321;
ServerSocket1->Active=true;
}
void __fastcall TForm1::Button1Click(TObject *Sender){
ClientSocket1->Host="127.0.0.1";
ClientSocket1->Port=4321;
ClientSocket1->Active=true;
}
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,TCustomWinSocket *Socket){
Sock=Socket;
}
void __fastcall TForm1::Button2Click(TObject *Sender){
char buf[2048];
ULONG SendCount=0;
memset(buf,'A',2048);
if(Sock)
{
for(int i=0;i<100000;i++)
{
if(!Sock->Connected) break;
Sock->SendBuf(buf,2048);
SendCount+=2048;
Application->ProcessMessages();
}
}
ShowMessage("SendCount="+IntToStr(SendCount));
}
void __fastcall TForm1::ServerSocket1ClientError(TObject *Sender,TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode){
ShowMessage("Error Code:"+IntToStr(ErrorCode));
}
void __fastcall TForm1::Button3Click(TObject *Sender){
ULONG RecvCount=0;
int RecvLen=0;
char *p;
while(ClientSocket1->Socket->Connected)
{
RecvLen=ClientSocket1->Socket->ReceiveLength();
if(RecvLen==0) break;
p=(char *)malloc(RecvLen);
ClientSocket1->Socket->ReceiveBuf(p,RecvLen);
free(p);
RecvCount+=RecvLen;
}
ShowMessage("RecvCount="+IntToStr(RecvCount));
}

//.h
#ifndef Unit1H
#define Unit1H
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ScktComp.hpp>
class TForm1 : public TForm
{
__published: // IDE-managed Components
TClientSocket *ClientSocket1;
TServerSocket *ServerSocket1;
TButton *Button1;
TButton *Button2;
TButton *Button3;
void __fastcall FormCreate(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall ServerSocket1ClientConnect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall Button2Click(TObject *Sender);
void __fastcall ServerSocket1ClientError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
int &ErrorCode);
void __fastcall Button3Click(TObject *Sender);
private: // User declarations

public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
extern PACKAGE TForm1 *Form1;
#endif

[pp616]

运行结果RecvCount != SendCount 也没出现任何错误。

弄了半天没想通，请问xpdavis(咕嘟)为什么会这样呢？？？

[jsfserver]

随便问一下,每个人提问的分数是不是有限制的?如果提问多了,分数用多了是不是就不能再提问了?在哪里看自己的分数?(这些问题没分)

[铖邑]

客户端来不及收的话，服务端发送会阻塞，这是TCP的流控功能。

[3996906]

每秒发送一次。。。一次20k。。呵呵，就能限速了。。。

相应的API函数和成熟的组件有区别吗。。区别不大。。

每天上csdn就能有10分的可用分。。

有时候上论坛用分问问题不错。。有的QQ群啊，msn啊，也能找到一些人问问题。。。

解决问题才是关键。。这里的分数只是个象征。。当不了饭滴。。。

祝你好运。。。

BTW：UDP也是TCP/IP。。。你要求用的TCP会满足你的要求的。。。