Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z kontrolką INET
fafek2



Typ: neutral
Postów: 35
Zarejestrowany: Sep 2002
Problem z kontrolką INET

Jak sciągać pliki za pomocą kontrolki Internet Transfer pliki? Chciałbym również aby była pokazywany pasek postępu ściągania pliku. Jeśli znacie inną kontrolkę lub funkcję API bardzo proszę.

28-09-2002 22:09
Pokaż profil fafek2  Wyślij email do fafek2        3850864
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Ja mam gdzieś na dysku program ściągający pliki z netu pokazujący pasek statusu, ale jest to winsock (API) i coś się pieprzy że program się nie zamyka jak trzeba (program się zamyka a klasa (class module) zostaje w pamięci). Najlepiej to wygląda po debbugowaniu, debbuguje i program się zamyka VB normalnie przechodzi z trybu uruchamiania do trybu projektowania aplikacji, coś se daję np. nowego buttona a po 2 minutach włącza się debbuger i debbuguje klasę ;-) Po skompilowaniu przy zamykaniu program się sypie.

Niestety ale Inet jest prosty i nie da się dać progressbara a co najgorsze to fakt, że przy >30 KB pliku plik ściąga się coraz wolniej, bo ktoś kto robił sampla, źle zaprojektował pętlę (tj. dobrze, ale VB wykonuje w pamięci kupę operacji przy łączeniu stringów a przy 30 KB zaczyna to mocno spowalniać).

Oto kod wykorzystujący kontrolkę Inet

' Written exclusively for VB Center by Marco Cordero.

Private Sub Command1_Click()
   
    Dim txt As String
    Dim b() As Byte
   
    'On Error GoTo ErrorHandler
   
   
    Command1.Enabled = False
   
    ' This opens the file specified in the URL text box
    b() = Inet1.OpenURL(URL.Text, 0)
   
    txt = ""
   
    For t = 0 To UBound(b) - 1
        txt = txt + Chr$(b(t))
    Next
   
    ' This loads the opened file into the RichTextBox control
    RichTextBox1.Text = txt
   
    Command1.Enabled = True
   
    Exit Sub
   
ErrorHandler:

    MsgBox "The document you requested could not be found.", vbCritical

    Exit Sub

End Sub



_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

29-09-2002 22:37
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1