IP addressen ermittlen

[Daniel G]

Zitat von ghost007:

oha, hast du das auch in delphi tags?

Hä?

[Sharky]

Zitat von ghost007:

oha, hast du das auch in delphi tags?

Hai ghost007,

Du musst mit der rechten Maustaste auf "Download" klicken und dann "Speichern unter auswählen". Sonst wird das ganze im Webbroser (bei mir zumindest) ohne Zeilenumbrüche angezeigt.

Also einfach die Datei wie beschrieben auf die Platte kopieren und dann in einem Editor deiner Wahl öffnen.

[ghost007]

^^ so schlau war ich noch.
Aber was ist das?

[EDIT]sry, hatte da was verpeilt.
ne frage zu der unit, was is kRow?
Das is der parameter den man bei CloseTCPConnection angeben muss.

[Daniel G]

Zitat von ghost007:

Aber was ist das?

Das ist eine Delphi - Unit. Mit ein paar undokumentierten Win32 - Funktionen drinne... Guck' dir mal diese Links an:

http://www.sysinternals.com/Utilities/TcpView.html
http://www.faqsen.de/delphi/tutorial...84851/tut1.jsp hat Klaus01 gepostet.

Ich hab' dazu noch ein Beispielprogramm, nur wollte ich dir das jetzt nicht fertig vor'n Latz werfen. Guck' dir einfach mal den zweiten Link genauer an, dann kannst du auch mit meiner Unit etwas mehr anfangen...

//Edit: Ah, ok...

Zitat:

ne frage zu der unit, was is kRow?

Das ist eine Struktur vom Typ MIB_TCPROW

Delphi-Quellcode:

_MIB_TCPROW = packed record
    dwState,
    dwLocalAddr,
    dwLocalPort,
    dwRemoteAddr,
    dwRemotePort: DWORD;
  end;
  MIB_TCPROW = _MIB_TCPROW;
  PMIB_TCPROW = ^MIB_TCPROW;

Steht aber auch so in der Unit.

[ghost007]

mit welchen, und wie muss ich dann die kRow mit informationen füttern?

[EDIT]Hab zwar schon viel gemacht, aber von records (das scheihnt mir einer zu sein) hab ich keine ahnung

[Daniel G]

Also, mit diesen beiden Funktionen

Delphi-Quellcode:

Function GetTcpTable(Table: PMIB_TCPTABLE; dwSize: PDWORD; bOrder: BOOL): DWORD; stdcall; external 'iphlpapi.dll';

Function GetUdpTable(Table: PMIB_UDPTABLE; dwSize: PDWORD; bOrder: BOOL): DWORD; stdcall; external 'iphlpapi.dll';

Bekommst du alle Verbindungen, jeweils UDP und TCP/IP.

PMIB_TCPTABLE sieht so aus:

Delphi-Quellcode:

_MIB_TCPTABLE = packed record
    dwNumEntries: DWORD;
    table: Array[0..0] of MIB_TCPROW;
  end;
  MIB_TCPTABLE = _MIB_TCPTABLE;
  PMIB_TCPTABLE = ^MIB_TCPTABLE;

So weit kapiert? Und jetzt kannst du eine Verbindung beenden, wenn du z.B.

Delphi-Quellcode:

var
TCPTable: PMIB_TCPTABLE;
//[...]
begin
//Alle TCP - Verbindungen auflisten
GetTcpTable(TCPTable,SizeOf(TCPTable),True);

//Wir schließen die Dritte Verbindung
kRow := TCPTable.Table[2];
CloseTCPConnection(kRow);
end;

das war's....

[ghost007]

danke, werde mir das mal zu gemühte führen