Скачать: CL | DM;

IdTelnet и получение ответов   Найти похожие ветки 

← →
fishka   (2006-12-20 11:27) [0]

Использую компонет IdTelnet. В цикле посылаю команду (например, dir). Думаю, что после каждой команды должен быть ответ, т.е. должно происходить событие IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: String); В данном событии данные буфера записываются в текстовый файл с именем, определяемым в цикле.
Но почему-то файл получается только после последненго прохода цикла.
Вопрос: почему не происходит событие IdTelnet1DataAvailable после посылки команды IdTelnet1.SendCh? И как сделать, чтобы после выполнения IdTelnet1.SendCh(CR) можно было получить данные, посланные сервером Telnet?

---

← →
Сергей М. ©   (2006-12-20 11:43) [1]

Что за цикл ? Показывай ...

---

← →
fishka   (2006-12-20 11:47) [2]

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add("select distinct DNID, id_LES_region from DNID" );
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
var_dnid:="dnid "+ADOQuery1.FieldByname("DNID").AsString+" "+ADOQuery1.FieldByname("id_LES_region").AsString;
varr:="dir";
for i:=1 to length(varr) do
  begin
   IdTelnet1.SendCh(varr[i]);
  end;
   IdTelnet1.SendCh(CR);
 ADOQuery1.Next;
end;
ADOQuery1.Close;

---

← →
Сергей М. ©   (2006-12-20 11:57) [3]

Понятно.

И зачем тут цикл по символам ком.строки ?
Посылай всю команду одним вызовом метода:

varr:="dir"#13;

IdTelnet1.SendStr(varr);

и тут же жди ответ сервера на команду:

IdTelnet1.ReadXXXX(...);

А еще лучше использовать метод SendCmd - он сочетает в себе и отправку команды и ожидание/получение рез-та ее выполнения.

Тогда и событие не нужно будет.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c