【发布时间】：2019-01-11 20:41:59
【问题描述】：
我需要在控制台模式下运行我的 Delphi 应用程序，以便我可以在我的 VPS 上将它作为我的 Linux 服务器上的 Wine 模拟应用程序运行，以便它通过 telnet 与我的 Teamspeak 服务器作为服务器查询进行通信。它需要始终保持联系并将玩家从一个频道转移到另一个频道，因此被动使用 PHP 不是一种选择。我知道 TS3 机器人已经存在，但没有一个在 Delphi 中为 Teamspeak 3 编程。该程序在 Windows 应用程序中完美运行，但只是挂在控制台版本中。
我在数据模块中设置了 IdTelnet1.ThreadedEvent := true ，这似乎有点帮助。我猜想我需要与该线程交谈，但不确定如何。
我尝试过这样做，但程序只是挂起：
program TS3bot;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Unit1 in 'Unit1.pas' {DataModule1: TDataModule};
begin
try
DataModule1 := TDataModule1.Create(nil);
try
{ TODO -oUser -cConsole Main : Insert code here }
DataModule1.IdTelnet1.Connect;
DataModule1.IdTelnet1.TelnetThread.Start;
repeat
//
until (DataModule1.IdTelnet1.Connected = false);
DataModule1.IdTelnet1.TelnetThread.Stop;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
finally
writeln('Program ended.');
DataModule1.Free;
end;
end.
单位1
unit Unit1;
interface
uses
System.SysUtils, System.Classes, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdTelnet, IdGlobal;
type
TDataModule1 = class(TDataModule)
IdTelnet1: TIdTelnet;
procedure IdTelnet1Connected(Sender: TObject);
procedure IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: TIdBytes);
procedure IdTelnet1Disconnected(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
{ Private declarations }
procedure processCommand(Command : string);
procedure processCommands;
procedure InterpetBuffer(Buffer: string);
public
{ Public declarations }
end;
Const
Elements = (3); //(Elements - 1)
ListOfOnConnectCommands : array [0..Elements] of string =
('login serverquery password',
'use 1',
'clientupdate client_nickname=NickNameServer',
'servernotifyregister event=server');
var
DataModule1: TDataModule1;
BufferNumber: integer = 0;
CommandSent : boolean = false;
CommandOK : boolean = false;
CommandNumber : integer = 0;
implementation
{%CLASSGROUP 'System.Classes.TPersistent'}
{$R *.dfm}
procedure pSplitIT(BreakString, BaseString: string; StringList: TStrings);
var
EndOfCurrentString: byte;
begin
StringList.Clear;
repeat
EndOfCurrentString := Pos(BreakString, BaseString);
if EndOfCurrentString = 0 then
StringList.add(BaseString)
else
StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
BaseString := Copy(BaseString, EndOfCurrentString + length(BreakString), length(BaseString) - EndOfCurrentString);
until EndOfCurrentString = 0;
end;
procedure TDataModule1.processCommand(Command : string);
begin
writeln('processCommand: ' + Command);
IdTelnet1.SendString(Command);
IdTelnet1.SendCh(#10);
IdTelnet1.SendCh(#13);
end;
procedure TDataModule1.processCommands;
var
MyString: string;
begin
if CommandNumber <= Elements then
begin
MyString := ListOfOnConnectCommands[CommandNumber];
writeln('processCommands: ' + MyString);
IdTelnet1.SendString(MyString);
IdTelnet1.SendCh(#10);
IdTelnet1.SendCh(#13);
inc(CommandNumber);
//exit;
end;
end;
procedure TDataModule1.InterpetBuffer(Buffer: string);
var
MyTstringlist: Tstringlist;
MyBuffer: string;
I: integer;
clid: integer;
member, legionnaire, enteredGuestChannel: boolean;
begin
enteredGuestChannel := false;
member := false;
legionnaire := false;
inc(BufferNumber);
writeln('---------------------------------------------------------');
writeln('IdTelnet1DataAvailable BufferNumber: ' + BufferNumber.ToString);
writeln('---------------------------------------------------------');
if Pos('notifycliententerview',Buffer)>0 then
begin
writeln('----------------------');
writeln('EXIT notifycliententerview:');
writeln(Buffer);
MyTstringlist := Tstringlist.Create;
MyBuffer := Buffer;
pSplitIT(' ',MyBuffer,MyTstringlist);
writeln('COUNT: ' + MyTstringlist.Count.ToString);
for I := 0 to MyTstringlist.Count - 1 do
begin
writeln(MyTstringlist.Strings[I]);
if MyTstringlist.Strings[I] = 'ctid=45' then
begin
// client entered GUESTS CHANNEL, see if we can move them.
enteredGuestChannel := true;
end;
if Pos('client_servergroups=',MyTstringlist.Strings[I]) > 0 then
begin
if Pos('18',MyTstringlist.Strings[I]) > 0 then
begin
member := true;
end;
if Pos('19',MyTstringlist.Strings[I]) > 0 then
begin
legionnaire := true;
end;
if Pos('28',MyTstringlist.Strings[I]) > 0 then
begin
legionnaire := true;
end;
end;
//clid
if Pos('clid=',MyTstringlist.Strings[I]) > 0 then
begin
clid := StrToInt(copy(MyTstringlist.Strings[I],6,high(MyTstringlist.Strings[I])));
end;
end;
writeln('----------------------');
MyTstringlist.Free;
if ( (enteredGuestChannel = true)
and (member = true) ) then
begin
processCommand('clientmove clid=' + clid.ToString + ' cid=47');
end
else if ( (enteredGuestChannel = true)
and (legionnaire = true) ) then
begin
processCommand('clientmove clid=' + clid.ToString + ' cid=47');
end;
exit;
end;
// Create Returns in terminal
if Pos(#10#13,Buffer)>0 then
begin
MyTstringlist := Tstringlist.Create;
pSplitIT(#10#13,Buffer,MyTstringlist);
writeln('COUNT: ' + MyTstringlist.Count.ToString);
for I := 0 to MyTstringlist.Count - 1 do
begin
writeln(MyTstringlist.Strings[I]);
end;
MyTstringlist.Free;
end
else
begin
writeln(Buffer);
end;
if Pos('error id=0 msg=ok',Buffer)>0 then
begin
processCommands;
end;
writeln('');
end;
procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
processCommand('logout');
processCommand('quit');
IdTelnet1.Disconnect(true);
end;
procedure TDataModule1.IdTelnet1Connected(Sender: TObject);
begin
writeln('IdTelnet1Connected');
// sleep(5000);
//writeln('processCommands:');
// processCommands;
end;
procedure TDataModule1.IdTelnet1DataAvailable(Sender: TIdTelnet;
const Buffer: TIdBytes);
begin
InterpetBuffer(bytestostring(Buffer));
end;
procedure TDataModule1.IdTelnet1Disconnected(Sender: TObject);
begin
writeln('IdTelnet1Disconnected');
end;
end.
这是我来自 TForm 的原始代码：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdTelnet, IdGlobal, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
IdTelnet1: TIdTelnet;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo2: TMemo;
Timer1: TTimer;
Button4: TButton;
IdSchedulerOfThreadDefault1: TIdSchedulerOfThreadDefault;
procedure Button1Click(Sender: TObject);
procedure IdTelnet1Disconnected(Sender: TObject);
procedure IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: TIdBytes);
procedure Button3Click(Sender: TObject);
procedure IdTelnet1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
procedure IdTelnet1Connected(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure InterpetBuffer(buffer: string);
procedure processCommands;
procedure processCommand(Command : string);
public
{ Public declarations }
end;
Const
Elements = (3); //(Elements - 1)
ListOfOnConnectCommands : array [0..Elements] of string =
('login severquery password',
'use 1',
'clientupdate client_nickname=NickNameServer',
'servernotifyregister event=server');
var
Form1: TForm1;
BufferNumber: integer = 0;
CommandSent : boolean = false;
CommandOK : boolean = false;
CommandNumber : integer = 0;
implementation
{$R *.dfm}
procedure pSplitIT(BreakString, BaseString: string; StringList: TStrings);
var
EndOfCurrentString: byte;
begin
StringList.Clear;
repeat
EndOfCurrentString := Pos(BreakString, BaseString);
if EndOfCurrentString = 0 then
StringList.add(BaseString)
else
StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
BaseString := Copy(BaseString, EndOfCurrentString + length(BreakString), length(BaseString) - EndOfCurrentString);
until EndOfCurrentString = 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
BufferNumber := 0;
IdTelnet1.Connect;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
MyString: string;
I: integer;
begin
MyString := edit1.Text;
for I := Low(MyString) to High(MyString) do
begin
IdTelnet1.SendCh(MyString[I]);
end;
IdTelnet1.SendCh(#10);
IdTelnet1.SendCh(#13);
edit1.Text := '';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
processCommand('logout');
processCommand('quit');
IdTelnet1.Disconnect(true);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
processCommands;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
processCommand('logout');
processCommand('quit');
IdTelnet1.Disconnect(true);
end;
procedure TForm1.IdTelnet1Connected(Sender: TObject);
begin
memo1.Lines.Add('IdTelnet1Connected');
// Wait 1 second after connected to send commands.
Timer1.Enabled := true;
end;
procedure TForm1.InterpetBuffer(Buffer: string);
var
MyTstringlist: Tstringlist;
MyBuffer: string;
I: integer;
//ctid: integer;
clid: integer;
member, legionnaire, enteredGuestChannel: boolean;
begin
inc(BufferNumber);
memo1.Lines.Add('---------------------------------------------------------');
memo1.Lines.Add('IdTelnet1DataAvailable BufferNumber: ' + BufferNumber.ToString);
memo1.Lines.Add('---------------------------------------------------------');
OutputDebugString(PChar('IdTelnet1DataAvailable BufferNumber: ' + BufferNumber.ToString));
if Pos('notifycliententerview',Buffer)>0 then
begin
memo1.Lines.Add('----------------------');
memo1.Lines.Add('EXIT notifycliententerview:');
memo1.Lines.Add(Buffer);
MyTstringlist := Tstringlist.Create;
MyBuffer := Buffer;
pSplitIT(' ',MyBuffer,MyTstringlist);
memo1.Lines.Add('COUNT: ' + MyTstringlist.Count.ToString);
for I := 0 to MyTstringlist.Count - 1 do
begin
memo1.Lines.Add(MyTstringlist.Strings[I]);
if MyTstringlist.Strings[I] = 'ctid=45' then
begin
// client entered GUESTS CHANNEL, see if we can move them.
enteredGuestChannel := true;
end;
if Pos('client_servergroups=',MyTstringlist.Strings[I]) > 0 then
begin
if Pos('18',MyTstringlist.Strings[I]) > 0 then
begin
member := true;
end;
if Pos('19',MyTstringlist.Strings[I]) > 0 then
begin
legionnaire := true;
end;
if Pos('28',MyTstringlist.Strings[I]) > 0 then
begin
legionnaire := true;
end;
end;
//clid
if Pos('clid=',MyTstringlist.Strings[I]) > 0 then
begin
clid := StrToInt(copy(MyTstringlist.Strings[I],6,high(MyTstringlist.Strings[I])));
end;
end;
memo1.Lines.Add('----------------------');
MyTstringlist.Free;
if ( (enteredGuestChannel = true)
and (member = true) ) then
begin
processCommand('clientmove clid=' + clid.ToString + ' cid=47');
end
else if ( (enteredGuestChannel = true)
and (legionnaire = true) ) then
begin
processCommand('clientmove clid=' + clid.ToString + ' cid=47');
end;
exit;
end;
// Create Returns in terminal
if Pos(#10#13,Buffer)>0 then
begin
MyTstringlist := Tstringlist.Create;
pSplitIT(#10#13,Buffer,MyTstringlist);
memo1.Lines.Add('COUNT: ' + MyTstringlist.Count.ToString);
for I := 0 to MyTstringlist.Count - 1 do
begin
memo1.Lines.Add(MyTstringlist.Strings[I]);
end;
MyTstringlist.Free;
end
else
begin
memo1.Lines.Add(Buffer);
end;
if Pos('error id=0 msg=ok',Buffer)>0 then
begin
processCommands;
end;
memo1.Lines.Add('');
end;
procedure TForm1.processCommand(Command : string);
begin
memo2.Lines.Add('processCommand: ' + Command);
IdTelnet1.SendString(Command);
IdTelnet1.SendCh(#10);
IdTelnet1.SendCh(#13);
end;
procedure TForm1.processCommands;
var
MyString: string;
begin
if CommandNumber <= Elements then
begin
MyString := ListOfOnConnectCommands[CommandNumber];
memo2.Lines.Add('processCommands: ' + MyString);
IdTelnet1.SendString(MyString);
IdTelnet1.SendCh(#10);
IdTelnet1.SendCh(#13);
inc(CommandNumber);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IdTelnet1.Connected = false then
begin
memo2.Lines.Add('NOT CONNECTED YET...WAITING TO SEND COMMANDS.');
exit;
end;
processCommands;
Timer1.Enabled := false;
end;
procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
const Buffer: TIdBytes);
begin
InterpetBuffer(bytestostring(Buffer));
end;
procedure TForm1.IdTelnet1Disconnected(Sender: TObject);
begin
memo1.Lines.Add('IdTelnet1Disconnected');
end;
procedure TForm1.IdTelnet1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
begin
memo1.Lines.Add('AStatusText: ' + AStatusText);
end;
end.
我希望程序能够像 GUI windows 版本一样在控制台中运行，但我不确定如何使用 indy idTelnet 来解决这个问题。我主要将其转换为我所知的最佳内容以及我在互联网上可以找到的内容（数量不多）。不知何故，我需要弄清楚是什么导致它挂起而不是处理 telnet 消息？
【问题讨论】：
-
当您在调试器中单步执行代码时，它具体“挂起”在哪里？
-
TeamSpeak 不使用 Telnet 协议进行通信，因此使用
TIdTelnet不是正确的选择。请改用TIdTCPClient，并运行您自己的线程以同步使用它，而不会阻塞您的主线程。但是您并没有很好地为 TeamSpeak 的协议编写代码。为什么不改用官方的 TeamSpeak SDK？它是一个 C 库，所以它应该可以在 Delphi 中运行。 -
我还不够先进，无法在 Delphi 中使用 C 库。 :/ 有什么我可以阅读的书籍/信息吗？
-
@ElDiablo 在 StackOverflow 上有很多关于在 Delphi 中使用 TeamSpeak SDK 的问题。并且有第 3 方的 SDK 到 Delphi。 Google is your friend.
标签： delphi console-application telnet indy10 delphi-10.2-tokyo