VPF::Как отключить эхо на INDY - Форум программистов

Kleovo

Дата 19.9.2006, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.9.2006

Репутация: нет
Всего: нет

Добрый сервачок (TelnetServer) выдает эхо символы при запросе клиента пароля типа: *q*w*e*r
smile

Romikgy

Дата 19.9.2006, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

имхо код приведи

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Kleovo

Дата 20.9.2006, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.9.2006

Репутация: нет
Всего: нет

Вот код

Код


unit Unit1;

interface

uses
  SysUtils, ExtCtrls, StdCtrls,
  Classes, ActnList, Controls,
  ComCtrls, IdBaseComponent,
  IdComponent, IdTCPServer,
  IdTelnetServer, Forms, Dialogs;

type
  TForm1 = class(TForm)
    IdTelnetServer1: TIdTelnetServer;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Panel1: TPanel;
    ActionList1: TActionList;
    Action1: TAction;
    ScrollBox1: TScrollBox;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IdTelnetServer1Connect(AThread: TIdPeerThread);
    procedure IdTelnetServer1Disconnect(AThread: TIdPeerThread);
    procedure IdTelnetServer1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure LogAdd(Str: string);
  end;

var
  Form1: TForm1;
  bSrvStatus: Boolean;
  b1_BoolInt: Byte;

Const
  srvOnOfStr: Array[0..3] Of String = ('Disabled', 'Enabled', 'Connect', 'Disconnect');

implementation

{$R *.dfm}

  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    // Подготолвить значения
    bSrvStatus := idTelnetServer1.Active;
    If bSrvStatus Then b1_BoolInt := 1 Else b1_BoolInt := 0;
    // Вкл./Откл и статус....
    Label3.Caption := srvOnOfStr[b1_BoolInt];
    Action1.Caption := srvOnOfStr[b1_BoolInt + $02];
  end;

  procedure TForm1.Action1Execute(Sender: TObject);
  begin
    IdTelnetServer1.Active := Not IdTelnetServer1.Active;
    Timer1Timer(Nil);
    LogAdd('Server now ' + srvOnOfStr[b1_BoolInt]);
  end;

  Procedure TForm1.LogAdd(Str: string);
  Begin
    RichEdit1.Lines.Insert(0, TimeToStr(Now) + ' -> ' + Str);
  End;


  procedure TForm1.IdTelnetServer1Execute(AThread: TIdPeerThread);
  begin
    LogAdd('Event On@Execute by=' + AThread.Connection.Socket.Binding.PeerIP);
    AThread.Connection.InputLn();
  end;

end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »