Prikazi cijelu temu 05.05.2015 11:06
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. Type hexData
  2.     str1 As String
  3.     str2 As String
  4.     str3 As String
  5.     str4 As String
  6.     str5 As String
  7. End Type
  8.  
  9. Private podaci as hexData
  10.  
  11. ImeFajla=App.Path & "/data.hex"
  12. Open ImeFajla For Binary Lock Read Write As #BrFajla
  13.         Put #BrFajla, , podaci
  14. 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):
  1. Dim bData() As Byte
  2. Dim intFile As Integer
  3. Dim icByteArray
  4. ImeFajla=App.Path & "temp.tmp"
  5. bData() = Inet1.OpenURL(strURL, icByteArray)
  6. Open ImeFajla For Binary Access Write As #BrFajla
  7.      Put #BrFajla, , bData
  8. 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):
  1. Open fileName For Binary Lock Read Write As #FF
  2.          Get #FF, , podaci
  3. Close #FF
  4. strString=podaci.str1
  5. call dekodiranje(strString)
  6. strString=podaci.str2
  7. call dekodiranje(strString)
  8. ...
  9. itd
unapred zahvaljujem
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 05.05.2015 11:08 od strane Avko.