По телнету

[cargo29]

как создать клиент телнета (idtelnet) в делфи успользуя 2 кнопки 2 поля для вода ип и команды и 1 мемо выводит все операции

[evg_m]

если idtelnet это переменная (компонент) реализующий работу с протоколом telnet, то:
1. c помощью справки(F1), книг где описан данный компонент, Google выяснить его свойства методы. найти нужные (ip, команды операции)
2. объяснить (СЕБЕ) зачем мне кнопки
3. запрограммировать п. 2 (с использованием п.1).
4. при наличии затруднений обращаться на форум с конкретным вопросом и обязательным приведением фрагмента кода.

[cargo29]

Вот тут напидал примерное что ... но дальше что ?? как в мемо прописать и где еще надо? p.s. не судите строго только неделе знаю делфи .

[cargo29]

ни кто не знает?

[cargo29]

ау (((((((( вроде же простое или нет?

[evg_m]

с конкретным вопросом и обязательным приведением фрагмента кода.

[cargo29]

Сообщение от evg_m

с конкретным вопросом и обязательным приведением фрагмента кода.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sSkinManager, sMemo, sComboBox, ComCtrls,
  sUpDown, sEdit, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdTelnet;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sButton1: TsButton;
    sButton2: TsButton;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sUpDown1: TsUpDown;
    sComboBox1: TsComboBox;
    IdTelnet1: TIdTelnet;
    sMemo1: TsMemo;
    procedure IdTelnet1Connect(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure sMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure IdTelnet1Connected(Sender: TObject);
    procedure IdTelnet1DataAvailable(Sender: TIdTelnet;
      const Buffer: String);
    procedure sMemo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTelnet1Connect(Sender: TObject);
begin

IdTelnet1.Terminal:=sComboBox1.Text;
idtelnet1.Host:=sEdit1.Text;
idtelnet1.Port:=sEdit2.value;
idtelnet1.Connect;




end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
idtelnet1.Disconnect;

end;

procedure TForm1.sMemo1KeyPress(Sender: TObject; var Key: Char);

begin


begin

end;





end;

procedure TForm1.IdTelnet1Connected(Sender: TObject);
begin











end;

procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
  const Buffer: String);


  begin





end;

procedure TForm1.sMemo1Change(Sender: TObject);
begin

end;

end.