vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
nmea Datei Map über gpsvisualizer erstellen und Downloadlink ermitteln 
Autor: Hubert Holler
Datum: 13.06.19 23:19

Hallo!
Ich möchte anhand einer nmea Datei (https://www.dropbox.com/s/0p8y02pse4nf2o7/2019-06-13_121144.674.as.nmea?dl=0) über gpsvisualizer.com eine Map erstellen, wo ich dann den Downloadlink für die Karte ermitteln möchte.

Dazu habe ich bis jetzt immer folgenden Code verwendet, der auch immer funktioniert hat.
Laut gpsvisualizer wurde die Seite jetzt auf https geändert. Ich habe meiner Meinung nach alle Änderungen angepasst.
Hier mein Code

Public Function gpslink(datei As String) As String
    Dim strFile As String
    Dim strHttp As String
    Dim DestUrl As URL
    'Dim datei As String
 
     'datei = "D:\eigene dateien\vb\datenlogger - totorovic\nmea.txt"
     strdatei = Mid(datei, InStrRev(datei, "\", -1) + 1)
 
    strUrl = "https://www.gpsvisualizer.com/map?output_home"
    strName = "uploaded_file_1"
    strMIMEType = "multipart/form-data"
 
    ' if a request is allredy being sent
    ' exit
    If blnConnected Then Exit Function
 
    ' check that a file was selected
    If datei = vbNullString Then
        MsgBox "No File Chosen", vbCritical, "ERROR"
 
        Exit Function
    End If
 
    ' extract the URL using a helper function
    DestUrl = ExtractUrl(strUrl)
 
    If DestUrl.Host = vbNullString Then
        MsgBox "Invalid Host", vbCritical, "ERROR"
 
        Exit Function
    End If
 
    ' clear the old response
    strResponse = ""
 
    ' read the file contents as a string
    ' N.B: in HTTP everything is a string, even binary files
    strFile = GetFileContents(datei)
 
    ' build the HTTP request
    strHttp = BuildFileUploadRequest(strFile, DestUrl, strName, strdatei, _
      strMIMEType)
 
    ' assign the protocol host and port
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.RemoteHost = DestUrl.Host
 
    If DestUrl.Port <> 0 Then
        Winsock1.RemotePort = DestUrl.Port
    Else
        Winsock1.RemotePort = 80
    End If
 
    ' make the connection and send the HTTP request
    Winsock1.Connect
 
    While Not blnConnected
        DoEvents
    Wend
 
    strRequest = strHttp
    Winsock1.SendData strHttp
 
    While blnConnected
        DoEvents
    Wend
    'Clipboard.SetText strResponse
    'Debug.Print Len(strResponse)
    Dim intview As Integer
    Dim pfad As String
 
    intview = InStr(1, strResponse, "view")
    If intview > 0 Then
        pfad = Mid(strResponse, 1, intview - 3)
        gpslink = Mid(pfad, InStrRev(pfad, "/", -1))
        gpslink = "https://www.gpsvisualizer.com/display" & gpslink & " "
    Else
        gpslink = ""
    End If
 
    If blnConnected Then blnConnected = False
 
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
nmea Datei Map über gpsvisualizer erstellen und Downloadlink...74Hubert Holler13.06.19 23:19
Re: nmea Datei Map über gpsvisualizer erstellen und Download...40Hubert Holler13.06.19 23:19
Siehe auch29VB3-Guru16.06.19 14:49
Re: Siehe auch17Hubert Holler17.06.19 22:34

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel