高手请进!SendBuf与ReceiveBuf问题。(谢绝灌水!!!)

Question

1.
sizeof(MyData.bData)=1000004
strFile: String; string;是指针 sizeof (strFile)=4;
2:包太大了
    ClientSocket一次最多读8k

Answer 1

我发送文件的实例
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, Buttons, StdCtrls;type
  TFilePack=packed record
     flag:char;
     data:array [0..2042] of byte;
     size:integer;
  end;
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    procedure senddata;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.senddata;
var
  ms:TMemoryStream;
  packet:TFilePack;
  isendlen,i,Position,len:integer;begin
  ms:=TmemoryStream.Create;
  ms.LoadFromFile('D:\Project1.exe');
  len:=ms.Size-ms.Position;
  while len>0 do
  begin
    fillchar(Packet,Sizeof(TFilepack),0);    if len>2043 then
    begin
       packet.size:= 2044;
       packet.flag:='d';
    end
    else begin
       packet.size:=len;
       packet.flag:='e';
    end;    ms.Read(packet.data,packet.size);
    for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
      isendlen:=serversocket1.Socket.Connections[i].SendBuf(packet,sizeof(TFilePack));
        memo1.Lines.Add(inttostr(isendlen));
    len:=ms.Size-ms.Position;
  end;
end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  senddata;
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  serversocket1.Active:=true;
end;end.

Answer 2

好好查一查，包长是有限制的，不是你想多少就多少。比如UDP的包长是2k

Answer 3

