Announcement

**Detlev GG Heinrich** · 09.05.2003, 10:55

mit der CBuilder Komponente ServerSocket ganz einfach:
ServerSocket->Socket->Connections[n]->RemoteAddress;
Dieselbe Komponente gibts doch sicher auch in Delphi,
die -> müssen durch . ersetzt werden.
n ist die Nummer der Client->Verbindung,
am besten die Hilfe dazu noch mal lesen

**MiSchn1980** · 19.04.2004, 19:28

Benötige auch die Client ID.

Wie kann ich in VB .Net die realisieren?!?!?!?

**bobek** · 23.04.2004, 17:46

Hallo Peter, 
auf dieser Seite <a href=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wtsquerysessioninformation.asp>WTSQuerySessionInfo rmation</a>
und <a href=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wts_client_address_str.asp>WTS_CLIENT_ADDRESS</a> ist doch alles, was du brauchst. 
Hier ist die Lösung in Delphi, dieser Beispiel ermitteln, ob es sich um eine locale oder remote (TS) Session handelt und ziegt die IP. 

<h2>1. Teil:</h2>
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Courier;
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-charset:0;
mso-generic-font-family:modern;
mso-font-format

ther;
mso-font-pitch:fixed;
mso-font-signature:3 0 0 0 1 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoBodyText, li.MsoBodyText, div.MsoBodyText
{margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:9.0pt;
mso-bidi-font-size:12.0pt;
font-family:Courier;
mso-fareast-font-family:"Times New Roman";
mso-bidi-font-family:"Times New Roman";
;}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>

<div class=Section1>

const<o

></o

>

*MAX_ADAPTER_NAME_LENGTH = 260;<o

></o

>

*MAX_ADAPTER_ADDRESS_LENGTH = 8;<o

></o

>

*MAX_ADAPTER_DESCRIPTION_LENGTH
= 132;<o

></o

>

<![if !supportEmptyParas]> <![endif]><o

></o

>

type*
PIP_ADDR_STRING = ^TIP_ADDR_STRING;<o

></o

>

***** TIP_ADDR_STRING = record<o

></o

>

*********** Next

ointer;<o

></o

>

*********** IpAddress:array[0..15] of char;<o

></o

>

***********
IpMask:array[0..15] of char;<o

></o

>

*********** Context

WORD;<o

></o

>

****** end;<o

></o

>

<![if !supportEmptyParas]> <![endif]><o

></o

>

**** PIP_ADAPTER_INFO =
^TIP_ADAPTER_INFO;<o

></o

>

**** TIP_ADAPTER_INFO = record<o

></o

>

******* Next: pointer;<o

></o

>

******* ComboIndex : DWORD;<o

></o

>

******* AdapterName: array[0..MAX_ADAPTER_NAME_LENGTH - 1] of char;<o

></o

>

******* Description: array[0..MAX_ADAPTER_DESCRIPTION_LENGTH - 1]
of char;<o

></o

>

******* AddressLength: UINT;<o

></o

>

******* Address: array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of byte;<o

></o

>

******* Index: DWORD;<o

></o

>

******* AdapterType: UINT;<o

></o

>

******* DhcpEnabled: UINT;<o

></o

>

******* CurrentIpAddress: PIP_ADDR_STRING;<o

></o

>

******* IpAddressList: TIP_ADDR_STRING;<o

></o

>

******* GatewayList: TIP_ADDR_STRING;<o

></o

>

******* DhcpServer: TIP_ADDR_STRING;<o

></o

>

******* HaveWins: BOOL;<o

></o

>

******* PrimaryWinsServer: TIP_ADDR_STRING;<o

></o

>

******* SecondaryWinsServer: TIP_ADDR_STRING;<o

></o

>

******* LeaseObtained : integer;<o

></o

>

******* LeaseExpires: integer;<o

></o

>

***** end;<o

></o

>

<![if !supportEmptyParas]> <![endif]><o

></o

>
&#10

**bobek** · 23.04.2004, 18:00

Hallo Peter, 
auf dieser Seite <a href=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wtsquerysessioninformation.asp>WTSQuerySessionInfo rmation</a>
und <a href=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wts_client_address_str.asp>WTS_CLIENT_ADDRESS</a> ist doch alles, was du brauchst. 
Hier ist die Lösung in Delphi, dieser Beispiel ermitteln, ob es sich um eine locale oder remote (TS) Session handelt und ziegt die IP. 
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Courier;
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-charset:0;
mso-generic-font-family:modern;
mso-font-format

ther;
mso-font-pitch:fixed;
mso-font-signature:3 0 0 0 1 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoBodyText, li.MsoBodyText, div.MsoBodyText
{margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:9.0pt;
mso-bidi-font-size:12.0pt;
;
mso-fareast-font-family:"Times New Roman";
mso-bidi-font-family:"Times New Roman";
;}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<div class=Section1 style="font-family:Courier">
const<o

></o

>
*MAX_ADAPTER_NAME_LENGTH = 260;<o

></o

>
*MAX_ADAPTER_ADDRESS_LENGTH = 8;<o

></o

>
*MAX_ADAPTER_DESCRIPTION_LENGTH
= 132;<o

></o

>
<![if !supportEmptyParas]> <![endif]><o

></o

>
type*
PIP_ADDR_STRING = ^TIP_ADDR_STRING;<o

></o

>
***** TIP_ADDR_STRING = record<o

></o

>
*********** Next

ointer;<o

></o

>
*********** IpAddress:array[0..15] of char;<o

></o

>
***********
IpMask:array[0..15] of char;<o

></o

>
*********** Context

WORD;<o

></o

>
****** end;<o

></o

>
<![if !supportEmptyParas]> <![endif]><o

></o

>
**** PIP_ADAPTER_INFO =
^TIP_ADAPTER_INFO;<o

></o

>
**** TIP_ADAPTER_INFO = record<o

></o

>
******* Next: pointer;<o

></o

>
******* ComboIndex : DWORD;<o

></o

>
******* AdapterName: array[0..MAX_ADAPTER_NAME_LENGTH - 1] of char;<o

></o

>
******* Description: array[0..MAX_ADAPTER_DESCRIPTION_LENGTH - 1]
of char;<o

></o

>
******* AddressLength: UINT;<o

></o

>
******* Address: array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of byte;<o

></o

>
******* Index: DWORD;<o

></o

>
******* AdapterType: UINT;<o

></o

>
******* DhcpEnabled: UINT;<o

></o

>
******* CurrentIpAddress: PIP_ADDR_STRING;<o

></o

>
******* IpAddressList: TIP_ADDR_STRING;<o

></o

>
******* GatewayList: TIP_ADDR_STRING;<o

></o

>
******* DhcpServer: TIP_ADDR_STRING;<o

></o

>
******* HaveWins: BOOL;<o

></o

>
******* PrimaryWinsServer: TIP_ADDR_STRING;<o

></o

>
******* SecondaryWinsServer: TIP_ADDR_STRING;<o

></o

>
******* LeaseObtained : integer;<o

></o

>
******* LeaseExpires: integer;<o

></o

>
***** end;<o

></o

>
<![if !supportEmptyParas]> <![endif]><o

></o

>
function ProcessIdToSessionId(dwProcessId

WORD;var
pSessionId

WORD):boolean; stdcall;<o

></o

>
function GetAdaptersInfo(pAdapterInfo:PIP_ADAPTER_INFO; var
pOutBufLen:integer)

WORD; stdcall;<o

></o

>
<![if !supportEmptyParas]> <![endif]><o

></o

>
{$IFDEF
UNICODE}<o

></o

>
function WTSOpenServer(pServerName: PWideChar): THandle;
stdcall;<o

></o

>
{$EXTERNALSYM
WTSOpenServer}<o

></o

>
{$ELSE}<o

></o

>
function WTSOpenServer(pServerName: PAnsiChar): THandle;
stdcall;<o

></o

>
{$EXTERNALSYM WTSOpenServer}<o

></o

>
{$ENDIF}<o

></o

>
{$IFDEF
UNICODE}<o

></o

>
function WTSQuerySessionInformat

**bobek** · 23.04.2004, 18:32

Hallo Peter, 
auf dieser Seite <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wtsquerysessioninformation.asp">WTSQuerySessionInf ormation</a>
und <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wts_client_address_str.asp">WTSQuerySessionInforma tion</a>
ist doch alles, was du brauchst. 
Hier ist die Lösung in Delphi, dieser Beispiel ermittelt, ob es sich um eine locale oder remote (TS) Session handelt und ziegt die
IP.  
const 
    MAX_ADAPTER_NAME_LENGTH = 260; 
    MAX_ADAPTER_ADDRESS_LENGTH = 8; 
    MAX_ADAPTER_DESCRIPTION_LENGTH = 132; 
 

type PIP_ADDR_STRING = ^TIP_ADDR_STRING; 
     TIP_ADDR_STRING = record 
        &n bsp;      
Next

ointer; 
        &n bsp;      
IpAddress:array[0..15] of char; 
        &n bsp;      
IpMask:array[0..15] of char; 
        &n bsp;      
Context

WORD; 
      end; 
 
    PIP_ADAPTER_INFO = ^TIP_ADAPTER_INFO; 
    TIP_ADAPTER_INFO = record 
        Next: pointer; 
        ComboIndex : DWORD; 
        AdapterName: array[0..MAX_ADAPTER_NAME_LENGTH - 1] of char; 
        Description: array[0..MAX_ADAPTER_DESCRIPTION_LENGTH - 1] of char; 
        AddressLength: UINT; 
        Address: array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of byte; 
        Index: DWORD; 
        AdapterType: UINT; 
        DhcpEnabled: UINT; 
        CurrentIpAddress: PIP_ADDR_STRING; 
        IpAddressList: TIP_ADDR_STRING; 
        GatewayList: TIP_ADDR_STRING; 
        DhcpServer: TIP_ADDR_STRING; 
        HaveWins: BOOL; 
        PrimaryWinsServer: TIP_ADDR_STRING; 
        SecondaryWinsServer: TIP_ADDR_STRING; 
        LeaseObtained : integer; 
        LeaseExpires: integer; 
    end; 
 
function ProcessIdToSessionId(dwProcessId

WORD;var pSessionId

WORD):boolean; stdcall; 
function GetAdaptersInfo(pAdapterInfo:PIP_ADAPTER_INFO; var pOutBufLen:integer)

WORD; stdcall; 
 

{$IFDEF UNICODE} 

function WTSOpenServer(pServerName: PWideChar): THandle; stdcall; 

{$EXTERNALSYM WTSOpenServer} 
{$ELSE} 

function WTSOpenServer(pServerName: PAnsiChar): THandle; stdcall; 

{$EXTERNALSYM WTSOpenServer} 
{$ENDIF} 
{$IFDEF UNICODE} 

