Не корректно загружается файл
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [216.73.217.172] |
|
|
Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.
Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
MSDN Library 
FAQ раздела 
Поиск по разделу 
Как правильно задавать вопросы
Выразить свое отношение к модераторам раздела можно здесь:
Krid, Rouse_
Указывайте точные версии Delphi и используемых сетевых библиотек.
Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
MSDN Library FAQ раздела Поиск по разделу Как правильно задавать вопросыВыразить свое отношение к модераторам раздела можно здесь:
Krid, Rouse_
Не корректно загружается файл
|
Сообщ.
#1
,
|
|
|
|
у меня возникла такая проблема мне нужно загрузит ькартинку на сервер по средстом 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 |
|
Сообщ.
#2
,
|
|
|
|
Все разобрался нужно было добавить в uses вот это IdFTPCommon и в сам код добавить эту строку idFTP1.TransferType := ftBinary;
|
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0.0480 ] [ 15 queries used ] [ Generated: 20.09.26, 18:02 GMT ]