Forum


Notice to all users

We are migrating towards a new forum system located at community.teamspeak.com, as such this forum will become read-only on January 29, 2020

Results 1 to 2 of 2
  1. #1
    Join Date
    August 2005
    Location
    Matrix
    Posts
    1

    Question TCPQuery mit Indy

    Hi @ all

    Ich wollte mal fragen ob jemand weiss wie man in Delphi per IdTelnet nen Befehl an nen Teamspeak Server über TCP also mit dem port 51234 schicken kann um dann die Reply in ner Memo anzuzeigen? Ich hab schon alles mögliche ausprobiert mit IdTelnet1.SendCmd('Das kommando'); gehts nicht, da erhalte ich immer ne Fehlermeldung: Reply Code is not valid: OK.
    Mit diesem Code hier scheint alles zu funktionieren, jedoch ist die reply welche ich in der Memo1 habe einfach ne leere zeile..
    for i := 1 to length(command) do IdTelnet1.SendCh(command[i]); Memo1.Lines.Add(IdTelnet1.LastCmdResult.Text.Text) ;
    Weiss vieleicht jemand wie ich das richtig machen kann? Sorry, bin noch nicht so gut in Delphi...


    Mfg:
    RApt0r

  2. #2
    Join Date
    January 2004
    Location
    Germany
    Posts
    22

    IndyTelnet , Warum nicht IndyTCPClient ?

    Moin,

    Versuchs mal mit IndyTCPClient, Ein Kleines Beispiel Wäre so ..
    Code:
    var
      response : string;
    
    IdTCPClient1.Host := 'voice.teamspeak.org';
    IdTCPClient1.Port := 51234;
    IdTCPClient1.Connect(-1); // -1=True / 0=False
    if IdTCPClient1.Connected then
    begin
      response := IdTCPClient1.ReadLn; // Readline
      If response = '[TS]' then
      begin
        //  [TS] to Memo
        Memo1.Lines.Add(response);
        ShowMessage('Connected!');
        // sel 8767
        IdTCPClient1.WriteLn('sel 8767');
        response := IdTCPClient1.ReadLn; // Readline
        // Response to Memo
        Memo1.Lines.Add(response);
        if response = 'OK' then ShowMessage('OK'); 
      end;
    end;
    So würde ich sagen versuch es mal ....
    Und wenn du Playerlist oder so was liest benutze eine While oder repeat-until ....

    mfg
    Last edited by Real-TTX; September 9th, 2005 at 11:34 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •