网络收藏

马上接帖

推荐阅读

没做过。不过肯定得分开传送再组装。  
  网上有相应的控件吧，搜搜看。

映射拷贝呀

使用winsock组件。  
  msdn有详细的vb例子。

有两种方法,使用winsock或者inet  
 

例子:  
  发送代码(form1内):      
  dim   i   as   long      
  dim   flen   as   double      
  dim   fname   as   string      
   
  fname   =   "e:\bigfile.zip"      
   
  flen   =   filelen(fname)      
  redim   b(flen   -   1)   as   byte      
   
  open   fname   for   binary   as   #1         打开输入文件。      
  get   #1,   i   +   1,   b    
  close   #1      
   
  winsock1.senddata   b      
  接收代码(form2内):      
  option   explicit      
  dim   datalen   as   double      
  ...      
  ...      
  private   sub   winsock1_dataarrival(byval   bytestotal   as   long)      
   
  对于二进制文件,数据分几次接收,每次长度不固定,保存时从上次保存的文件结尾处存盘      
  if   datalen   =   0   then   datalen   =   1      
   
  redim   s(bytestotal   -   1)   as   byte      
  dim   i   as   double      
   
  winsock1.getdata   s    
   
  open   "d:\bigfile.zip"   for   binary   as   #1           打开输出文件。      
  put   #1,   datalen,   s      
  close   #1         关闭文件。      
   
  datalen   =   datalen   +   bytestotal      
   
  end   sub      
 

正找这个.  
   
  收藏

这个我有现成的