to newyj(方恨少):
  你给的例子中的flag在接收时起什么作用？能给出接收的例子吗？成分感谢!

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ScktComp, StdCtrls, Db, ADODB;type
  TFilePack=packed record
     flag:char;
     data:array [0..2042] of byte;
     size:integer;
  end;
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    SpeedButton3: TSpeedButton;
    ADODataSet1: TADODataSet;
    procedure FormCreate(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
var
  ms:Tmemorystream;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1.Active:=true;
  ms:=Tmemorystream.Create;
end;procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buf:array [0..1024000] of byte;
  packet:Tfilepack;
  PacketLen ,i,ReceiveLen:integer;
begin  PacketLen := SizeOf(TFilepack);
  ReceiveLen := Socket.ReceiveLength;
  memo1.Lines.Add(inttostr(ReceiveLen));
  if (ReceiveLen mod PacketLen) <> 0 then
    Exit;
  Socket.ReceiveBuf(Buf, ReceiveLen);
  for i := 0 to ReceiveLen div SizeOf(TFilepack) - 1 do
  begin
    Move(Buf, packet, PacketLen);
//    memo1.Lines.Add('rec '+inttostr(Socket.SocketHandle));
    case packet.flag of
      'd':  ms.Write(packet.data,packet.size);
      'e':  begin
              ms.Write(packet,packet.size);
              ms.SaveToFile('e:\11.exe');
             // ms.SetSize(0);
          end;
      else
        ;
      end;
    //socket.SendBuf(sendtxt,sizeof(TsendTxt));
    Move(Buf[PacketLen], Buf, ReceiveLen - (i + 1) * PacketLen);
  end;end;procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  ms.SaveToFile('e:\122.exe');
   adodataset1.State
end;end.

Answer 5

flag标志包的类型；
'd'就是文件
'e'文件传送结束

Answer 6

Delphi的NMStrm使用于远程传送么？它最大可以传送多大的东西？？

Answer 7

to newyj(方恨少):
我按你给出的例子试写了一段代码，但发生错误，代码如下，请帮忙看看：
Client端：
procedure TEClient.ToolButton1Click(Sender: TObject);
var
  strFile: String;
  ms:TMemoryStream;
  packet:TFilePack;
  isendlen,i,Position,len:integer;
begin
    if not myclient.Active then
        showmessage('Please connect server.')
    else
    begin
        if opendialog1.Execute then
        begin
            strFile := OpenDialog1.FileName;
{            sendstr := 'Send File' + strFile + '//';
            sendlen := length(sendstr);
            for I:=1 to sendlen do
                buffer[I] := byte(sendstr[I]);
}
//            SendFile := TFileStream.Create(strFile,fmOpenRead);
//            len := SendFile.Read(buffer,100000);
//            myclient.Socket.SendBuf(buffer,len);
//            SendData(strFile);
            ms:=TmemoryStream.Create;
            ms.LoadFromFile(strFile);
            len:=ms.Size-ms.Position;
            while len>0 do
            begin
                fillchar(Packet,Sizeof(TFilepack),0);
                if len>2043 then
                begin
                    packet.size:= 2044;
                    packet.flag:='d';
                end
                else
                begin
                    packet.size:=len;
                    packet.flag:='e';
                end;
                ms.Read(packet.data,packet.size);
                isendlen:=Myclient.Socket.SendBuf(packet,sizeof(TFilePack));
                len:=ms.Size-ms.Position;
            end;
        end;
    end;
end;
Server端：
procedure TEServer.MyServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buf:array [0..1024000] of byte;
  packet:Tfilepack;
  PacketLen ,i,ReceiveLen:integer;
begin  PacketLen := SizeOf(TFilepack);
  ReceiveLen := Socket.ReceiveLength;
  if (ReceiveLen mod PacketLen) <> 0 then
  begin
    showmessage('error');
    Exit;
  end;
  Socket.ReceiveBuf(Buf, ReceiveLen);
  for i := 0 to ReceiveLen div SizeOf(TFilepack) - 1 do
  begin
    Move(Buf, packet, PacketLen);
    case packet.flag of
      'd':  ms.Write(packet.data,packet.size);   //执行到这行时报栈溢出
      'e':  begin
              ms.Write(packet,packet.size);
              ms.SaveToFile('d:\aaa.dat');
            // ms.SetSize(0);
          end;
      else
        ;
      end;
  end;    //socket.SendBuf(sendtxt,sizeof(TsendTxt));
    Move(Buf[PacketLen], Buf, ReceiveLen - (i + 1) * PacketLen);
end;

Answer 8

to newyj(方恨少):
我按你给出的例子试写了一段代码，但发生错误，代码如下，请帮忙看看：
Client端：
procedure TEClient.ToolButton1Click(Sender: TObject);
var
  strFile: String;
  ms:TMemoryStream;
  packet:TFilePack;
  isendlen,i,Position,len:integer;
begin
    if not myclient.Active then
        showmessage('Please connect server.')
    else
    begin
        if opendialog1.Execute then
        begin
            strFile := OpenDialog1.FileName;
{            sendstr := 'Send File' + strFile + '//';
            sendlen := length(sendstr);
            for I:=1 to sendlen do
                buffer[I] := byte(sendstr[I]);
}
//            SendFile := TFileStream.Create(strFile,fmOpenRead);
//            len := SendFile.Read(buffer,100000);
//            myclient.Socket.SendBuf(buffer,len);
//            SendData(strFile);
            ms:=TmemoryStream.Create;
            ms.LoadFromFile(strFile);
            len:=ms.Size-ms.Position;
            while len>0 do
            begin
                fillchar(Packet,Sizeof(TFilepack),0);
                if len>2043 then
                begin
                    packet.size:= 2044;
                    packet.flag:='d';
                end
                else
                begin
                    packet.size:=len;
                    packet.flag:='e';
                end;
                ms.Read(packet.data,packet.size);
                isendlen:=Myclient.Socket.SendBuf(packet,sizeof(TFilePack));
                len:=ms.Size-ms.Position;
            end;
        end;
    end;
end;
Server端：
procedure TEServer.MyServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buf:array [0..1024000] of byte;
  packet:Tfilepack;
  PacketLen ,i,ReceiveLen:integer;
begin  PacketLen := SizeOf(TFilepack);
  ReceiveLen := Socket.ReceiveLength;
  if (ReceiveLen mod PacketLen) <> 0 then
  begin
    showmessage('error');
    Exit;
  end;
  Socket.ReceiveBuf(Buf, ReceiveLen);
  for i := 0 to ReceiveLen div SizeOf(TFilepack) - 1 do
  begind
    Move(Buf, packet, PacketLen);
    case packet.flag of
      'd':  ms.Write(packet.data,packet.size);   //执行到这行时报栈溢出
      'e':  begin
              ms.Write(packet,packet.size);
              ms.SaveToFile('d:\aaa.dat');
            // ms.SetSize(0);
          end;
      else
        ;
      end;
  end;    //socket.SendBuf(sendtxt,sizeof(TsendTxt));
    Move(Buf[PacketLen], Buf, ReceiveLen - (i + 1) * PacketLen);
end;

Answer 9

太长了 ；ms.Write(packet.data,packet.size);  );  //执行到这行时报栈溢出
      不知你ms:=tmemorystream.create 执行了没有
要不吧你的东东发到[email protected]

Answer 10

抱歉，我忘了执行ms:=tmemorystream.create。但是这段代码好象无法传超过4K的文件。这样吧，我把代码发给你，帮忙看看，谢谢啦。