StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POWifiSignalStrength Basic To Delphi Converstion
primarykey
Id
1890314
data
AcceptedAnswerId
0
AnswerCount
2
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2009-12-11T19:24:32.660
FavoriteCount
0
LastActivityDate
2009-12-11T21:13:23.247
LastEditDate
LastEditorUserId
0
OwnerUserId
120633
ParentId
0
PostTypeId
1
Score
0
ViewCount
1322
LastEditorDisplayName
text
Body
<p>Can someone convert this to Delphi 2010? After not being able to find delphi code to return WiFi Signal Strength I found this basic code. Can someone convert this to Delphi?</p> <pre><code>'************************************** ' Name: WiFi Signal Strength ' Description:Returns the Wifi signal st ' rength in bars (1 to 5, 5 being good) ' By: Techni Rei Myoko ' 'This code is copyrighted and has' limited warranties.Please see http://w ' ww.Planet-Source-Code.com/vb/scripts/Sho ' wCode.asp?txtCodeId=71872&lngWId=1'for details.'************************************** Option Explicit Public WiFiHardwareName As String, WiFiDecibals As Long Dim objWMIService As Object, isSet As Boolean Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Public Enum ConnectedState INTERNET_CONNECTION_MODEM = &H1 INTERNET_CONNECTION_LAN = &H2 INTERNET_CONNECTION_PROXY = &H4 INTERNET_CONNECTION_MODEM_BUSY = &H8 INTERNET_RAS_INSTALLED = &H10 INTERNET_CONNECTION_OFFLINE = &H20 INTERNET_CONNECTION_CONFIGURED = &H40 End Enum Public Function WifiSignalStrength(Optional Computer As String = ".") As Long On Error Resume Next Dim colItems As Object, objItem As Object WifiSignalStrength = IIf(isConnected, 5, 0) If Not isSet Then Set objWMIService = GetObject("winmgmts:\\" & Computer & "\root\wmi") isSet = True End If Set colItems = objWMIService.ExecQuery("Select * From MSNdis_80211_ReceivedSignalStrength") For Each objItem In colItems WiFiDecibals = objItem.NDIS80211ReceivedSignalStrength WiFiHardwareName = objItem.InstanceName Select Case WiFiDecibals Case 0: WiFiHardwareName = "Ethernet" Case Is > -57: WifiSignalStrength = 5 ' -56 To 0 Case Is > -68: WifiSignalStrength = 4 '-67 To -57 Case Is > -72: WifiSignalStrength = 3 '-71 To -68 Case Is > -80: WifiSignalStrength = 2 '-79 To -72 Case Is > -90: WifiSignalStrength = 1 '-89 To -80 Case Else: WifiSignalStrength = 0 End Select Next End Function 'Connection Public Function isConnected() As Boolean Dim dwFlags As Long, retval As Long retval = InternetGetConnectedState(dwFlags, 0&) isConnected = retval = 1 End Function </code></pre>
Tags
<delphi>
Title
WifiSignalStrength Basic To Delphi Converstion
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USBill Miller
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
  singulars
  PostTypePostTypeId
  PTAnswer
2. PO
  singulars
  PostTypePostTypeId
  PTAnswer
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. COAfter testing various suggestons presented here, two different developers in our research team found "Detecting Wifi Networks Using Delphi and Native Wifi API" to be the best way for us to detect WiFi signal strength on 2 test pc's on Vista with Delphi 2007 and Delphi 2010... the post can be found here: http://theroadtodelphi.wordpress.com/2009/10/07/detecting-wifi-networks-using-delphi/ The code presented by the author is easily compiled and works very well for us to detect signal strength. Thanks to all who assisted!
  singulars
  PostPostId
  POWifiSignalStrength Basic To Delphi Converstion
  UserUserId
  USBill Miller

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.