Autor Téma: Info o wifi  (Přečteno 7845 krát)

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 3335
  • Karma: 139
    • Verze Delphi: D2007, XE3, DX10
Re:Info o wifi
« Odpověď #15 kdy: 26-02-2014, 08:36:31 »
Taky možnost. Docela pravděpodobná, když tak o tom přemýšlím. Není v tom kódu nějaké logování průběhu pomocí Writeln('Ted jsem uspesne zavolal API funkci XY');?
Vzdyt uvadel

Debuger mi zustane viset na řadku 91
Writeln('Interface       ' + pInterface^.InterfaceInfo.strInterfaceDescription);
S chybovou hlaškou

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:Info o wifi
« Odpověď #16 kdy: 26-02-2014, 08:40:18 »
A co to native Wifi API?

Minimum desktop: Windows XP SP3, nebo Windows XP SP2 s tímto rozšířením

Honza.Klima

  • Host
Re:Info o wifi
« Odpověď #17 kdy: 26-02-2014, 14:11:05 »
Mam XP sp3, tam by to už mělo byt ne?

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:Info o wifi
« Odpověď #18 kdy: 26-02-2014, 14:34:48 »
Mam XP sp3, tam by to už mělo byt ne?

Ano.

Honza.Klima

  • Host
Re:Info o wifi
« Odpověď #19 kdy: 27-02-2014, 07:29:00 »
Tak bude asi problem mezi počitačem a židlí  :)

Honza.Klima

  • Host
Re:Info o wifi
« Odpověď #20 kdy: 27-02-2014, 11:18:11 »
Tak pokus č 3 a dotaz.
http://theroadtodelphi.wordpress.com/2009/09/30/detecting-wifi-networks-using-delphi-prism/

Hned  pod uses
NativeWifi,//You must add the reference to the library ManagedWifi.dll
Jak přidam tuto knihovnu do projektu v XE2?
Přes Component - import component to nejde, beči že nema NativeWifi.dcu.
Jinak dole je odkaz na zdrojak, ktery ma strukturu, kterou neznam, ale je tam i hotovy exe, ktery funguje.

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:Info o wifi
« Odpověď #21 kdy: 27-02-2014, 11:26:08 »
Tak pokus č 3 a dotaz.
http://theroadtodelphi.wordpress.com/2009/09/30/detecting-wifi-networks-using-delphi-prism/

Hned  pod uses
NativeWifi,//You must add the reference to the library ManagedWifi.dll
Jak přidam tuto knihovnu do projektu v XE2?
Přes Component - import component to nejde, beči že nema NativeWifi.dcu.
Jinak dole je odkaz na zdrojak, ktery ma strukturu, kterou neznam, ale je tam i hotovy exe, ktery funguje.

Celý ten kód je pro Delphi Prism. Možná jsi hledal spíš tohle http://theroadtodelphi.wordpress.com/2009/10/07/detecting-wifi-networks-using-delphi/
« Poslední změna: 27-02-2014, 11:28:13 od TLama »

Honza.Klima

  • Host
Re:Info o wifi
« Odpověď #22 kdy: 27-02-2014, 12:14:10 »
Možná jsi hledal spíš tohle http://theroadtodelphi.wordpress.com/2009/10/07/detecting-wifi-networks-using-delphi/

Tak toto zkouším od začatku a pišu na 1 strance.
No chtěl bych to pod W XP.
A co to native Wifi API?
Uplně nahoře piše autor že nedavno napsal o tom članek.
http://theroadtodelphi.wordpress.com/2009/10/07/detecting-wifi-networks-using-delphi/
Debuger mi zustane viset na řadku 91
Writeln('Interface       ' + pInterface^.InterfaceInfo.strInterfaceDescription);
S chybovou hlaškou
First chance exception at $7C812AEB. Exception class EInOutError with message 'I/O error 105'. Process Project1.exe (1816)

Zkoušel jsem to na Win XP i Win 8 a vím že musím změnit dwClientVersion [in] 1 pro XP a 2 pro Win 8
Ale pokud mi funguje ten exe s Delphi Prism tak v notasu je vše ok.

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:Info o wifi
« Odpověď #23 kdy: 27-02-2014, 12:32:27 »
Možná jsi hledal spíš tohle http://theroadtodelphi.wordpress.com/2009/10/07/detecting-wifi-networks-using-delphi/

Tak toto zkouším od začatku a pišu na 1 strance.
No chtěl bych to pod W XP.
A co to native Wifi API?
Uplně nahoře piše autor že nedavno napsal o tom članek.
http://theroadtodelphi.wordpress.com/2009/10/07/detecting-wifi-networks-using-delphi/
Debuger mi zustane viset na řadku 91
Writeln('Interface       ' + pInterface^.InterfaceInfo.strInterfaceDescription);
S chybovou hlaškou
First chance exception at $7C812AEB. Exception class EInOutError with message 'I/O error 105'. Process Project1.exe (1816)

Zkoušel jsem to na Win XP i Win 8 a vím že musím změnit dwClientVersion [in] 1 pro XP a 2 pro Win 8
Ale pokud mi funguje ten exe s Delphi Prism tak v notasu je vše ok.

Tuhle část jsem přehlídl. No evidentně nemáš konzolovou aplikaci, ale formulářovou VCL a v ní nelze (bez alokované konzole)
volat WriteLn ani ReadLn.

Nahraď WriteLn např. za ShowMessage a pokud jsou tam řádky s ReadLn, tak je vymaž.
« Poslední změna: 27-02-2014, 12:35:04 od TLama »

Honza.Klima

  • Host
Re:Info o wifi
« Odpověď #24 kdy: 27-02-2014, 13:21:44 »
No jsem pěknej vul.
Jde vidět že za 10 roku po škole s delphi nevim skoro nic.
Děkují že jste to se mnou vydrželí.
Ale stejnak to není to co jsem potřeboval.
Vypiše to nahodně 2 sitě, ktere vidí a ne tu, ke ktere jsem připojen.

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:Info o wifi
« Odpověď #25 kdy: 27-02-2014, 13:48:29 »
Vypiše to nahodně 2 sitě, ktere vidí a ne tu, ke ktere jsem připojen.

To asi jo no. To je kód pro enumeraci viditelných sítí. Ty potřebuješ namísto funkce WlanGetAvailableNetworkList zavolat WlanQueryInterface s OpCode parametrem wlan_intf_opcode_current_connection. Volání té funkce ti ve svém parametru ppData vrátí strukturu WLAN_CONNECTION_ATTRIBUTES v níž si vyzvedneš přes pole wlanAssociationAttributes strukturu WLAN_ASSOCIATION_ATTRIBUTES ve které je pole dot11Ssid obsahující informace o SSID.

Pfew ::)

A beztak to půjde ještě jednodušším způsobem. Srry, nemám teď čas. Ani wi-fi, když jsme u toho :)
« Poslední změna: 28-02-2014, 02:26:56 od TLama »

Honza.Klima

  • Host
Re:Info o wifi
« Odpověď #26 kdy: 27-02-2014, 14:03:37 »
http://stackoverflow.com/questions/14324706/delphi-routine-to-read-rssi-of-a-wireless-connection

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:Info o wifi
« Odpověď #27 kdy: 27-02-2014, 14:12:09 »
http://stackoverflow.com/questions/14324706/delphi-routine-to-read-rssi-of-a-wireless-connection

No vidíš a vědět o hodnotě wlan_intf_opcode_current_connection předtím, mohl sis ušetřit hafo času ;)