Ergebnis 1 bis 8 von 8

Thema: Teamspeak-Tool mit Delphi

  1. #1
    HTML Newbie
    Registriert seit
    25.10.2005
    Beiträge
    5
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard Teamspeak-Tool mit Delphi

    Wenn ihr wissen wollt wie man in Delphi ein TS-Tool programmiert, das per Telnet auf den Server zugreift, dann kann ich euch helfen:


    Hier der Code mit dem man den Client verbinden lässt.
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      with IdTelnet1 do
      begin
        Host := '84.137.153.185'; // Hier kommt die IP des Servers hin.
        Port := 51234; // Hier kommt der TCP-Port (Vorsicht: Nicht UDP-Port) hin
        Connect(); // Hier baut der Client die Verbindung auf.
        WriteLn('sel 8767'); 
        // Hier sendet der Client mittels WriteLn den Befehl zum Selektieren des UDP-Port (Standart: 8767)
        idTelnet1.WriteLn('login name passwort'); // Hier loggt man sich mit seinen SA-Logindaten ein.
        WriteLn('sl'); // Hier wird der Befehl für die Server-Info gesendet
        WriteLn('cl'); // Hier für dei Channel-Liste
        WriteLn('pl'); // Hier für die Player-Liste
        WriteLn('cl'); 
        // Die Befehle werden gleich ganz oft gesendet damit der Client immer genug zu lesen hat und nicht anstürzt!
        WriteLn('pl');
        WriteLn('cl');
        WriteLn('pl');
        WriteLn('cl');
        WriteLn('pl');
      end;
    end;
    Wenn ihr bis hierhin nicht alles verstanden haben solltet stehe ich für Fragen natürlich immer offen!
    Nun kommt der Code mit dem man die gesendeten Befehle ausließt und in eine Textbox einfügt:
    Code:
    procedure TForm1.Button2Click(Sender: TObject);
    var i, v: Integer; // Hier werden die Variablen für die For-Schleife deklariert.
    begin
      v := SpinEdit1.Value; // v = Der Wert aus dem SpinEdit
      for i := 1 to v do // Für i = 1 zum Wert des SpinEdits mache das...
        begin
        try
          Memo1.Lines.Add(idtelnet1.readln()); 
          // Hier wird mittels ReadLn gelesen was gesendet wurde und in eine Textarea eingetragen
        except // Das SpinEdit gibt an wie viele Einträge gelesen werden sollen
          Memo1.Lines.Add('ERROR'); // Wenn das auslesen nicht klappt erscheint ERROR.
        end;
      end;
    end;
    Ich hoffe bis dort hin ist alles klar, sonst fragt einfach!
    Zum Schluss noch ein paar Funktionen die ihr nutzen könnt:
    Code:
    procedure TForm1.Button3Click(Sender: TObject);
    begin
       idTelnet1.WriteLn('kick 20'); // Hier wird der Player mit der p_id 20 gekickt.
    end;
    
    procedure TForm1.Button4Click(Sender: TObject);
    begin
      idTelnet1.WriteLn('removeclient 20'); // Hier bekommt der Player mit der p_id 20 ein 'Link Disengaged'
    end;
    
    procedure TForm1.Button5Click(Sender: TObject);
    begin
      idTelnet1.WriteLn('mptc 20 22'); // Hier wird Player 20 in den Channel mit der c_id 22 geswitcht
    end;
    Wenn ihr noch mehr befehle braucht fragt einfach, vielleicht weiß ich ja die, die ihr braucht!!!

    Danke, dass ihr euch das Tutorial angeschaut habt, ich warte schon auf eure Fragen!!!

    Mfg
    DelphiX-Perte
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!

  2. #2
    Teeny
    Registriert seit
    13.10.2005
    Beiträge
    36
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    bei teamspeak ist doch auch was bei oder ? ist das n voice client ?

    edit: bist du eigentlich im delphi forum aktiv ?
    wer das liest hat viel zu viel zeit

  3. #3
    HTML Newbie
    Themenstarter

    Registriert seit
    25.10.2005
    Beiträge
    5
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    TeamSpeak ansich ist ja schon ein Voice-Client!

    In welchem Delphi Forum meinst du?

  4. #4
    Teeny
    Registriert seit
    13.10.2005
    Beiträge
    36
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    www.delphi-forum.de

    bei ts2 ist ne dll und n delphi source dabei
    wer das liest hat viel zu viel zeit

  5. #5
    HTML Newbie
    Themenstarter

    Registriert seit
    25.10.2005
    Beiträge
    5
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    Das ist für die Befehle von TS-Control!

    Und ja, in dem Forum bin ich auch seit kurzem!

  6. #6
    gelöschter User
    Gast

    Standard

    na delphix-perte,
    du kommst mir so bekannt vor???
    voran liegt das nur xD

    Gruß crAzywuLf

  7. #7
    HTML Newbie
    Themenstarter

    Registriert seit
    25.10.2005
    Beiträge
    5
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    Ich glaub' dich kenne ich auch von irgendwo?
    Aus TS vielleicht, herr Schmidt?

  8. #8
    Denniis
    Gast

    Standard

    bei mir connectet der nicht da kommt immer

    Socket Error # 10061
    Connection Refused^^

Ähnliche Themen

  1. Delphi in HP
    Von zista im Forum HTML & CSS Forum
    Antworten: 21
    Letzter Beitrag: 05.07.2008, 14:49
  2. delphi 4.1
    Von Wail im Forum Forum für alle anderen Programmiersprachen
    Antworten: 0
    Letzter Beitrag: 09.11.2007, 15:42
  3. c++ winapi vs delphi
    Von supersass1 im Forum Forum für alle anderen Programmiersprachen
    Antworten: 15
    Letzter Beitrag: 19.09.2007, 12:00
  4. Teamspeak Vergabe an alle*!!! Free Teamspeak! bitte lesen!
    Von Shredder im Forum Sponsor gesucht !
    Antworten: 1
    Letzter Beitrag: 18.05.2007, 14:35
  5. delphi kompiler
    Von xHTMLx im Forum Computer - Internet Forum
    Antworten: 3
    Letzter Beitrag: 06.11.2006, 18:27

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •