ftp数据传输(FTP数据传输方式)

ftp可以传输任何类型的文件。通过FTP几乎可以传输任何类型的文件，例如文本文件、二进制可执行文件、图像和声音文件、数据压缩文件等。普通的FTP服务器，需事先申请用户名和口令，通过身份验证后才能使用该服务器提供的各种服务。ftp的概括普通的FTP服务器，需事先申请用户名和口令，通过身份验证后才能使用该服务器提供的各种服务。匿名FTP服务器，是对公众开放的FTP服务器，任何人都可以使用Anonymous作为用户名，使用电子邮件地址作为口令登录，在公共目录中查找和下载文件，但不能上传文件。如果系统中安装了CuteFTP，执行开始菜单中的程序、CuteFTP、CuteFTP命令，可启动CuteFTP应用程序，打开Site Manger，FTP站点管理器窗口，在站点列表中双击一个站点已定义，即可与建立该FTP的连接。

首先必须要保证对方的服务器必须配置了 FTP 服务供大家进行资源共享（无论是 WINDOWS 服务器也好、还是各种版本的 Linux系统服务器也好），且进行了相关登录帐号的设置（匿名登录名称为：anonymous）、以及文件、子目录的读写权限的设置。然后在别的机器上若需要进行 FTP 传输文件，可以在本机上面安装一个 FTP 客户端程序（通常是 CutpFtp、wsftp_pro等），然后在 FTP 客户端软件中输入 FTP 服务器的 IP 地址，再输入 FTP 服务器需要你提供的用户名及密码，然后就可以进行文件的传输了（当然了，至于说 FTP服务器是否允许用户上传文件、以及允许用户将文件上传到哪一个子目录中，这些都是由 FTP 系统管理员进行设置的）。
2、知道用户名和密码 3、在ie地址栏中输入ftp：//ip地址（域名）@用户名：密码也好像是ftp：//用户名：密码@ip地址（域名）－－－我记不清了，你都试试。4、如果登录成功，就能看到ftp服务的文件目录，和本地目录差不多5，将你本地的文件直接拖到远端目录即可。 还有专门的软件：cutftp 可以上传或下载。
用ftp传输文件方法详见： https://jingyan.baidu.com/article/6f2f55a18992a5b5b93e6ce2.html
可以使用IIS7服务器管理工具。IIS7服务器管理工具是一款绿色中文的FTP管理软件，中文界面操作起来更方便快捷。作为FTP工具，功能方面能定时上传下载，自动更新，自动备份，对于FTP工具来说相当方便。此外，它不仅可以管理ftp,同时也是vnc的客户端iis7服务器管理工具,是服务器批量管理集成器.windows与linux都可以集成管理,可谓是非常方便.

