Hello Deniel and others.
I saw that you want to use the DL5DI URL protocol
and you cannot change the URL.
I do not use this myself but I will check the code
and make it possible to change the URL
So here I piece of the subroutine I use.
Public Const strcURLdl5di As String = "http://db0myk.prgm.org/peiler.php?"
Public Sub DL5DI2HTTP(ByVal MyDegrees As String, ByVal MyAgrelo As String, Optional bMu As Boolean = False)
''ToDo
''@26-04-2011
''@18-08-2011
''@26-08-2011
''Static string
Static OldDegrees As String
''Const string
Const RDigits As Integer = 5
Const p As String = "p1="
Const d As String = ","
''String
Dim a As String
Dim MyUrl As String
''Nothing ToDo
''Example http://db0myk.prgm.org/peiler.php?p1=52.21667000,5.16666700,25.0,45
''Also check for Callsign
Select Case strArrayPacket(1)
Case strNoCall, ""
bDL5DI = False
Form1!mnuDL5DI.Checked = bDL5DI
OldDegrees = ""
Exit Sub
End Select
''@14-09-2011
''To Many ZeroCrossings or nothing in averaged
If bMultiDetecting Then ''Never draw if MultipathDetect + Agrelo
If arrMulti(3) > 1 Or Val(MyDegrees) = cNoDegrees Then
Exit Sub
End If
End If
If bMu Then Exit Sub
If OldDegrees = MyDegrees Then Exit Sub ''If degrees the same as last time do not send data.
If Val(MyAgrelo) = 0 Then Exit Sub
If MyDegrees = strcEmpty Or MyDegrees = "" Then
OldDegrees = MyDegrees
Exit Sub
Else
OldDegrees = MyDegrees
End If
MyAgrelo = LTrim$(MyAgrelo)
''Factor a is the deviation according 2 lines beside the bearing in degrees
Select Case MyAgrelo
Case "1", "2", "3"
a = "90"
Case "4", "5"
a = "45"
Case "6", "7"
a = "22.5"
Case "8", "9"
a = "10"
Case Else
''Nothing ToDo
Exit Sub
End Select
If bGps Then
If GPSVal = "A" And Val(GPSKnots) >= Val(strArrayPacket(5)) Then
MyUrl = strURLdl5di & p & Round(strConv2Decimal(GPSLat), RDigits) & d & Round(strConv2Decimal(GPSLong), RDigits) & d & Val(AddCompassValue(MyDegrees)) & ".0" & d & a
Else
Exit Sub
End If
End If
If bGps = False Then
MyUrl = strURLdl5di & p & Round(strConv2Decimal(strArrayPacket(3)), RDigits) & d & Round(strConv2Decimal(strArrayPacket(2)), RDigits) & d & Val(Conv3(MyDegrees)) & ".0" & d & a
End If
''Debug.Print MyUrl
Call GotoUrl(MyUrl)
End Sub
So here I piece of the subroutine I use.
I will check and try to test these routines and make changing the URL possible where the error is of the URL changing.
Yes I can add also the Quality just tell me how the URL string has to look.
I will do tomorrow some testing and I let you know when the new version
is there.
Currently I was working in MyMapping1.38
To get all the remote and local control functions right for the FT817 through a cat62 cable.
I am also planning to make a station data base in MyMapping139.exe
So know stations with there name location pwr frequency etc.
We are also working on a new PCB design.
Two SuperSimpleSoundDopplers on one eurocard.
Home
Help
Search
Login
Register