function WTSQuerySessionInformation(hServer: THandle; SessionId: DWORD; 
WTSInfoClass: DWORD; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall; 

{$EXTERNALSYM WTSQuerySessionInformation} 
{$ELSE} 

function WTSQuerySessionInformation(hServer: THandle; SessionId: DWORD; 
WTSInfoClass: DWORD; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall; 

{$EXTERNALSYM WTSQuerySessionInformation} 
{$ENDIF} 

implementation 
 
function ProcessIdToSessionId; external kernel32 name 'ProcessIdToSessionId'; 
function GetAdaptersInfo; external 'IPHlpApi.dll' name 'GetAdaptersInfo'; 

{$IFDEF UNICODE} 

function WTSOpenServer; external 'wtsapi32.dll' name 'WTSOpenServerW'; 

{$ELSE} 

function WTSOpenServer; external 'wtsapi32.dll' name 'WTSOpenServerA'; 

{$ENDIF} 
{$IFDEF UNICODE} 

function WTSQuerySessionInformation; external 'wtsapi32.dll' name 'WTSQuerySessionInformationW'; 

{$ELSE} 

function WTSQuerySessionInformation; external 'wtsapi32.dll' name 'WTSQuerySessionInformationA'; 

{$ENDIF} 

 
 

procedure ShowLocalIP; 

var   p : pointer; 
        l,e : integer; 
        ai: TIP_ADAPTER_INFO; 
begin 
    l:= 0; 
    GetAdaptersInfo(nil,l); 
    GetMem(p,l + 1); 
    e:= GetAdaptersInfo(p,l); 
    if e = ERROR_SUCCESS then 
        begin 
        &n bsp;   ai:= TIP_ADAPTER_INFO(p^); 
        &n bsp;   repeat 
        &n bsp;      
ShowMessage(string(ai.AdapterName) + CHR(10) + 
        &n bsp;       &nbs p;            string(ai.Description) + CHR(10) + 
        &n bsp;       &nbs p;            string(ai.IPAddressList.IpAddres s)); 
        &n bsp;      
if ai.Next <> nil then ai:= TIP_ADAPTER_INFO(ai.Next^); 
        &n bsp;   until ai.Next = nil; 
        end; 
    FreeMem(p,l); 
end; // end of procedure ShowLocalIP 
 

type 

    TIP = record 
        AddressFamily: DWORD; 
        Address: array[0..19] of byte; 
    end; 
    TCName = array[0..MAX_COMPUTERNAME_LENGTH] of char;

 


procedure GetClientIP; 


var     PID,SID : DWORD; 
    CName: TCName; 
    IP : string; 
    i : DWORD; 
    hSrv : THandle; 
    p: Pointer; 
begin 
    PID:= GetCurrentProcessID; 
    ProcessIdToSessionId(PID,SID); 
    i:= MAX_COMPUTERNAME_LENGTH + 1; 
    GetComputerName(CName,i); 
    if SID = 0 then //local session 
        ShowLocalIP 
    else begin //remote session 
        &n bsp;   hSrv:= WTSOpenServer(CName); 
        &n bsp;   if hSrv <> 0 then 
        &n bsp;      
begin 
        &n bsp;      
//IP of the client 
        &n bsp;       &nbs p;  
if WTSQuerySessionInformation(hSrv,SID,14 {WTSClientAddress},p,i) then 
        &n bsp;       &nbs p;      
begin 
        &n bsp;       &nbs p;           
IP:= IntToStr(TIP(p^).Address[2]) + '.' + 
        &n bsp;       &nbs p;           
IntToStr(TIP(p^).Address[3]) + '.' + 
        &n bsp;       &nbs p;           
IntToStr(TIP(p^).Address[4]) + '.' + 
        &n bsp;       &nbs p;           
IntToStr(TIP(p^).Address[5]) + '.'; 
        &n bsp;       &nbs p;         &

**bobek** · 23.04.2004, 18:38

Hallo Peter, 
auf dieser Seite <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wtsquerysessioninformation.asp">WTSQuerySessionInf ormation</a>
und <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wts_client_address_str.asp">WTSQuerySessionInforma tion</a>
ist doch alles, was du brauchst. 
Hier ist die Lösung in Delphi, dieser Beispiel ermittelt, ob es sich um eine locale oder remote (TS) Session handelt und ziegt die
IP.  
const 
    MAX_ADAPTER_NAME_LENGTH = 260; 
    MAX_ADAPTER_ADDRESS_LENGTH = 8; 
    MAX_ADAPTER_DESCRIPTION_LENGTH = 132; 
 

type PIP_ADDR_STRING = ^TIP_ADDR_STRING; 
     TIP_ADDR_STRING = record 
        &n bsp;      
Next

ointer; 
        &n bsp;      
IpAddress:array[0..15] of char; 
        &n bsp;      
IpMask:array[0..15] of char; 
        &n bsp;      
Context

WORD; 
      end; 
    PIP_ADAPTER_INFO = ^TIP_ADAPTER_INFO; 
    TIP_ADAPTER_INFO = record 
        Next: pointer; 
        ComboIndex : DWORD; 
        AdapterName: array[0..MAX_ADAPTER_NAME_LENGTH - 1] of char; 
        Description: array[0..MAX_ADAPTER_DESCRIPTION_LENGTH - 1] of char; 
        AddressLength: UINT; 
        Address: array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of byte; 
        Index: DWORD; 
        AdapterType: UINT; 
        DhcpEnabled: UINT; 
        CurrentIpAddress: PIP_ADDR_STRING; 
        IpAddressList: TIP_ADDR_STRING; 
        GatewayList: TIP_ADDR_STRING; 
        DhcpServer: TIP_ADDR_STRING; 
        HaveWins: BOOL; 
        PrimaryWinsServer: TIP_ADDR_STRING; 
        SecondaryWinsServer: TIP_ADDR_STRING; 
        LeaseObtained : integer; 
        LeaseExpires: integer; 
    end; 
 
function ProcessIdToSessionId(dwProcessId

WORD;var pSessionId

WORD):boolean; stdcall; 
function GetAdaptersInfo(pAdapterInfo:PIP_ADAPTER_INFO; var pOutBufLen:integer)

WORD; stdcall; 

{$IFDEF UNICODE} 

function WTSOpenServer(pServerName: PWideChar): THandle; stdcall; 

{$EXTERNALSYM WTSOpenServer} 
{$ELSE} 

function WTSOpenServer(pServerName: PAnsiChar): THandle; stdcall; 

{$EXTERNALSYM WTSOpenServer} 
{$ENDIF} 
{$IFDEF UNICODE} 

function WTSQuerySessionInformation(hServer: THandle; SessionId: DWORD; 
WTSInfoClass: DWORD; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall; 

{$EXTERNALSYM WTSQuerySessionInformation} 
{$ELSE} 

function WTSQuerySessionInformation(hServer: THandle; SessionId: DWORD; 
WTSInfoClass: DWORD; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall; 

{$EXTERNALSYM WTSQuerySessionInformation} 
{$ENDIF} 


implementation 

function ProcessIdToSessionId; external kernel32 name 'ProcessIdToSessionId'; 
function GetAdaptersInfo; external 'IPHlpApi.dll' name 'GetAdaptersInfo'; 

{$IFDEF UNICODE} 

function WTSOpenServer; external 'wtsapi32.dll' name 'WTSOpenServerW'; 

{$ELSE} 

function WTSOpenServer; external 'wtsapi32.dll' name 'WTSOpenServerA'; 

{$ENDIF} 
{$IFDEF UNICODE} 

function WTSQuerySessionInformation; external 'wtsapi32.dll' name 'WTSQuerySessionInformationW'; 

{$ELSE} 

function WTSQuerySessionInformation; external 'wtsapi32.dll' name 'WTSQuerySessionInformationA'; 

{$ENDIF} 


procedure ShowLocalIP; 

var   p : pointer; 
      l,e : integer; 
      ai: TIP_ADAPTER_INFO; 
begin 
  l:= 0; 
  GetAdaptersInfo(nil,l); 
  GetMem(p,l + 1); 
  e:= GetAdaptersInfo(p,l); 
  if e = ERROR_SUCCESS then 
   begin 
     ai:= TIP_ADAPTER_INFO(p^); 
     repeat 
      
ShowMessage(string(ai.AdapterName) + CHR(10) + 
        &n bsp;       &nbs p;  string(ai.Description) + CHR(10) + 
        &n bsp;       &nbs p;  string(ai.IPAddressList.IpAddress)); 
      
if ai.Next <> nil then ai:= TIP_ADAPTER_INFO(ai.Next^); 
     until ai.Next = nil; 
    end; 
    FreeMem(p,l); 
end; // end of procedure ShowLocalIP 
 

type TIP = record 
        AddressFamily: DWORD; 
        Address: array[0..19] of byte; 
      end; 
     TCName = array[0..MAX_COMPUTERNAME_LENGTH] of char;




procedure GetClientIP; 


var     PID,SID : DWORD; 
    CName: TCName; 
    IP : string; 
    i : DWORD; 
    hSrv : THandle; 
    p: Pointer; 
begin 
  PID:= GetCurrentProcessID; 
   ProcessIdToSessionId(PID,SID); 
  i:= MAX_COMPUTERNAME_LENGTH + 1; 
   GetComputerName(CName,i); 
  if SID = 0 then //local session 
        ShowLocalIP 
  else begin //remote session 
       &nbsp ; hSrv:= WTSOpenServer(CName); 
         if hSrv <> 0 then 
        &n bsp; 
begin 
        &n bsp; 
//IP of the client 
        &n bsp;   
if WTSQuerySessionInformation(hSrv,SID,14 {WTSClientAddress},p,i) then 
        &n bsp;     
begin 
        &n bsp;       
IP:= IntToStr(TIP(p^).Address[2]) + '.' + 
        &n bsp;       &nbs p;    
IntToStr(TIP(p^).Address[3]) + '.' + 
        &n bsp;       &nbs p;    
IntToStr(TIP(p^).Address[4]) + '.' + 
        &n bsp;       &nbs p;    
IntToStr(TIP(p^).Address[5]) + '.'; 
        &n bsp;       &nbs p;    
ShowMessage('Client IP ' + IP); 
        &n bsp;     
end; 
        &n bsp;     
//name of the client 
        &n bsp;     
if WTSQuerySessionInformation(hSrv,SID,10 {WTSClientName},p,i) then 
        &n bsp;       
begin 
        &n bsp;       &nbs p;   
CName:= TCName(p^); 
        &n bsp;       &nbs p;   
showmessage('Client name ' + CName); 
        &n bsp;       
end; 
        &n bsp;  end; 
&

**bobek** · 23.04.2004, 18:41

Hallo Peter, 
auf dieser Seite <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wtsquerysessioninformation.asp">WTSQuerySessionInf ormation</a>
und <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/wts_client_address_str.asp">WTSQuerySessionInforma tion</a>
ist doch alles, was du brauchst. 
Hier ist die Lösung in Delphi, dieser Beispiel ermittelt, ob es sich um eine locale oder remote (TS) Session handelt und ziegt die
IP.  
const 
    MAX_ADAPTER_NAME_LENGTH = 260; 
    MAX_ADAPTER_ADDRESS_LENGTH = 8; 
    MAX_ADAPTER_DESCRIPTION_LENGTH = 132; 

type PIP_ADDR_STRING = ^TIP_ADDR_STRING; 
     TIP_ADDR_STRING = record 
        &n bsp;      
Next

ointer; 
        &n bsp;      
IpAddress:array[0..15] of char; 
        &n bsp;      
IpMask:array[0..15] of char; 
        &n bsp;      
Context

WORD; 
      end; 
    PIP_ADAPTER_INFO = ^TIP_ADAPTER_INFO; 
    TIP_ADAPTER_INFO = record 
        Next: pointer; 
        ComboIndex : DWORD; 
        AdapterName: array[0..MAX_ADAPTER_NAME_LENGTH - 1] of char; 
        Description: array[0..MAX_ADAPTER_DESCRIPTION_LENGTH - 1] of char; 
        AddressLength: UINT; 
        Address: array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of byte; 
        Index: DWORD; 
        AdapterType: UINT; 
        DhcpEnabled: UINT; 
        CurrentIpAddress: PIP_ADDR_STRING; 
        IpAddressList: TIP_ADDR_STRING; 
        GatewayList: TIP_ADDR_STRING; 
        DhcpServer: TIP_ADDR_STRING; 
        HaveWins: BOOL; 
        PrimaryWinsServer: TIP_ADDR_STRING; 
        SecondaryWinsServer: TIP_ADDR_STRING; 
        LeaseObtained : integer; 
        LeaseExpires: integer; 
    end; 
function ProcessIdToSessionId(dwProcessId

WORD;var pSessionId

WORD):boolean; stdcall; 
function GetAdaptersInfo(pAdapterInfo:PIP_ADAPTER_INFO; var pOutBufLen:integer)

WORD; stdcall; 

{$IFDEF UNICODE} 

function WTSOpenServer(pServerName: PWideChar): THandle; stdcall; 

{$EXTERNALSYM WTSOpenServer} 
{$ELSE} 

function WTSOpenServer(pServerName: PAnsiChar): THandle; stdcall; 

{$EXTERNALSYM WTSOpenServer} 
{$ENDIF} 
{$IFDEF UNICODE} 

function WTSQuerySessionInformation(hServer: THandle; SessionId: DWORD; 
WTSInfoClass: DWORD; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall; 

{$EXTERNALSYM WTSQuerySessionInformation} 
{$ELSE} 

function WTSQuerySessionInformation(hServer: THandle; SessionId: DWORD; 
WTSInfoClass: DWORD; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall; 

{$EXTERNALSYM WTSQuerySessionInformation} 
{$ENDIF} 


implementation 

function ProcessIdToSessionId; external kernel32 name 'ProcessIdToSessionId'; 
function GetAdaptersInfo; external 'IPHlpApi.dll' name 'GetAdaptersInfo'; 

{$IFDEF UNICODE} 

function WTSOpenServer; external 'wtsapi32.dll' name 'WTSOpenServerW'; 

{$ELSE} 

function WTSOpenServer; external 'wtsapi32.dll' name 'WTSOpenServerA'; 

{$ENDIF} 
{$IFDEF UNICODE} 

function WTSQuerySessionInformation; external 'wtsapi32.dll' name 'WTSQuerySessionInformationW'; 

{$ELSE} 

function WTSQuerySessionInformation; external 'wtsapi32.dll' name 'WTSQuerySessionInformationA'; 

{$ENDIF} 


procedure ShowLocalIP; 

var   p : pointer; 
      l,e : integer; 
      ai: TIP_ADAPTER_INFO; 
begin 
  l:= 0; 
  GetAdaptersInfo(nil,l); 
  GetMem(p,l + 1); 
  e:= GetAdaptersInfo(p,l); 
  if e = ERROR_SUCCESS then 
   begin 
     ai:= TIP_ADAPTER_INFO(p^); 
     repeat 
      
ShowMessage(string(ai.AdapterName) + CHR(10) + 
        &n bsp;       &nbs p;  string(ai.Description) + CHR(10) + 
        &n bsp;       &nbs p;  string(ai.IPAddressList.IpAddress)); 
      
if ai.Next <> nil then ai:= TIP_ADAPTER_INFO(ai.Next^); 
     until ai.Next = nil; 
    end; 
    FreeMem(p,l); 
end; // end of procedure ShowLocalIP 
 

type TIP = record 
        AddressFamily: DWORD; 
        Address: array[0..19] of byte; 
      end; 
     TCName = array[0..MAX_COMPUTERNAME_LENGTH] of char;




procedure GetClientIP; 


var PID,SID : DWORD; 
    CName: TCName; 
    IP : string; 
    i : DWORD; 
    hSrv : THandle; 
    p: Pointer; 
begin 
  PID:= GetCurrentProcessID; 
   ProcessIdToSessionId(PID,SID); 
  i:= MAX_COMPUTERNAME_LENGTH + 1; 
   GetComputerName(CName,i); 
  if SID = 0 then ShowLocalIP //local session 
  else begin //remote session 
       &nbsp ; hSrv:= WTSOpenServer(CName); 
         if hSrv <> 0 then 
        &n bsp; 
begin 
        &n bsp; 
//IP of the client 
        &n bsp;   
if WTSQuerySessionInformation(hSrv,SID,14 {WTSClientAddress},p,i) then 
        &n bsp;     
begin 
        &n bsp;       
IP:= IntToStr(TIP(p^).Address[2]) + '.' + 
        &n bsp;       &nbs p;    
IntToStr(TIP(p^).Address[3]) + '.' + 
        &n bsp;       &nbs p;    
IntToStr(TIP(p^).Address[4]) + '.' + 
        &n bsp;       &nbs p;    
IntToStr(TIP(p^).Address[5]) + '.'; 
        &n bsp;       &nbs p;    
ShowMessage('Client IP ' + IP); 
        &n bsp;     
end; 
        &n bsp;     
//name of the client 
        &n bsp;     
if WTSQuerySessionInformation(hSrv,SID,10 {WTSClientName},p,i) then 
        &n bsp;       
begin 
        &n bsp;       &nbs p;   
CName:= TCName(p^); 
        &n bsp;       &nbs p;   
showmessage('Client name ' + CName); 
        &n bsp;       
end; 
        &n bsp;  end; 
       end; 

end

Announcement

Client IP-Adresse während einer Terminal Server Sitzung

Client IP-Adresse während einer Terminal Server Sitzung

Comment

Comment

Comment

Comment

Comment

Comment

Comment