Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=389838&view=findpost&p=3475044 Wed, 07 May 2014 09:23:22 +0000 Не корректно загружается файл https://forum.sources.ru/index.php?showtopic=389838&view=findpost&p=3475044 corsar1991 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=389838&view=findpost&p=3474696 Tue, 06 May 2014 15:11:09 +0000 Не корректно загружается файл https://forum.sources.ru/index.php?showtopic=389838&view=findpost&p=3474696 делаю так
Цитата
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 Delphi: Сетевое программирование