Objektorientierte Programmierung Beispiel

[GM_FrEaK]

Hier eine Funktionierende Downloader Klasse 

Code Auswählen Erweitern


Class Downloader
Function Download(Adress, File, Overwrite = TRUE, Port = 80)
If !Overwrite And FileExists(File) Then
Return FALSE
End If

Dim http = New wxHTTP()
Dim uri = New wxURI(Adress)
http.SetTimeout(10)

While !http.Connect(uri.GetServer(), Port)
wxSleep(1)
Wend

Dim stream = http.GetInputStream(uri.GetPath())
If (http.GetError() = wxPROTO_NOERR) Then
Dim FileHandle = FOpen(File, "w")
While !stream.Eof()
Dim chunk = stream.Read(1024)
FPuts(FileHandle, chunk)
Wend
FClose(FileHandle)
Else
Return FALSE
End If
End Function
End Class