求一段用socket多用户多文件下载源码！！急急^^^^^(50分)

hs9206 · 2006-03-16

要求： clientsocket作客户端：用服务端硬盘上文件存放的位置如： d:/server/file/01.tw        192.168.1.101 e:/server/file/13.tw        192.168.1.100 d:/server/file/345.tw       192.168.1.100 e:/server/file/6435.tw      192.168.1.10 和该文件服务端的IP 如上,clientsocket根据这两个参数从服务端下载 文件服务端的文件到本地，（下载后我可以将TW文件转换成可用的格式 这个不在问题讨论里） seversocket做监听，可能在多用户同时请求下载文件时，响应， 并发文件到客户端…………… 源码呀，不要只讲思路，因为我对socket的编程很不熟悉！！！！

hs9206 · 2006-03-17

const BLOCKSIZE = 1024 * 4; const TRT_FILE = '001'; const TRT_NOP = '999'; //============================= 客户端 procedure TF_Main.ClientSocket1Read(Sender: TObject;  Socket: TCustomWinSocket); var  li_actbyte: integer; //当前分块（此块）流的大小  lb_tmpbuff: array[0..BLOCKSIZE] of char; //流缓存空间 begin  li_actbyte := Socket.ReceiveLength;  Socket.ReceiveBuf(lb_tmpbuff, li_actbyte); //追加接收流  ist_picstream.Write(lb_tmpbuff, li_actbyte); //写入内存  StatusBar1.Panels[1].Text := '传输中...';  StatusBar1.Panels[2].Text := inttostr(ist_picstream.Size div 1024) + 'Kb已传输';  if li_actbyte < BLOCKSIZE then //“流” 剩最后一块时或未开始接文件时    执行  begin    ist_picstream.Position := 0; //内存指向首位置    if is_transtype = TRT_FILE then //传的是文件  执行    begin      Save_localFIleName:= Save_FilePath + extractfilename(Save_FilePathName);      ist_picstream.SaveToFile(Save_localFIleName);      StatusBar1.Panels[3].Text := extractfilename(Save_FilePathName) + '保存成功';      StatusBar1.Panels[1].Text := '传输完毕';    //  clientsocket1.Close;   //================================    end;    ist_picstream.Clear;    socket.SendText(TRT_NOP);    if Breadover = true then    F_play.Show      else TwtoWav(Save_localFIleName,Save_FilePath,true) ;    //=======================================================    if listbox1.Count > 0 then  listbox1.Items.Delete(0);    listbox1.Refresh;    Breadover:=false;    if listbox1.Count > 0 then  TimerSend(sender);  end  else  socket.SendText(is_cmdtext); //继续该文件//文件名 end; 服务端: procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  Socket: TCustomWinSocket); var  ls_receive: string;  ls_info: string;  ls_cmd: string;  i: integer; begin  ls_receive := Socket.ReceiveText;  ls_cmd := copy(ls_receive, 1, 3);  ls_info := copy(ls_receive, 4, length(ls_receive) - 3);  if ls_cmd = TRT_FILE then  begin    if FileExists(ls_info) then uf_sendfile(ls_info)    else begin      for I := 0 to (serversocket1.socket.ActiveConnections - 1) do      begin        serversocket1.Socket.Connections.SendText('004ERROR');      end;    end;  end; end; procedure TForm1.uf_sendfile(as_filename: string); var  li_actbyte: longint;  lb_tmpbuff: array[0..BLOCKSIZE - 1] of char;  I, j: integer; begin  if ist_memstrem.Size = 0 then  begin    ist_memstrem.LoadFromFile(as_filename);    il_leave := ist_memstrem.Size;    for j := 0 to (serversocket1.socket.ActiveConnections - 1) do    begin      serversocket1.Socket.Connections[j].SendText('003' + IntTOstr(il_leave));    end;  end;  if il_leave > BLOCKSIZE then    li_actbyte := BLOCKSIZE  else li_actbyte := il_leave;  il_leave := il_leave - li_actbyte;  ist_memstrem.ReadBuffer(lb_tmpbuff, li_actbyte);  if il_leave = 0 then    ist_memstrem.Clear;  for I := 0 to (serversocket1.socket.ActiveConnections - 1) do  begin    serversocket1.Socket.Connections.SendBuf(lb_tmpbuff, li_actbyte);  end; end; 我在本机上可以传完，可是在网络上只传第一个包，不传以后的，也就是都小于4K 文件在500k到10M 之间

hs9206 · 2006-03-17

////??????????????????????????????????????? 请高手帮忙很急呀

hs9206 · 2006-03-20

没有人回答，请版本帮我收一下分，问题到此为止！谢谢 我通过其它途径完成了，相同的功能了！

ifeng · 2006-03-29

不要用DELPHI的SOCKET控件，自己写，没有那么复杂，建立监听线程

求一段用socket多用户多文件下载源码！！急急^^^^^(50分)

hs9206

Unregistered / Unconfirmed

hs9206

Unregistered / Unconfirmed

hs9206

Unregistered / Unconfirmed

hs9206

Unregistered / Unconfirmed

ifeng

Unregistered / Unconfirmed

Similar threads