Re: FTP+SSL and login. (General questions)

by Ronny H Andersen, Wednesday, August 17, 2005, 10:42 (6828 days ago) @ wodSupport

Ronny,

perhaps setting Ftp1.Blocking=True will help? Can't tell more since I don't see whole code, but that could be it.

Did not change the situation..
I'll install Etherreal and see what comes up...

Complete code:

Option Explicit
Dim WithEvents wodFtpDLX1 As wodFtpDLX
Dim theCert As Certificate

Private Sub Command1_Click()
On Error GoTo feil

Set wodFtpDLX1 = New wodFtpDLX
Set theCert = New Certificate

theCert.LoadKey C:\Certs\ws_ftp_test_mot_pc46172.key , test
theCert.Load C:\Certs\ws_ftp_test_mot_pc46172.crt , test
Debug.Print theCert.Text

'wodFtpDLX1.Authentication = authCertificate
wodFtpDLX1.Authentication = authBoth
Set wodFtpDLX1.Certificate = theCert

wodFtpDLX1.HostName = 10.23.24.226
wodFtpDLX1.Login = xxx
wodFtpDLX1.Password = xxx
wodFtpDLX1.Port = 20

'wodFtpDLX1.Protocol = wodFtpDLXLib.ProtocolsEnum.FTP
'wodFtpDLX1.Protocol = wodFtpDLXLib.ProtocolsEnum.FTPSnodata
wodFtpDLX1.Protocol = wodFtpDLXLib.ProtocolsEnum.FTPSwithdata
'wodFtpDLX1.Protocol = wodFtpDLXLib.ProtocolsEnum.FTPSimplicit

wodFtpDLX1.StrictHost = False
' wodFtpDLX1.Passive = True
wodFtpDLX1.Blocking = True

wodFtpDLX1.Connect
Exit Sub

feil:
List1.AddItem Err.Description & vbCrLf & Err.Number
Set wodFtpDLX1 = Nothing
Set theCert = Nothing
End Sub

Private Sub Command2_Click()
On Error GoTo feil
wodFtpDLX1.ListDir
Exit Sub
feil:
List1.AddItem Err.Description & vbCrLf & Err.Number
End Sub

Private Sub Command3_Click()
' Testing standard FTP - internal server
On Error GoTo feil

Set wodFtpDLX1 = New wodFtpDLX

wodFtpDLX1.Authentication = authPassword

wodFtpDLX1.HostName = vebt1553
wodFtpDLX1.Login = ronny
wodFtpDLX1.Password = ronny
wodFtpDLX1.Protocol = wodFtpDLXLib.ProtocolsEnum.FTP

wodFtpDLX1.Connect
Exit Sub

feil:
List1.AddItem Err.Description & vbCrLf & Err.Number
Set wodFtpDLX1 = Nothing
End Sub

' Reset objects
Private Sub Command4_Click()
On Error Resume Next
wodFtpDLX1.Disconnect
Set wodFtpDLX1 = Nothing
Set theCert = Nothing
End Sub

Private Sub Form_Load()
List1.Clear
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Command4_Click
End Sub

Private Sub wodFtpDLX1_Connected(ByVal ErrorCode As Long, ByVal ErrorText As String)
Debug.Print Connected
List1.AddItem > Connected > & ErrorText
End Sub

' State changes
Private Sub wodFtpDLX1_StateChange(ByVal OldState As wodFtpDLXLibCtl.StatesEnum)
On Error Resume Next
Debug.Print State changed to & wodFtpDLX1.StateText
List1.AddItem State : & wodFtpDLX1.StateText
End Sub