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.vb4all.pl * http://www.jelcyn.com
|