Dobrý večer, podle jednoho článku http://vbnet.cz/clanek--72-pracujeme_s_p... jsem zkoušel do své aplikace přidat funkci zjišťování aktuální verze.
Try
Dim verze As Double = 0
'vystavit požadavek na dnešní den
Dim url As String = String.Format("http://aktualnikurz.euweb.cz/aktualniverze.html", Now)
Dim rq As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
'odeslat jej na server a získat odpověď
Dim rs As Net.HttpWebResponse = rq.GetResponse()
'vytvořit StreamReader pro pohodlnou práci
Dim sr As New IO.StreamReader(rs.GetResponseStream())
'projít řádky
While Not sr.EndOfStream
Dim s As String = sr.ReadLine()
'pokud jsme na řádku s dolarem, vytáhnout z něj kurz
If s.StartsWith("AktualniVerze|") Then
verze = CDbl(s.Substring(s.LastIndexOf("|") + 1))
End If
End While
'zavřít StreamReader
sr.Close()
'zavřít spojení
rs.Close()
'vypsat aktuální kurz
MsgBox(String.Format("Aktuální verze: {0}", verze))
Catch
MsgBox("Zkontrolujte připojení k internetu")
End Try
Webovou stárnku jsem si proto sám vytvořil a mám tam jen řádek AktualniVerze|1.2.0.0, ale když to je napsáno takto, program aktuální kurz nezobrazí a zobrazí chybu. Zkoušel jsem měnit i typ proměnné, ale píše to vždy chybu. Když na stránku napíšu AktualniVerze|1,2 tak se kurz normálně vypíše. Nevěděl by někdo jaký je problém, a jak ho mám řešit? Děkuji za Odpověď.
|