I am using this code:
Code: Select all
InitNetwork()
If OpenFTP(0, "XXX.XXX.XX.XXX", "XXXXX", "XXXXXXX", 0)
If ExamineFTPDirectory(0)
While NextFTPDirectoryEntry(0)
Debug FTPDirectoryEntryName(0)
Wend
EndIf
Debug "finished"
Else
MessageRequester("Error", "Can't connect to the FTP server")
EndIf
But in the debug output is: "Сервер Готы"
I tried to compile in Ansi and Unicode mode, there is no difference.