Zu einem Ts Server connecten

pigfacejoe · Verfasst: Sa 14.10.06 11:33

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 · Beiträge: 76 Windows XP BDS 2006 Professional

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

mkinzler · Verfasst: Sa 14.10.06 16:30

Was meinst du mit Ts? Terminal Services?

_________________
Markus Kinzler.

NeoInDerMATRIX · Verfasst: 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 · Verfasst: 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

markieren

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)

_________________
Der letzte macht die Tür zu!

pigfacejoe · Verfasst: 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 · Verfasst: So 15.10.06 12:06

Nein, damit meinte ich eher so etwas:

markieren

Delphi-Quelltext

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

_________________
Der letzte macht die Tür zu!

pigfacejoe · Verfasst: So 15.10.06 17:47

Vielen Dank! Hat geklappt!!

pigfacejoe · Verfasst: Mo 16.10.06 15:06

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

Mindforce · Verfasst: Mo 16.10.06 15:44

Hi,

da fällt mir nur eine variante ein:

markieren

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

_________________
Our force; in mind.

PLuS · Verfasst: 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!

_________________
Der letzte macht die Tür zu!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme