Отправлено: 03.05.09 11:02. Заголовок: залить файл на FTP

Понадобилось мне сделать обмен текстовыми файлами с FTP сервером, в интерактиве(у меня полный доступ к серверу)
С FTP на локал- все работает: URLDownloadToFile()
А вот с локала на FTP не выходит. Использую FTPPutFile(). Коннект с ресурсом есть, ошибок не дает, но и заливки файла на FTP не происходит

 Отправлено: 03.05.09 17:08. Заголовок: Тож юзаю FTPPutFile ..

Тож юзаю FTPPutFile , проблем нет.
Юзер под которым ходиш на FTP , имеет все права для залива ?

 Отправлено: 03.05.09 17:22. Заголовок: Ну да, вроде все. Че..

Ну да, вроде все. Через TotalCommander пишу/читаю.

 Отправлено: 03.05.09 17:26. Заголовок: Firewall установлен ..

Firewall установлен ? Возможно он блокирует.....

PS
Покажи исходник начиная с InternetOpen()

 Отправлено: 03.05.09 17:41. Заголовок: oInternet := TIntern..

oInternet := TInternet():New()
oFTP:= TFTP():New( MyResouce, oInternet, Login, Password )

**********************************************************
::hFTP = InternetConnect( oInternet:hSession, cFTPSite, FTP_PORT,;
::cUserName, ::cPassword,;
INTERNET_SERVICE_FTP, 0, 0 )
**********************************************************
? oFTP:hFtp > 0
? FTPPutFile( oFTP:hFtp, LocalFile, WebFile, 0, 0 ) = .F.

Коннект есть, пароль и логин правильные(я с ними примеры гонял на скачивание файла и др.) Сам FTPPutFile() не срабатывает

Firewall не ставил, но у меня Стрим на роутере, а сколь я знаю - ADSL модемы в этом режиме поддерживают некий внутренний Firewall

 Отправлено: 03.05.09 18:07. Заголовок: Попробуй аналог из W..

Попробуй аналог из What32 , работаю с ним.

 Отправлено: 03.05.09 18:16. Заголовок: What32 - в смысле W..

What32 - в смысле What32.lib, тогда аналог чего ?

 Отправлено: 03.05.09 18:23. Заголовок: fil пишет: аналог ч..

fil пишет:

цитата:

аналог чего ?

FTPPutFile

 Отправлено: 03.05.09 18:28. Заголовок: Примерно так на скор..

Примерно так на скорую руку

 
 hInternet := InternetOpen() 
    if hInternet # 0 
        hFtp := InternetConnect( hInternet.......бла бла бла) 
            if hFtp #0 
       if !FtpPutFile( hFtp......бла бла бла) 
 ? "Передача не удалась" 
       endif    
 InternetCloseHandle( hFtp ) 
            endif  
 InternetCloseHandle( hInternet ) 
   endif 
  
 

ЗЫ
What32.lib
Golden FTP Server Pro

 Отправлено: 04.05.09 09:50. Заголовок: Сделал обоими вариан..

Сделал обоими вариантами - чрез TFTP и через InternetOpen(). FtpPutFile() возвращает .T., но сам файл не переписывается. Что может быть ? Может все-таки админа трясти на доступ ?

 Отправлено: 04.05.09 12:21. Заголовок: Через Таском работае..

Через Таском работает. Админ вроде не виноват. Надо смотреть на разных каналах

 Отправлено: 04.05.09 12:27. Заголовок: Было что то похожее ..

Было что то похожее на мобильных операторах.
Проверяли Утел , КиевСтар , UMC
У всех работал доступ по FTP с помощью Total Commander или же FlashFXP.
FtpPutFile сработал только на Утел.
Причину так и не выяснили.

PS
У обычного кабельного провайдера тож работает без проблем.

 Отправлено: 04.05.09 14:00. Заголовок: fil пишет: Сделал о..

fil пишет:

цитата:

Сделал обоими вариантами -

Вот еще вариант, класс qFtp . У меня все работало. Кстати проверял с Димой :) Класс пришлю..

******************************
Static Function FTPTest()
******************************
local oFTP

Ferase("logftp.txt")

oFTP:=qFTPClient():New("85.30.228.77", 21, {|cMessage| Logfile("logftp.txt", {cMessage})},,, )

oFTP:lPassive := .T.
if oFTP:Connect()
MsgInfo("Успешное моединение с сервером " + oFTP:cServer + CRLF + oFTP:cServerIP + CRLF + oFTP:oSocket:ClientIP())
if oFTP:Cd("/Upload/(=SOFT=)/m/mmk/")
MSginfo("Поменяли дирректорию...")

if oFTP:Dir()
Msginfo("Посмотрим , что в ней есть")
Aeval(oFTP:acDir, {| cDir, nCount | Msginfo(Str(nCount) + " " + cDir)})
oFTP:Retr("/Upload/(=SOFT=)/m/mmk/bn.w", "bn.w")
oFTP:Del("V37.dbf")
oFTP:Stor("pr.obj", "/Upload/(=SOFT=)/m/mmk/pr1.obj")
oFTP:Rename("bn.w", "bn.backup")
oFTP:Quit()
oFTP:End()
Msginfo("Пока все")
else
Msginfo("Не удалось просмотреть дирректорию!")
oFTP:Quit()
oFTP:End()
endif
else
Msginfo("Не удалось поменять дирректорию!")
oFTP:Quit()
oFTP:End()
endif
else
Msginfo("Соединение не состоялось!")
endif

return nil

 Отправлено: 04.05.09 15:09. Заголовок: MMK пишет: Кстати п..

MMK пишет:

цитата:

Кстати проверял с Димой :)

Да было такое много много лет назад :)

Можно еще попробовать библиотеку TIP.LIB

 Отправлено: 05.05.09 23:07. Заголовок: Заработало, однако. ..

Заработало, однако. MMK спасибо !