ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / отправить файл по ФТП
25 сообщений из 38, страница 1 из 2
  1  все
отправить файл по ФТП
    #39598039
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
не могу отправить файл по ФТП !

после выполнения кода показывает ошибку времени выполнения и на сервере создается файл file.txt с нулевым размером

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
     ftp.Connect ;
       AssErt(ftp.Connected);
       ftp.ChangeDir(ftp_path);
      ftp.Put('c:\file.txt','file.txt',false);
      ShowMessage('Отправлено');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Не получилось!');
  end;
...
Рейтинг: 0 / 0
07.02.2018, 11:38
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598046
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
1. Используй кнопку SRC для обёртки кода.
2. Используй Отладчик, чтобы узнать хотя бы, на какой строке ошибка.
3. Приятно, конечно, понимать, что ты нас считаешь экстрасенсами и телепатами, но здесь не Битва экстрасенсов, твой экран не виден нам и тексты ошибок отгадывать ещё не научились.

Можно, конечно, погадать немного.
Не вижу, чтобы поток читал файл, т.е. что ты отправляешь - пустой файл?
...
Рейтинг: 0 / 0
07.02.2018, 11:44
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598050
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
ftp.Put('c:\file.txt','file.txt',false);
Здесь зависает

отправляю не пустой файл - размер 1,16 КБ
...
Рейтинг: 0 / 0
07.02.2018, 11:47
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598060
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
terlalex,

1. Оформляй исходники - как исходники. Читай http://www.sql.ru/faq/faq_topic.aspx?fid=202

2. Как именно подключается программа к серверу, расскажи устройство сети на протяжении от одного комьпютера к другому. Попробуй поиграть с активным и пассивным FTP-режимами.

3. ЗА чем ты создаешь объекты ,которым нигде ни разу не пользуешься???
Код: pascal
1.
ms:=TMemoryStream.Create;
...
Рейтинг: 0 / 0
07.02.2018, 11:53
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598073
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
А как включить активный режим FTP ?
...
Рейтинг: 0 / 0
07.02.2018, 12:04
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598076
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
terlalex,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
  
   FTP.Mode:=????
   FTP.UserName:=????
   FTP.Password  :=????
   try
       FTP.Connect;
       if FTP.Connected then
         begin
              FTP.Put(........);
              FTP.Disconnect;
         end;
   except on E:Exception do
         ErrorString:=E.Message;
   end;
...
Рейтинг: 0 / 0
07.02.2018, 12:06
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598085
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
FTP.Mode

как установить? какие есть значения ?
...
Рейтинг: 0 / 0
07.02.2018, 12:13
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598090
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
terlalex,

Ошибся, по памяти писал. FTP.TransferType нужно.
...
Рейтинг: 0 / 0
07.02.2018, 12:19
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598096
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
FTP.TransferType

тоже пробовал , но тут не ясно
по идее, значения может принимать ftASCII и ftBinary
но не принимается ((
...
Рейтинг: 0 / 0
07.02.2018, 12:24
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598102
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
terlalex,

Текст ошибки покажи - тебе FTP должен сказать, что у него не так - или соединится не может или еще чего.
...
Рейтинг: 0 / 0
07.02.2018, 12:34
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598104
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
[dcc32 Error] Unit7.pas(144): E2003 Undeclared identifier: 'ftBinary'
[dcc32 Fatal Error] F2063 Could not compile used unit 'Unit7.pas'
...
Рейтинг: 0 / 0
07.02.2018, 12:35
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598108
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
terlalex,

В Uses IdFTPCommon добавь.
...
Рейтинг: 0 / 0
07.02.2018, 12:38
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598116
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
Оба режима пробовал
Все равно - таймаут!!!!

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
 ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try

      ftp.Host:=ftpHost;
      ftp.Port:=ftpPort;
      ftp.Username:=ftp_login;
      ftp.Password:=ftp_password;

       FTP.TransferType := ftBinary;
 //    FTP.TransferType := ftASCII;

     ftp.Connect ;
       AssErt(ftp.Connected);
       ftp.ChangeDir(ftp_path);
       ftp.Put('c:\file.txt','file.txt',false);
      ShowMessage('Отправлено');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Не удачно');
...
Рейтинг: 0 / 0
07.02.2018, 12:45
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598126
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
terlalex,

Ну а другими FTP клиентами ты зайти на FTP можешь? Ну там FAR`ом например.
...
Рейтинг: 0 / 0
07.02.2018, 13:02
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598131
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
да filezilla отлично подключился !
...
Рейтинг: 0 / 0
07.02.2018, 13:05
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598203
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Arioch Попробуй поиграть с активным и пассивным FTP-режимами.

binary/ascii к этому никак не относится, вообще никак

прочитай хотя бы https://ru.wikipedia.org/wiki/FTP#Соединение_и_передача_данных

если ты вообще ничего не знаешь о своей задаче, то и решить ее не сможешь


Arioch1. Оформляй исходники - как исходники. Читай http://www.sql.ru/faq/faq_topic.aspx?fid=202
...
Рейтинг: 0 / 0
07.02.2018, 14:07
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598211
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
а зачем вот это?

terlalexms:=TMemoryStream.Create;
...
Рейтинг: 0 / 0
07.02.2018, 14:18
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598215
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
terlalexftp.Put('c:\file.txt','file.txt',false);
Здесь зависает

отправляю не пустой файл - размер 1,16 КБ

Смотри логи FTP сервера.
...
Рейтинг: 0 / 0
07.02.2018, 14:19
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598218
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
terlalexftp.ChangeDir(ftp_path);

после этого посмотри, что возвращает
Код: pascal
1.
Ftp.RetrieveCurrentDir;



ты уверен, что сменил папку?
...
Рейтинг: 0 / 0
07.02.2018, 14:21
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598222
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
X11а зачем вот это?

terlalexms:=TMemoryStream.Create;

Чтобы было. Какая ж программа без утечек памяти?-)

Я к тому, что бессмысленное создание сущностей приводит к замусориванию кода как минимум.
...
Рейтинг: 0 / 0
07.02.2018, 14:22
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598231
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
X11,

логи, логи....

terlalexна сервере создается файл file.txt с нулевым размером

90% что он через NAT (а может быть и не один NAT) в активном режиме ломится

Надо иметь минимальное представление о задаче, которую программируешь, всё же
...
Рейтинг: 0 / 0
07.02.2018, 14:35
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598237
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
terlalex,

Попробуй сменить режим с активного на пассивный (или наоброт).
...
Рейтинг: 0 / 0
07.02.2018, 14:40
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598245
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
после

Ftp.RetrieveCurrentDir;

вернуло

'Not Connected'
...
Рейтинг: 0 / 0
07.02.2018, 14:49
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598247
terlalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
terlalex
Участник
режимы меняю

так FTP.TransferType := ftBinary;

и так FTP.TransferType := ftASCII;
...
Рейтинг: 0 / 0
07.02.2018, 14:50
| Ответить | Цитировать | Написать  
отправить файл по ФТП
    #39598251
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
terlalexрежимы меняю

нет не меняешь

21173150
...
Рейтинг: 0 / 0
07.02.2018, 14:55
| Ответить | Цитировать | Написать  
25 сообщений из 38, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / отправить файл по ФТП
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39598237&tid=2041260]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 63ms
get tp. blocked users:
 1ms
others: 238ms
total:  506ms
созд. / загр.: 506ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]