Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2014, 11:55   #1
corsar1991
Пользователь
 
Регистрация: 14.01.2011
Сообщений: 14
По умолчанию Не корректно загружается файл

у меня возникла такая проблема мне нужно загрузит ькартинку на сервер по средстом FTP
делаю так
Код:
procedure TForm1.Button4Click(Sender: TObject);
      var
      format:string;
begin
format:='jpg';
idFTP1:=TidFTP.Create(nil);
  IdFTP1.Host := 'stav-csss-ru.1gb.ru'; // FTP-сервер
  IdFTP1.Port := 21; // порт ФТП сервера
  IdFTP1.Username := '******';
  IdFTP1.Password := '*******';
  IdFTP1.Connect;
  IdFTP1.ChangeDir('/images/'+edit3.text);

  IdFTP1.Put('E:\images\'+edit3.text+'\'+edit6.text+'.'+format, edit6.text+'.'+format, false);




  IdFTP1.Disconnect;
end;
и получается вот что
исходная картинка
http://stav-csss-ru.1gb.ru/images/0/13-2.jpg

конечная картинка которая была загружена на сервер
http://stav-csss-ru.1gb.ru/images/0/13.jpg

Последний раз редактировалось Stilet; 07.05.2014 в 15:05.
corsar1991 вне форума Ответить с цитированием
Старый 07.05.2014, 13:23   #2
corsar1991
Пользователь
 
Регистрация: 14.01.2011
Сообщений: 14
По умолчанию

Все разобрался нужно было добавить в uses вот это IdFTPCommon и в сам код добавить эту строку idFTP1.TransferType := ftBinary;
corsar1991 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Текстовый файл открывается не корректно. newd Общие вопросы Delphi 8 06.07.2013 14:41
Неправильно загружается X файл impulsgraw Мультимедиа в Delphi 4 10.04.2012 17:09
не загружается bmp-файл ThisIzGame Gamedev - cоздание игр: Unity, OpenGL, DirectX 14 22.07.2010 17:20
не загружается ini файл в Delphi TaYgA Помощь студентам 9 30.10.2009 09:56
Почему файл не загружается на форум? Вадим Буренков О форуме и сайтах клуба 8 15.07.2009 09:07