Predmet:Re: downloader u vb6
ja se ponovo sa ovim mucim
na web stranici imam datoteku data.hex koja je kodirana( svako slovo pretvoreno u hex broj)
datoteka je snimljena ovako:
PreuzmiIzvorni kôd (Visual Basic):Type hexData
str1 As String
str2 As String
str3 As String
str4 As String
str5 As String
End Type
Private podaci as hexData
ImeFajla=App.Path & "/data.hex"
Open ImeFajla For Binary Lock Read Write As #BrFajla
Put #BrFajla, , podaci
Close #BrFajla
nakon toga je ImeFajla datoteka stavljena na web stranicu. Kada rucno skinemo (kliknemo na stranici na link) fajl na HD je velicine 518 byta i citamo ga normalno. No problem je kada napisem kod koji ce tu datoteku skinuti sa web stranice. Znaci normalno Inet i sve ostalo stavim na form1
PreuzmiIzvorni kôd (Visual Basic):Dim bData() As Byte
Dim intFile As Integer
Dim icByteArray
ImeFajla=App.Path & "temp.tmp"
bData() = Inet1.OpenURL(strURL, icByteArray)
Open ImeFajla For Binary Access Write As #BrFajla
Put #BrFajla, , bData
Close #BrFajla
Kada kod skine fajl, on to napravi, ali velicine je 2,95KB i nemogu ga procitati.
Kada bi ga uspio skinuti u ispravnom obliku prebacio bi ga u podaci na ovaj nacin i to radi sa onim fajlom kojeg rucno skinem ali nece sa fajlom koji skinem uz pomoc koda u VB6:
PreuzmiIzvorni kôd (Visual Basic):Open fileName For Binary Lock Read Write As #FF
Get #FF, , podaci
Close #FF
strString=podaci.str1
call dekodiranje(strString)
strString=podaci.str2
call dekodiranje(strString)
...
itd
unapred zahvaljujem
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 05.05.2015 12:08 od strane Avko.