Помогите с тэлнэт сервером

← →
Пиво (2004-06-05 07:46) [0]

Уважаемые программисты =)
У меня возникла проблемма в консольном приложении, дело в том, что у меня не получается сделать телнет сервер, точнее получаеться только открыть порт =) а залогиниться не получаеться, пожайлуста напишите как это сделать?

← →
Warlock (2004-06-07 05:45) [1]

В telnet сервере пропиши событие

procedure TForm1.Telnet1Authentication(AThread: TIdPeerThread;
const AUsername, APassword: String; var AAuthenticated: Boolean);
begin
if (AUsername="user")and(APassword="pass") then begin
AThread.Connection.WriteLn("Welcome "+AUsername);
AAuthenticated:=True;
end else
AAuthenticated:=False;
end;

а потом работай с собитием onExecute как тебе надо
например:
procedure TForm1.Telnet1Execute(AThread: TIdPeerThread);
var
s:string;
begin
with AThread.Connection do begin
Write(">");
str:=InputLn("");
if Pos(" ",str)>0 then mess:=Copy(str,Pos(" ",str)+1,Length(str)-Pos(" ",str));
str:=UpperCase(str);
if (str="EXIT")or(str="E")or(str="QUIT")or(str="Q") then Disconnect;
if (str="HELP")or(str="H")or(str="?")then begin
writeln("");
writeln("List commands :");
writeln("[h]elp or ? - this help");
writeln("[q]uit or [e]xit - exit");
writeln("[l]ogout - logout computer");
writeln("[r]eboot or [r]estart - reboot computer");
writeln("[s]hutdown - shutdown computer");
ftp-server");
writeln("");
end;
end;

ну и так далее...

← →
Warlock (2004-06-07 05:47) [2]

Кстати все выше сказанное на Дельфи 7 с компонентой TIdTelnetServer работает...

Помогите с тэлнэт сервером Найти похожие ветки