Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

TidTelnet и метод Disconnect;   Найти похожие ветки 

 
AV ©   (2012-02-14 14:53) [0]

Есть код
в отдельном потоке выполняется
     oqMainOrder.Close;
     oqMainOrder.Open;
     if oqMainOrder.IsEmpty then
       Sleep(15000) else
       begin
         try
           S12.Open;
           while not(oqMainOrder.Eof) do
           begin
             некая работа
           end;
         finally
           S12.Close;
         end;

S12: TS12NewCom;
procedure TS12NewCom.Open(TimeOut: Integer);
begin
 if not(FIdTelnet.Connected) then
   FIdTelnet.Connect(TimeOut);
 FTimer.Enabled := True;
 PrepareToCmd;
end;
procedure TS12NewCom.Close;
begin
 FTimer.Enabled := False;
 FCntMin := 0;
 //FIdTelnet.Disconnect;
end;

на удаленной машине есть софтина, писана на делфи, исходников нет.
ждет строку на порту
По telnet передаю, жду ответ и отсоединяюсь
на строке FIdTelnet.Disconnect; на удаленной машине возникает ошибка
Asynchronous socket error 10053

Понятно, что там что -то надо подкрутить. Но возможности нет. Как бы мне со своей стороны не давать там такой ошибке происходить?
Я пробую вообще не отключаться. И это работает. Но это не правильно с т.з. логики.


 
AV ©   (2012-02-14 16:17) [1]

не там закрывал поток.
Он что-то еще отдавал, а я его уже прикрывал.



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

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.468 c
15-1346775365
pasha_golub
2012-09-04 20:16
2013.03.22
Как привести TList<TField> к простому TList


15-1346257406
Разведка
2012-08-29 20:23
2013.03.22
Проблема нехватки памяти


15-1345581002
Юрий
2012-08-22 00:30
2013.03.22
С днем рождения ! 22 августа 2012 среда


15-1328771976
CleriC
2012-02-09 11:19
2013.03.22
Можно ли установить CnWizards (CnPack) для двух версий Delphi?


15-1351946151
xayam
2012-11-03 16:35
2013.03.22
Производство магнитов в России