FTP Client

[iolaus]

Народ не поможите, я что-то не догоняю...

Я отправляю на ftp сервер команду pasv сокетом, мне в ответ приходит набор цифр.... А что собственно с ними делать дальше?? я так понима, что эти цифры мне должны сказать куда посылать данные, но мне они не говорят ни чего...


Или может кто знает готовый контрол, но не тот что на vbstrrts лежит...

[xenomorph]

Привет!

После PASV сервак сообщает на какой порт к нему коннектиться.
Читай РФСи для формата.

Вот код добывающий порт:

'====================================================
'Define Port Connect Transport Socket
Public Sub DefinePortConnectTransportSocket()

Dim l_Pos1 As Long
Dim l_Pos2 As Long
Dim l_Additor As Long
Dim l_Base As Long
Dim s_Temp As String
Dim l_Port As Long

l_Pos1 = InStr(s_ConBuffer, "(")
l_Pos2 = InStr(s_ConBuffer, ")") - 1

s_Temp = Mid(s_ConBuffer, l_Pos1 + 1, l_Pos2 - l_Pos1)
l_Pos1 = InStrRev(s_Temp, ",")
l_Additor = CLng(Mid(s_Temp, l_Pos1 + 1, Len(s_ConBuffer) - l_Pos1))
s_Temp = Left(s_Temp, l_Pos1 - 1)
l_Pos1 = InStrRev(s_Temp, ",")
l_Base = CLng(Mid(s_Temp, l_Pos1 + 1, Len(s_ConBuffer) - l_Pos1))
l_Port = l_Base * 256 + l_Additor

'Set Port
ws_Transporter.Close
ws_Transporter.RemotePort = l_Port
ws_Transporter.RemoteHost = ws_Controller.RemoteHost
ws_Transporter.Connect

Debug.Print "Port Found! Connecting ..."
Call Log("Port Found! Connecting ...")

End Sub
'====================================================

Если хотишь полностью работающий фтп клиент.
(С автоскриптами входа (!))

Поиск по моему нику и форуму.

[xenomorph]

http://bbs.vbstreets.ru/download.php?id=1721