VB.NET实用教程之VB.NET实现登陆Ftp经典方案讲解

上一章对与VB.NET抓取网页乱码的问题的解决方案，今天VB.NET实用教程教你对于VB.NET实现登陆Ftp的方法，快看看学习一下吧。我们都知道远程视频传输可以采用线程下载、图片压缩，还可以考虑先储存进数据库中

目前成都创新互联公司已为1000+的企业提供了网站建设、域名、雅安服务器托管、网站托管运营、企业网站设计、源城网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

VB.NET实用教程代码：

 
 
   
  
  Private   sckConnect   As   New   Socket(AddressFamily.InterNetwork,   SocketType.Stream,   ProtocolType.Tcp)     
  
  Private   RemoteIp   As   IPEndPoint     
  
  Private   thd   As   Thread     
  
  Private   blnExt   As   Boolean   =   True     
  
  Private   _Quality   As   Int16   =   50     
  
  Public   WriteOnly   Property   Quality()   As   Int16　’这个函数表示服务器要求的图片质量     
  
  Set(ByVal   value   As   Int16)     
  
  _Quality   =   value     
  
  End   Set     
  
  End   Property     
  
  Private   Sub   run()     
  
  Dim   byt()   As   Byte     
  
  Dim   stream   As   MemoryStream     
  
  Dim   bmp   As   Bitmap     
  
  While   blnExt     
  
  Try     
  
  bmp   =   getGrcToBmp()　　　 '这是获取图片     
  
  stream   =   New   MemoryStream     
  
  Compress(bmp,   stream,   _Quality)   '这里对图片进行压缩函数     
  
  byt   =   stream.ToArray     
  
  sckConnect.Send(byt,   byt.Length,   SocketFlags.None)     
  
  byt.Initialize()     
  
  stream   =   Nothing     
  
  Thread.Sleep(30)　　 '30毫秒，也就是１秒中传送33次图片     
  
  Catch   ex   As   Exception     
  
  Call   Ext()     
  
  End   Try     
  
  End   While     
  
  End   Sub     
  
  Public   Sub   Send(ByVal   ip   As   String,   ByVal   port   As   Integer)　 '服务器的IP和Port     
  
  Try     
  
  RemoteIp   =   New   IPEndPoint(IPAddress.Parse(ip),   port)     
  
  sckConnect.SendTimeout   =   100     
  
  sckConnect.Connect(RemoteIp)     
  
  If   sckConnect.Connected   Then     
  
  thd   =   New   Thread(AddressOf   run)     
  
  thd.Start()     
  
  End   If     
  
  Catch   ex   As   Exception     
  
  MsgBox(ex.Message)     
  
  Exit   Sub     
  
  End   Try     
  
  End   Sub     
  
  Public   Sub   Ext()     
  
  Try     
  
  blnExt   =   False     
  
  thd   =   Nothing     
  
  sckConnect.Disconnect(True)     
  
  sckConnect.Close()     
  
  Catch   ex   As   Exception     
  
  End   Try     
  
  End   Sub

以上是VB.NET实用教程对VB.Net实现登陆Ftp的方法的一个讲述，希望大家在平时的工作中总结出更好的方法。

【编辑推荐】

浅析VB.NET语言与VB语言对比
你是否了解VB.NET集成开发环境
深入分析VB.NET条件语句中的两类
五大类VB.NET运算符全面介绍
全面讨论VB.NET申明Windows API函数

网页标题：VB.NET实用教程之VB.NET实现登陆Ftp经典方案讲解
转载来于：http://www.csdahua.cn/qtweb/news29/4779.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容