| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

tlntsend [D7]

alex174 ©   (2013-02-28 03:05:00) 

День добрый господа!
есть запарка с telnet клиентом
часть кода
___________________________
//авторизация
procedure TForm1.Button1Click(Sender: TObject);
 procedure Rd;
 var
   S: string;
   procedure Strip0;
   var
     I: Integer;
   begin
     i := 1;
     while i <= Length(S) do
     begin
       if (S[i] = #0) and (S[i - 1] = #13) then
         System.Delete(S, i - 1, 2)
       else
         Inc(i);
     end;
   end;
 begin
   S := TN.RecvString;
   while S <> '' do
   begin
     Strip0;
     srichedit1.Lines.Add(S);
     S := TN.RecvString;
   end;
 end;

begin
    TN := TTelnetSend.Create;
    TN.TargetHost := edit1.text;
    TN.TargetPort := edit4.text;
    TN.Timeout := 500;
    TN.TermType := 'dumb';
        srichedit1.Lines.Clear;
        srichedit1.Lines.Add('connection to host...');
    TN.Login;
    TN.WaitFor('name');
    TN.Send(edit2.text);
    TN.Send(#13#10);
    TN.WaitFor('password');
    TN.Send(edit3.text);
    TN.Send(#13#10);
         rd;
        rd;
       rd;
      rd;
if
    TN.WaitFor(edit6.text) then
          srichedit1.Lines.Add('connection established!')
else
          srichedit1.Lines.Add('connection is interrupted not the correct data!');
          edit5.Focused;
end;
_____________________________________
//отправление комманд

procedure TForm1.Button2Click(Sender: TObject);
 procedure Rd;
 var
   S: string;

   procedure Strip0;
   var
     I: Integer;
   begin
     i := 1;
     while i <= Length(S) do
     begin
       if (S[i] = #0) and (S[i - 1] = #13) then
         System.Delete(S, i - 1, 2)
       else
         Inc(i);
     end;
   end;
 begin

   S := TN.RecvString;
   while S <> '' do
   begin
     Strip0;
     srichedit1.Lines.Add(S);
     S := TN.RecvString;
   end;
 end;
begin

 TN.Send(scombobox1.text);
 TN.Send(#13#10);
 TN.Send(edit5.text);
 TN.Send(#13#10);
     rd;
    rd;
   rd;
  rd;

end;
Админ: Пользуемся тегами для оформления кода.

Проблема заключается в том что вывод в Richedit через несколько строк останавливается, допустим надо считать лог с сервера, посылаю команду лог пошел появилось несколько строк и все вывод закончился, помогите с данной проблемой как продолжить вывод без остановки.
Заранее благодарен

---

O'ShinW   (2013-03-01 16:35:00) [1]

как говорит гугл, это synapse библиотека, по умолчанию не входит в d7
У меня нет такого файла :)

---

alex174   (2013-03-01 15:14:00) [2]

Да это из этой же темы Ttelnetsend "tlntsend.pas"

---

O'ShinW   (2013-02-28 12:36:00) [3]

TTelnetSend - это что за класс?
есть ли у него что-то похожее на индевский TIdTelnet, аля  OnDataAvailable ?

---

Наверх