Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Вниз

Проблема с инди фтп   Найти похожие ветки 

 
KyRo   (2006-09-15 13:19) [0]

У меня проблема при загрузке системы инди фтп клиент не хочет загружать данные с сервера.
На нем стоит
idFtp1.ReadTimeout:=1000;
При этом не какая ошибка не происходит и не отваливается по таймауту !!!
Вот лог работы клиента
Stat Connected.
Recv 15.09.2006 12:09:20: 220 Serv-U FTP Server v6.1 for WinSock ready...<EOL>
Sent 15.09.2006 12:09:20: USER update<EOL>
Recv 15.09.2006 12:09:20: 331 User name okay, need password.<EOL>
Sent 15.09.2006 12:09:20: PASS update<EOL>
Recv 15.09.2006 12:09:20: 230 User logged in, proceed.<EOL>
Sent 15.09.2006 12:09:20: TYPE I<EOL>
Recv 15.09.2006 12:09:20: 200 Type set to I.<EOL>
Sent 15.09.2006 12:09:20: SYST<EOL>
Recv 15.09.2006 12:09:20: 215 UNIX Type: L8<EOL>
Sent 15.09.2006 12:09:20: SIZE Ver_Client.txt<EOL>
Recv 15.09.2006 12:09:20: 213 7<EOL>
Sent 15.09.2006 12:09:20: PORT 10,0,10,65,4,32<EOL>
Recv 15.09.2006 12:09:20: 200 PORT Command successful.<EOL>
Sent 15.09.2006 12:09:20: RETR Ver_Client.txt<EOL>
Recv 15.09.2006 12:09:20: 150 Opening BINARY mode data connection for Ver_Client.txt (7 Bytes).<EOL>
Stat Disconnected.
Stat Connected.
Recv 15.09.2006 12:12:20: 220 Serv-U FTP Server v6.1 for WinSock ready...<EOL>
Sent 15.09.2006 12:12:20: USER update<EOL>
Recv 15.09.2006 12:12:20: 331 User name okay, need password.<EOL>
Sent 15.09.2006 12:12:20: PASS update<EOL>
Recv 15.09.2006 12:12:20: 230 User logged in, proceed.<EOL>
Sent 15.09.2006 12:12:20: TYPE I<EOL>
Recv 15.09.2006 12:12:20: 200 Type set to I.<EOL>
Sent 15.09.2006 12:12:20: SYST<EOL>
Recv 15.09.2006 12:12:20: 215 UNIX Type: L8<EOL>
Sent 15.09.2006 12:12:20: SIZE Ver_Client.txt<EOL>
Recv 15.09.2006 12:12:20: 213 7<EOL>



Происходит это только после перезагрузки системы !! Может у кого то было что то похожее ?


 
Сергей М. ©   (2006-09-15 13:35) [1]

у тебя ошибка в программе


 
Dmitrij_K   (2006-09-15 13:45) [2]

таймаут 1 секунда это плохо


 
KyRo   (2006-09-15 13:48) [3]

А где хоть примерно она может быть ? Если все отлично работает когда система уже загружена !!  А если программа стартует автоматически после перезагрузки происходит вот такая херня.
//Считываем версию на сервере
 Try
     idFtp1.Connect(True,10000);
 EXCEPT
     label5.Caption:="no";
   if time_aut = 0
      then
        begin
          time_aut:=1 ;
          StartTimer.Interval:=300000;
          TrayIcon1.MinimizeApp;
          StartTimer.Enabled:=True;
          idFtp1.Disconnect;
          exit;
        end
      else
        begin
           Start_Upd.Enabled:=True;
           label5.Caption:="no";
           exit;
        end;
 END;
  try
    size:=idFtp1.Size("Ver_Client.txt");
  EXCEPT
     // Если не удалось прочитать по таймауту
    if StartTimer.Interval= 200
       then size:=0;
  END;
