Need a HELP!

Программирование на Active Server Pages и VBScript.
Ghost_of_Net
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 27.12.2004 (Пн) 16:06

Need a HELP!

Сообщение Ghost_of_Net » 27.12.2004 (Пн) 16:15

Пытаюсь написать FTP клиент на VBS, использую Catalyst SocketCtrl. В примерах дан вполне действующий кусок кода,
Возможно ли его заствить работать в VBS:

Function FtpGetResult(strResult As String) As Integer
Dim strBuffer As String
Dim cchBuffer As Integer
Dim strLine As String
Dim nPos As Integer
Dim nResult As Integer
Dim bContinue As Integer

FtpGetResult = 0
strResult = ""
bContinue = True
Do While bContinue = True
cchBuffer = formMain.sockCmd.Read(strBuffer, 512)
If cchBuffer < 1 Then
formMain.sockCmd.Action = SOCKET_DISCONNECT
Exit Function
End If
Do
nPos = InStr(strBuffer, vbCrLf)
If nPos > 0 Then
strLine = strLine + Left(strBuffer, nPos - 1)
cchBuffer = cchBuffer - (nPos + 1)
strBuffer = Right(strBuffer, cchBuffer)
nResult = Val(Left(strLine, 3))
If Mid(strLine, 4, 1) <> "-" Then
bContinue = False
End If
If Len(strResult) > 0 Then strResult = strResult + " "
strResult = strResult + Right(strLine, Len(strLine) - 4)
strLine = ""
Else
strLine = strLine + strBuffer
Exit Do
End If
Loop
DoEvents
Loop
FtpGetResult = nResult
End Function

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 27.12.2004 (Пн) 16:58

Думаю, да.



Если в начало вставить

Код: Выделить всё
set ftpctrl = createobject(имяклассаобъектафтпконтрола)




И затем использовать его вместо formMain.sockCmd

Ghost_of_Net
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 27.12.2004 (Пн) 16:06

Сообщение Ghost_of_Net » 28.12.2004 (Вт) 16:40

RayShade писал(а):Думаю, да.

Если в начало вставить
Код: Выделить всё
set ftpctrl = createobject(имяклассаобъектафтпконтрола)


И затем использовать его вместо formMain.sockCmd


Что самое удивительное я это сделал... Постоянно выскакиевает ошибка "Несоответствие типа"

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 28.12.2004 (Вт) 16:48

А SOCKET_DISCONNECT объявлена?
Lasciate ogni speranza, voi ch'entrate.

Ghost_of_Net
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 27.12.2004 (Пн) 16:06

Сообщение Ghost_of_Net » 30.12.2004 (Чт) 18:28

alibek писал(а):А SOCKET_DISCONNECT объявлена?

Объявлена, объявлена... Вылетает на:
Код: Выделить всё
cchBuffer = formMain.sockCmd.Read(strBuffer, 512)

Вылетает только в VBS, в VB работает без проблем... Я того чтобы все это перенести в VBS я чуть-чуть подправил код VB...


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList