Entwickler-Ecke

Internet / Netzwerk - Zu einem Ts Server connecten


pigfacejoe - Sa 14.10.06 11:33
Titel: Zu einem Ts Server connecten
Kann mir jm sagen wie ich anstelle, dass der benutzer seinen namen, passwort und server ip angibt und mein programm dann zum server verbindet?
Ich freue mich auf (hoffentlich)viele nützliche antworten!!!

Cu& THX
Pigfacejoe


sonic159 - Sa 14.10.06 16:27

Wie genau willst du den auf den TS Server Connecten?
Über Telnet?


mkinzler - Sa 14.10.06 16:30

Was meinst du mit Ts? Terminal Services?


NeoInDerMATRIX - Sa 14.10.06 21:40

Hallo,

wie also auf welche Ebene willst du auf den TS²(nehme ich mal an) Server connecten.
Wie in Client also UDP oder via TCP um Infos auszulesen und co?

Cu
Neo


PLuS - Sa 14.10.06 22:21

Entweder benutzt du dazu das Client SDK oder du führst einfach einen "TeamSpeak-Link" aus.

1) Die TSRemote.dll aus dem Client_sdk-Ordner laden und die Funktion tsr_Connect ausführen.

2) ShellExecute

1) und 2) Parameter ist dann jeweils

Quelltext
1:
teamspeak://<ip-oder-dns>:<port>/nickname=<Nick>?loginname=<loginname>?password=<userpassword>                    



Weitere Parameter findest du auch im Client-Manual unter Menu Connection->Connect (ganz unten)


pigfacejoe - Sa 14.10.06 23:47

Ja genau,mit TS war Teamspaek gemeint, sry hab mich unklar ausgedrückt.
Wenn ich mich für die ShellExecute-Variante entscheide, soll das dann z.B so gehen?ShellExecute(Handle,'open',('C:\Programme\Teamspeak2_RC2\teamspeak.exe'),PChar('81.82.83.84:1234:6000/nickname=Keine Ahnung?loginname=weiss nicht?password=weiss auch nicht'),nil,sw_normal);
THX für die Antwort


PLuS - So 15.10.06 12:06

Nein, damit meinte ich eher so etwas:


Delphi-Quelltext
1:
ShellExecute(Handle, 'open', PChar('teamspeak://voice.teamspeak.org/nickname=Thomas?loginname=df-user?password=df'), NILNIL, SW_SHOWMAXIMIZED);                    


pigfacejoe - So 15.10.06 17:47

Vielen Dank! Hat geklappt!!


pigfacejoe - Mo 16.10.06 15:06

Hab da doch noch ne frage:
Wie kann ich disconnecten?


Mindforce - Mo 16.10.06 15:44

Hi,

da fällt mir nur eine variante ein:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
uses TLHelp32;

function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

// Dies ist der Aufruf
procedure TForm1.Button2Click(Sender: TObject);
begin
  KillTask('TeamSpeak.exe');
end;


Könnte man auch benutzen ^^!
Ist zwar nicht ganz diconnecten, kann man aber machen :-O

Gruß,

M!ndbyte


PLuS - Di 17.10.06 23:38

Dann würde ich dir doch eher das Client-SDK empfehlen.

Im client_sdk-Ordner deines TeamSpeak-Verzeichnisses befindet sich auch eine Datei namens TSRemoteImport.pas, die die Funktionen der Library direkt für dich importiert, du musst sie also nur aufrufen!

Der Wrapper ist auch eigentlich ziemlich gut dokumentiert, schau einfach mal rein!