if size = 0
    then
      begin
        if time_aut <> 0
           then
              begin
                 label5.Caption:="no";
                 Start_Upd.Enabled:=True;
                 idFtp1.Disconnect;
                 exit;
              end;
         time_aut:=1 ;
         StartTimer.Interval:=300000;
         TrayIcon1.MinimizeApp;
         idFtp1.Disconnect;
         StartTimer.Enabled:=True;
         exit;
      end ;
 Try
   idFtp1.Get("Ver_Client.txt",ExtractFilePath(Application.ExeName)+ "\Rolback\Ver_Client.txt",True,False);
 EXCEPT
  if StartTimer.Interval= 200
       then exit;
  if time_aut = 0
      then
        begin
          time_aut:=1 ;
          StartTimer.Interval:=300000;
          TrayIcon1.MinimizeApp;
          idFtp1.Disconnect;
          StartTimer.Enabled:=True;
          exit;
        end
      else
        begin
          Start_Upd.Enabled:=True;
          idFtp1.Disconnect;
          label5.Caption:="no";
          exit;
        end;
 END;


И вот как видно из кода и лога проходит конект ,проходит запрос размера файла  , а когда начинаю грузить файл на этом и залипает . А если отключаюсь и второй раз пытаюсь приконектится происходит

Stat Connected.
Recv 15.09.2006 12:12:20: 220 Serv-U FTP Server v6.1 for WinSock ready...<EOL>
Sent 15.09.2006 12:12:20: USER update<EOL>
Recv 15.09.2006 12:12:20: 331 User name okay, need password.<EOL>
Sent 15.09.2006 12:12:20: PASS update<EOL>
Recv 15.09.2006 12:12:20: 230 User logged in, proceed.<EOL>
Sent 15.09.2006 12:12:20: TYPE I<EOL>
Recv 15.09.2006 12:12:20: 200 Type set to I.<EOL>
Sent 15.09.2006 12:12:20: SYST<EOL>
Recv 15.09.2006 12:12:20: 215 UNIX Type: L8<EOL>
Sent 15.09.2006 12:12:20: SIZE Ver_Client.txt<EOL>
Recv 15.09.2006 12:12:20: 213 7<EOL>

Вот это .
Кстати не могут антивирусы как то перебивать заливку ?


 
KyRo   (2006-09-15 13:51) [4]


> Dmitrij_K   (15.09.06 13:45) [2]
> таймаут 1 секунда это плохо


Он все равно не происходит !!! Не не ошибки , ничего просто залипает и все ! Блок EXCEPT не срабатывает


 
Сергей М. ©   (2006-09-15 13:56) [5]

Отключи опцию активного FTP-протокола и попробуй


 
KyRo   (2006-09-15 14:35) [6]

В пасивном отработало !!!!
В чем может быть загвоздка ? И не повлияет ли пасивный режим как небуть на работу программы ?


 
Сергей М. ©   (2006-09-15 14:43) [7]


> В чем может быть загвоздка ?


В том что некая программа (файрвол, антивирус или что-то еще) перекрыла доступ к указанному порту извне.


> не повлияет ли пасивный режим как небуть на работу программы


В общем и целом не повлияет.
Активный режим дает некие преимущества, но поскольку ты о них ничего не знаешь, этот режим тебе нафиг не нужен.


 
Сергей М. ©   (2006-09-15 14:45) [8]

Если твой ФТП-клиент работает через NAT (и иже с ним по смыслу), то активный режим может быть задействован только после его (NAT"а) соотв.настроек.


 
KyRo   (2006-09-15 15:02) [9]

ок спасибо !



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1164974166
Patrick
2006-12-01 14:56
2007.02.25
Нетрадиционный параметр


11-1148619176
igorek_2005
2006-05-26 08:52
2007.02.25
Как создать TToolBar?


15-1170665012
Ega23
2007-02-05 11:43
2007.02.25
Выбор решения: куда копать?


9-1144573893
ArtemESC
2006-04-09 13:11
2007.02.25
Реализация 3D движка


2-1170752763
Juice
2007-02-06 12:06
2007.02.25
raise Exception





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский