Hi, ich bins nochmal
Das Verbinden hab ich nun hingekriegt, nur wie sende ich nun ein Kommando an den Server und kann dann die Reply in einer Memo ausgeben? Das ganze soll eine Art Shell geben mit welcher ich einen Befehl wie dbuserlist senden kann und in der Memo1 dann die Reply angezeigt bekomme. Mein Code:
Mit dem Teamspeak Server verbinden:
Delphi-Quellcode:
var
selserver: String;
loginstring: String;
begin
loginstring := 'login '+username_edit.Text+' '+password_edit.Text;
selserver := 'sel '+port_edit.Text;
sock := TClientSocket.Create(nil);
sock.Host := host_edit.Text;
sock.Port := Strtoint(port_edit.Text);
try sock.Open;
except Showmessage('Verbindung fehlgeschlagen'); end;
sock.Socket.SendText(selserver);
Memo1.Lines.Add(sock.Socket.ReceiveText);
sock.Socket.SendText(loginstring);
Memo1.Lines.Add(sock.Socket.ReceiveText);
Ein Kommande senden:
Delphi-Quellcode:
var
command: String;
begin
command := Edit1.Text;
sock.Socket.SendText(command);
Memo1.Lines.Add(sock.Socket.ReceiveText);
Wenn ich nun ein Kommando eingebe, egal welches, dann Steht in der Memo1 [TS] was ja beim connecten auf einen Teamspeak Telnet Server immer am Anfang steht, aber das OK für ein Kommando wie sel 8767 bekomme ich nicht und auch kein ERROR.