Не корректно загружается файл - Работа с сетью в Delphi

corsar1991 · 07.05.2014, 11:55

у меня возникла такая проблема мне нужно загрузит ькартинку на сервер по средстом 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

corsar1991 · 07.05.2014, 13:23

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

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.*

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Текстовый файл открывается не корректно.	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

07.05.2014, 13:23	#2
corsar1991 Пользователь Регистрация: 14.01.2011 Сообщений: 14	Все разобрался нужно было добавить в uses вот это IdFTPCommon и в сам код добавить эту строку idFTP1.TransferType := ftBinary;