Ошибка загрузки файла на FTP!!! - Работа с сетью в Delphi

$T@LKER · 16.05.2010, 16:36

Не понимаю в чьом проблема!!!!???? Вот мой код:

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='адрес хоста';
      ftp.Port:= 21;
      ftp.Username:='логин';
      ftp.Password:='пароль';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/');
      ftp.Put('c:\1.txt','1.txt',false);
      ShowMessage('Отправлено');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Хрен! :(');
  end;

end;

Ошибка указывает на строку

Код:

ShowMessage('Отправлено');

Текст ошибки

Код:

'I won`t open a connection to 0.0.0.0 (only to 109.167.78.122).'

Помогите пожалуйста!!!! Мне завтра програму здавать а тут такое!!!! катастрова!!!!!
Очень блогадарен за помощь!!!

Alex2009 · 16.05.2010, 17:07

Ты IP указал???

$T@LKER · 16.05.2010, 17:10

Код:

Ты IP указал???

Єто разве не то самое?!

Код:

 ftp.Host:='адрес хоста';

Если нет, то подскажите чей IP и где нужно указывать???

Alex2009 · 16.05.2010, 17:15

Сори ступил

У тебя в ошибке сказано что не может соединится с IP.

$T@LKER · 16.05.2010, 17:21

Цитата:

Сори ступил
У тебя в ошибке сказано что не может соединится с IP.

опана!!! А вот нарпимер программой CuteFTP 8 Professional специально проверил то соединилось!!!! Как же мне быть!!!??? Мне очень нужно получать на FTP или на E-Mail той или иной файл как в этом пример допустим!!!! Что же делать???? И почему это оно не хочет с тем адресом соединяться???

$T@LKER · 16.05.2010, 17:21

Цитата:

Сори ступил
У тебя в ошибке сказано что не может соединится с IP.

опана!!! А вот нарпимер программой CuteFTP 8 Professional специально проверил то соединилось!!!! Как же мне быть!!!??? Мне очень нужно получать на FTP или на E-Mail той или иной файл как в этом пример допустим!!!! Что же делать???? И почему это оно не хочет с тем адресом соединяться???

ПРОШУ МОДЕРАТОРОВ УДАЛИТЬ СООБЩЕНИЕ!!! ЛИШНИЙ РАЗ ОТПРАВИЛОСЬ!!!! ПРИНОШУ СВОИ ИЗВИНЕНИЯ!!!

Alex2009 · 16.05.2010, 17:44

Вот
ссылка1
Ссылка2
Поиск рулит

$T@LKER · 16.05.2010, 18:33

Урррррррраааааааа!!!!!! Большое при большое спасибо!!!!!!! По Ссылка2 работающий способо!!!!!!! Очень благодарен!!!!! А то я уже весь день ищу и на форуме и в гугле но ничё не работает!!!!! Спасибо ещё раз!!!!!!

16.05.2010, 16:36	#1
$T@LKER Форумчанин Регистрация: 28.03.2009 Сообщений: 393	Ошибка загрузки файла на FTP!!! Не понимаю в чьом проблема!!!!???? Вот мой код: Код: `procedure TForm1.Button5Click(Sender: TObject); var ftp: TIdFTP; ms: TMemoryStream; begin ftp:=TIdFTP.Create(Application); ms:=TMemoryStream.Create; try try ftp.Host:='адрес хоста'; ftp.Port:= 21; ftp.Username:='логин'; ftp.Password:='пароль'; ftp.Connect(true, 2000); AssErt(ftp.Connected); ftp.ChangeDir('/'); ftp.Put('c:\1.txt','1.txt',false); ShowMessage('Отправлено'); finally ms.Free; ftp.Free; end; except ShowMessage('Хрен! :('); end; end;` Ошибка указывает на строку Код: `ShowMessage('Отправлено');` Текст ошибки Код: 'I won`t open a connection to 0.0.0.0 (only to 109.167.78.122).' Помогите пожалуйста!!!! Мне завтра програму здавать а тут такое!!!! катастрова!!!!! Очень блогадарен за помощь!!! ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""

16.05.2010, 17:07	#2
Alex2009 Proger Man Форумчанин Регистрация: 07.03.2009 Сообщений: 584	Ты IP указал??? ShowMessage('Добро пожаловать!');

16.05.2010, 17:10	#3
$T@LKER Форумчанин Регистрация: 28.03.2009 Сообщений: 393	Код: `Ты IP указал???` Єто разве не то самое?! Код: `ftp.Host:='адрес хоста';` Если нет, то подскажите чей IP и где нужно указывать??? ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""

16.05.2010, 17:15	#4
Alex2009 Proger Man Форумчанин Регистрация: 07.03.2009 Сообщений: 584	Сори ступил У тебя в ошибке сказано что не может соединится с IP. ShowMessage('Добро пожаловать!');

16.05.2010, 17:44	#7
Alex2009 Proger Man Форумчанин Регистрация: 07.03.2009 Сообщений: 584	Вот ссылка1 Ссылка2 Поиск рулит ShowMessage('Добро пожаловать!');

16.05.2010, 18:33	#8
$T@LKER Форумчанин Регистрация: 28.03.2009 Сообщений: 393	Урррррррраааааааа!!!!!! Большое при большое спасибо!!!!!!! По Ссылка2 работающий способо!!!!!!! Очень благодарен!!!!! А то я уже весь день ищу и на форуме и в гугле но ничё не работает!!!!! Спасибо ещё раз!!!!!! ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ошибка загрузки страницы	Vitek-pm	Общие вопросы C/C++	0	01.03.2009 01:11
Ошибка при загрузки изображения	Volkogriz	Общие вопросы Delphi	13	13.01.2009 01:51
Передача файла на FTP	Mitron	Работа с сетью в Delphi	18	02.12.2008 14:17
Минимальное приложение для загрузки файла на FTP	Gambler	Работа с сетью в Delphi	6	29.01.2008 22:58