Gateway IP über eine API auslesen?

[Christian Seehase]

Moin Thurgen,

kleine Anleitung:

1. Neue Anwendung
2. Name Formular frmMAIN
3. Eine ComboBox auf das Formular ziehen
4. Name ComboBox cobGateway
5. Jetzt den Teil meines Beispieles vor implementation an die entsprechende Stelle in Unit1 kopieren
6. auf die Ereignisse des Formulares
7. Doppelclick auf OnShow
8. Den unteren Teil meines Beispieles dort hineinkopieren
9. fertig

[Thurgen]

super vielen dank es hat geklapt. Komisch war nur das er .FormShow nicht genommen hat. Das Programm lief erst nachdem ich .FormCreate benutzt habe.

Also nochmal vielen dank, ihr wart mir echt eine grosse Hilfe. Mit Delphi habe ich bis jetzt noch nie was Programmiert. Nur früher habe ich sehr viel mit Turbo Pascal gearbeitet, aber da gabs noch keine API Funktionen :)

Gruss,

Michael

PS: eine API die mir schnell und einfach den Namen der Grafikkarte zurück gibt habt ihr nicht auch noch im ärmel oder? :)

[Christian Seehase]

Moin Thurgen,

dass er FormShow nicht genommen hat war mein Fehler.
Hättest Du erst den Doppelclick auf das Ereignis gemacht, dann den Code eingetragen, und dann das Formular umbenannt, hätte es wohl funktioniert.

BTW:
In gewisser Weise gab es auch zu TP Zeiten eine API, allerdings die von DOS.
Z.B. Stichwort INT 21h.

[Thurgen]

nochmal eine kleine Frage, kann ich aus der Funktion auch noch den Namen der NIC auslesen ohne das der o.g. code nochmal gross Verändert werden muss auslesen?

[Christian Seehase]

Moin Thurgen,

wenn Du direkt nach der repeat Zeile diese Zeile einträgst

Code:

ShowMessage(trim(pAdapterWork.AdapterName));

wird Dir der interne Name angezeigt.

Tauscht Du .AdapterName gegen .Description aus, so wird Dir das angezeigt, was Du wohl meinst.

[Thurgen]

Super, vielen dank.

pAdapterWork.AdapterName gibt mir aber komischerweise immer einen leer String zurück und

.Description gibt mir 'Novel 2000 Adapter' zurück. Richtig ist aber 'ACTON EN1660 Plug and Play LAN-Karte'

aber egal, wird so erstmal auch funktionieren.

[Christian Seehase]

Moin Thurgen,

der AdapterName ist der interne Name (üblicher Weise eine GUID), und Description ist der lesbare Name.

Woher hast Du denn den "richtigen" Text?

[Thurgen]

Das ist der den er unter Systemsteuerung > System > Netzwerk anzeigt

[Christian Seehase]

Moin Thurgen,

ich hab' mal in der Registry gewühlt. ;-)

Das ist ein Wert der u.a. unter

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Enum\P CI

und dort in einem Unterkey in einem Wert Names FriendlyName zu finden ist. (Zumindest bei einer PCI Karte).

Wie man diesen per API erhält, oder wie man sich zu diesem in der Registry gezielt hinnavigiert, kann ich allerdings auch nicht sagen, dafür hatte ich bislang keinen Bedarf.

[Thurgen]

So habe ich das am Anfang auch probiert aber das kannst du vergessen. Den string findest du da nur bei win 98/ME, bei den anderen Versionen steht er woanders und da sind auch nur wie schon gesagt PCI Karten aufgelistet. ISA NICs die nach wie vor noch in vielen drin sind (bei mir auch) werden da nicht gelistet.