Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

TidFTP в Delphi 2010

Страницы: 1
TidFTP в Delphi 2010
#1
08.07.2010 21:28:33
В общем проблема такая... При отправке/загрузке файлов некорректно отображаются русские буквы в именах файлов...
 
 
#2
09.07.2010 01:59:24
Может быть, дело в том, что на некоторых серверах запрещено делать файлы с русскими названиями?
Accende lumen sensibus, infude ainorem corbidus!
 
 
#3
09.07.2010 09:58:14
На сервере есть файлы с русскими буквами, но загрузить их не получается... Хотя через Total Commander всё работает smile;)
 
 
#4
09.07.2010 14:56:10
В общем проблема тут в самом FTP сервере... Потому как с одним сервером всё работает, с другим нет...
 
 
#5
09.07.2010 21:08:01
Цитата
Valera пишет:
На сервере есть файлы с русскими буквами, но загрузить их не получается... Хотя через Total Commander всё работает

Как интересно. А если так попробовать
Код
program out;
     
{..$apptype console}
uses
  windows,
  wininet;

var
 conn_param,inet_open : hinternet;

procedure upload(filename:pchar; ftpfilename:pchar);
const
port=21;
begin
 inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
//Настройки коннекта( фтп, логин, пасс)
 conn_param := internetconnect(inet_open,'ftp.site.ru',port,'login','pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sl eep(100);
 ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
 internetclosehandle(conn_param);
 internetclosehandle(inet_open) ;
END;

begin
//Путь к файлу для загрузки, имя файла на фтп..
upload('C:\файл.zip','/pub/файл.zip');
if True then
exit;
end.
 
 
#6
09.07.2010 22:01:48
Да... Так может и сработает, но это ведь WinAPI smile8)
Но всё равно не на всех серверах... Потому как даже Total Commander в данном случае не всегда работает...
Изменено: Valera - 09.07.2010 22:06:24
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)