| |
Fortgeschrittene ProgrammierungHttp und if-modified- since o. if If-None-Match | | | Autor: Philipp | Datum: 04.08.18 13:58 |
| Guten Tag liebe VB6 Gemeinde,
ich habe ein Problem und komme einfach nicht weiter.
Also ich downloade ein JPG File, vom Internet, alle 5 Min. Geht soweit sehr gut.
1. Problem der Dateiname ist immer derselbe compppi15.jgp
Ich müsste zusätzlich das Erstellungsdatum der Datei haben um sie in dem Tagesfolder(01..31) richtig abzuspeichern.
habe soweit gelöst mit
hInternetSession = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0)
If CBool(hInternetSession) Then
hInternetConnect = InternetConnect(hInternetSession, strHost, _
INTERNET_DEFAULT_HTTP_PORT, vbNullString, vbNullString, _
INTERNET_SERVICE_HTTP, 0, 0)
If hInternetConnect > 0 Then
hHttpOpenRequest = HttpOpenRequest(hInternetConnect, "HEAD", Right( _
Text1.Text, Len(Text1.Text) - InStr(Text1.Text, "/") + 1), _
"HTTP/1.1", vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
If CBool(hHttpOpenRequest) Then
' "Host: " & strHost, Len(strHost)
iRetVal = HttpSendRequest(hHttpOpenRequest, vbNullString, 0, 0, 0)
If iRetVal Then
StatusCode = GetQueryInfo(hHttpOpenRequest, HTTP_QUERY_STATUS_CODE)
StatusText = GetQueryInfo(hHttpOpenRequest, HTTP_QUERY_STATUS_TEXT)
RawHeaders = GetQueryInfo(hHttpOpenRequest, HTTP_QUERY_RAW_HEADERS)
LastModified = GetQueryInfo(hHttpOpenRequest, HTTP_QUERY_LAST_MODIFIED)
IfModifiedSince = GetQueryInfo(hHttpOpenRequest, HTTP_QUERY_IF_MODIFIED_SINCE)
myEtag = GetQueryInfo(hHttpOpenRequest, HTTP_QUERY_ETAG)
RawHeadersCrLf = GetQueryInfo(hHttpOpenRequest, _
HTTP_QUERY_RAW_HEADERS_CRLF)
Text2.Text = RawHeadersCrLf
Text3.Text = ""
Text3.Text = LastModified
Label3.Caption = myEtag
End If
End If
End If
End If
2. Problem ist das ich die Datei unnötigerweise alle 5 Min downloade, was eigentlich resourcen-unfreundlich ist.
Habe das Internet hoch und runter durchsucht um eine andere,bessere, Methode zu finden und bin auf
If-Unmodified-Since = "If-Unmodified-Since" ":" HTTP-date
If-None-Match
Um zu Überprüfen of das letzte Bild verändert wurde.
Leider blick ich da überhaupt nicht durch. Vielleicht könnte mir jemand dabei helfen.
Vielen dank im vorraus und Grüsse | |
Re: Http und if-modified- since o. if If-None-Match | | | Autor: Callimero | Datum: 04.08.18 18:14 |
| Ich verstehe zwar nicht, warum man sich alle 5min immer ein und das selbe Bild herunterladen muss, aber das muss ich ja auch nicht.
Zu deinem Problem:
Falls es nicht unbedingt über http sein muss, kannst Du doch das kostenlose FTP Plugin von der VB CD nutzen, falls Du diese dein eigen nennst.
Hier kannst du dann ja einen Dateivergleich vor dem Download ausführen, da Dir das Plugin die Dateieigenschaften schon beim auflisten zurück liefert.
MfG
Andreas | |
Re: Http und if-modified- since o. if If-None-Match | | | Autor: Philipp | Datum: 04.08.18 19:11 |
| Hallo erstmal vielen dank für die Antwort.
Warum alle 5 Min ?
Weil der Dateiname immer der gleiche ist das Radarbild aber ein anderes ist.
VB CD ? Meinst Du die original VB6 CD von Microsoft ? | |
Re: Http und if-modified- since o. if If-None-Match | | | Autor: Callimero | Datum: 05.08.18 12:39 |
| Radardbilder, alles klar, das macht dann natürlich Sinn.
Ich meine die vb@rchiv CD Vol. 6, die auch hier erhältlich ist. Das ist die Sammlung der Beispiele dieser Webseite von Dieter. Erhältlich hier https://www.tools4vb.net/index.php?cat=4.
Da sind dann auch Beispiele drauf für das FTP PlugIn.
Problem an der Sache ist jedoch, Du brauchst einen FTP Zugang zur Webseite.
Oder die Webseite erlaubt das Auflisten von Verzeichnissen, dann könnte man das Erstellugnsdatum auslesen.
Ich habe mir mal auf wiki die If-Unmodified-Since angeschaut. Es scheint so, als würde dies nur auf die das Erstellungsdatum der Webseite zutreffen aber nicht auf dein Bild, da dies mit Sicherheit nicht an das Erstellungsdatum der Webseite gekoppelt sein dürfte...
Gruß Andreas.
Beitrag wurde zuletzt am 05.08.18 um 13:06:16 editiert. | |
| 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 |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|