不知道你的winsock 是udp还是tcpip协议这里给你一个我写的实例 我是用的udp 这个发送了一段数据不一定接收就正确 所以我做了校验'以下是发送文件的Option ExplicitDim GetFileNum As Integer, LenFile As Long, SendByte() As Byte '发送的包Private Sub Command1_Click()On Error Resume NextCommand1.Enabled = FalseGetFileNum = FreeFile '取得未使用的文件号LenFile = FileLen(Text1.Text) '获得需传送的文件的长度If Text2.Text = "" Or Right(Left(Text2.Text, 2), 1) <> ":" Then Text2.Text = Text1.TextWinsock0.SendData "#SEND STA#" & LenFile & "//" & Text2.TextWt 0.5Open Text1.Text For Binary As #GetFileNum '打开需传送的文件Call TCPSendFile(Winsock0, GetFileNum, SplitFile) '传送文件Me.Caption = NowTi.Enabled = TrueEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim A As StringOn Error Resume NextCommand2.Top = -2000Winsock0.RemoteHost = IPX '服务器ipWinsock0.RemotePort = FilePortEnd SubPrivate Function SplitFile() As Long '拆包'为了清晰,下面分别用两个子过程来完成计算这次还可以传多少个字节的数据和传送数据On Error Resume NextDim GetCount As LongIf LenFile >= 4000 Then '计算出这次可发送的字节数GetCount = 4000LenFile = LenFile - GetCountElseGetCount = LenFileLenFile = LenFile - GetCountEnd IfSplitFile = GetCountEnd FunctionPrivate Sub TCPSendFile(objWinSock As Winsock, FileNumber As Integer, SendLen As Long)On Error Resume NextDim FileByte() As Byte, I As Long, j As Long, Temp As String * 4ReDim SendByte(0)ReDim FileByte(SendLen - 1)Temp = SendLen + 7SendByte = Temp '把长度负值给包头Get #FileNumber, , FileByte '读取文件ReDim Preserve SendByte(SendLen + 7) '把包头+到文件头For I = 0 To UBound(FileByte)SendByte(I + 7) = FileByte(I)'DoEventsNextWinsock0.SendData SendByteEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextWinsock0.CloseErr.ClearEnd SubPrivate Sub TEnd_Timer()On Error Resume NextWinsock0.SendData "#END#"Err.ClearEnd SubPrivate Sub Ti_Timer()On Error Resume NextWinsock0.SendData "#ERR#"End SubPrivate Sub Winsock0_DataArrival(ByVal bytesTotal As Long)On Error Resume NextDim S As StringWinsock0.GetData SSelect Case SCase "ok" '成功继续发送If LenFile = 0 Then '发送完成If S <> "#SEND END#" Then Winsock0.SendData "#SEND END#"Me.Caption = "文件上传成功!"Command1.Enabled = TrueTi.Enabled = FalseTEnd.Enabled = TrueExit SubElseMe.Caption = "文件上传完成:[" & Left((FileLen(Text1.Text) - LenFile) / FileLen(Text1.Text) * 100, 4) & "%]"End IfCall TCPSendFile(Winsock0, GetFileNum, SplitFile)Case "#END#"TEnd.Enabled = FalseFMain.TiF.Enabled = TrueCase "no" '不成功重发上一个包Winsock0.SendData SendByteEnd SelectEnd Sub'以下是接收文件的Option ExplicitDim FOK As Boolean, Fs As Long, FileNumber As Integer, LenFile As Long  '文件的长度Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error Resume NextDim A As StringMe.Caption = "开始下载"If Dir(Text2.Text) <> "" And ChV.Value = 0 ThenIf MsgBox("文件已经存在,覆盖吗?", vbCritical + vbYesNo) = vbYes Then Kill Text2.Text Else Exit SubElseKill Text2.TextEnd IfIf Text2.Text = "" Then Text2.Text = Text1.Text'Command2.Enabled = FalseIf Ch.Value = 0 Then A = "#DOW#" Else A = "#DOV#"FMain.Wsk.SendData A & Text1.TextWt 1FMain.Wsk.SendData "#DOE#" & Text2.TextEnd SubPrivate Sub Form_Load()Dim A As String'FMain.Ts.Enabled = TrueOn Error Resume NextIf FMain.Cb.Text = "本地组" Or FMain.Cb.Text = "全部组" ThenMe.Caption = "请重选下载用户[“组”不能正确下载]"ElseCommand1.Top = -2000Winsock0.LocalPort = FilePortWinsock0.BindEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextWinsock0.CloseErr.ClearEnd SubPrivate Sub La_Click()CDL.FileName = ""CDL.ShowOpenText2.Text = CDL.FileNameEnd SubPrivate Sub Winsock0_DataArrival(ByVal bytesTotal As Long)On Error Resume NextDim FileByte() As Byte, A As String, MendByte() As Byte, I As Long, J As Long, Temp As String, W As StringWinsock0.GetData FileByte, vbArray + vbByte '接收类型为:字节数组J = UBound(FileByte) '获得包长For I = 0 To 7 Step 2 '合并包头Temp = Temp & Chr(FileByte(I))NextFor I = 0 To 9 '文件发送结束标记A = A & Chr(FileByte(I))NextIf A = "#ERR#" Then Winsock0.SendData "no"If A = "#END#" ThenFor I = 0 To Len(FMain.TIn.Text)If I < 100 ThenW = Left(Right(FMain.TIn.Text, I), 1)If W = "!" ThenW = Left(Right(FMain.TIn.Text, I + 4), 5)Exit ForEnd IfElseExit ForEnd IfNext IIf W <> "下载完成!" ThenFOK = FalseMe.Caption = "下载完成![" & Text2.Text & "]"FMain.TIn.Text = FMain.TIn.Text & "[" & Now & "]" & "下载完成!(" & Fs & "<=" & LenFile & ")" & vbCrLfCommand2.Enabled = TrueEnd IfElseIf Val(Temp) = J Then '比较长度看丢包没有ReDim MendByte(J - 8)For I = 0 To J - 8 '提出包头MendByte(I) = FileByte(I + 7)NextFs = Fs + UBound(FileByte) - 7Put #FileNumber, , MendByte '写文件Winsock0.SendData "ok" '发送继续发送的请求Me.Caption = "文件下载完成:[" & Left(Fs / LenFile * 100, 4) & "%]"ElseIf Left(A, 10) = "#SEND STA#" ThenA = ""For I = 10 To UBound(FileByte) '文件发送结束标记A = A & Chr(FileByte(I))NextLenFile = Val(Left(A, InStr(A, "//") - 1))For I = 0 To Len(Text2.Text)A = Left(Right(Text2.Text, I), 1)If A = "" Then Exit ForNextIf Dir(Left(Text2.Text, Len(Text2.Text) - I + 1), vbDirectory) = "" Then MkDir Left(Text2.Text, Len(Text2.Text) - I + 1)'"#SEND STA#" & FileLen(Text1.Text) & "//" & Text2.TextFileNumber = FreeFile '取得未使用的文件号Fs = 0Open Text2.Text For Binary As #FileNumber '打开文件ElseIf A <> "#SEND END#" ThenWinsock0.SendData "no" '出现丢包，请求重发ElseWinsock0.SendData "#END#" '发送继续发送的请求Close #FileNumberResetIf FOK = False ThenFOK = TrueMe.Caption = "下载完成![" & Text2.Text & "]"FMain.TIn.Text = FMain.TIn.Text & "[" & Now & "]" & "下载完成!(" & Fs & "<=" & LenFile & ")" & vbCrLfCommand2.Enabled = TrueElseFOK = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd Sub

FTP可以采用2种工作模式，分别是Port模式、Passive模式；FTP的传输有两种方式：ASCII、二进制：1、ASCII传输方式：假定用户正在拷贝的文件包含的简单ASCII码文本，如果在远程机器上运行的不是UNIX，当文件传输时ftp通常会自动地调整文件的内容以便于把文件解释成另外那台计算机存储文本文件的格式2、二进制传输模式：在二进制传输中，保存文件的位序，以便原始和拷贝的是逐位一一对应的。即使目的地机器上包含位序列的文件是没意义的。例如，macintosh以二进制方式传送可执行文件到Windows系统，在对方系统上，此文件不能执行。扩展资料：FTP文件传输协议的特点介绍：FTP工作在TCP/IP模型的应用层，基于的传输协议是TCP，FTP客户端和服务器之间的连接是可靠的，面向连接的，为数据的传输提供了可靠的保证。FTP的主要特征：1、控制连接是建立在客户协议解释器和服务器协议解释器之间用于交换命令与应答的通信链路2、数据连接是传输数据的全双工连接。传输数据可以发生在服务器数据传输过程DTP和客户DTP之间，也可以发生在两个服务器的DTP之间。参考资料来源：百度百科-ftp
FTP是在TCP/IP协议中传输数据，标准的命令使用的是TCP协议的21号端口，数据传输端口使用的是TCP协议的20号端口。 FTP的文件传输方式有两种：1、ASCII模式。ASCII模式一般用来传输文本文件；2、binary模式。除了文本文件外的其他文件用binary模式。 FTP 是File Transfer Protocol（文件传输协议）的英文简称，而中文简称为“文传协议”。用于Internet上的控制文件的双向传输。用Internet语言来说，用户可通过客户机程序向（从）远程主机上传（下载）文件。常用的ftp文件传输命令为：bin、asc、put、get、mput、mget、prompt、bye。
ftp是上传下载的一个软件，可以把本地文件或着网站上传到服务器，就是这个大体过程

ftp可以传输任何类型的文件。通过FTP几乎可以传输任何类型的文件，例如文本文件、二进制可执行文件、图像和声音文件、数据压缩文件等。普通的FTP服务器，需事先申请用户名和口令，通过身份验证后才能使用该服务器提供的各种服务。ftp的概括普通的FTP服务器，需事先申请用户名和口令，通过身份验证后才能使用该服务器提供的各种服务。匿名FTP服务器，是对公众开放的FTP服务器，任何人都可以使用Anonymous作为用户名，使用电子邮件地址作为口令登录，在公共目录中查找和下载文件，但不能上传文件。如果系统中安装了CuteFTP，执行开始菜单中的程序、CuteFTP、CuteFTP命令，可启动CuteFTP应用程序，打开Site Manger，FTP站点管理器窗口，在站点列表中双击一个站点已定义，即可与建立该FTP的连接。