Downloader (basic)

[ntaryl]

καλημερα

Ειχα κανει μια αναφορα για τον downloader .ειπα λοιπον να ποσταρω ενα παραδειγματακι .

Ψηνομουνα να ποσταρω κατι πιο περιπλοκο και πιο πολυ ενδιαφερον.

Τελικα αποφασισα να ποσταρω ενα απλο και απο εκει ο καθενας μπορει παντα αναλογα τα κεφια να προσθεσει λειτουργιες ..

Πρωτα πρωτα ευχαριστω πολυ το "KPD TEAM" ,"example by Matthew Gates"

 

Η ολη διαδικασια ειναι πολυ απλη..

Ανοιγουμε μια φορμα και γραφουμε τα παρακατω

>
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
   Dim lngRetVal As Long
   lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
   If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
   'example by Matthew Gates ([email protected])
   DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

Το τρεχουμε και ειμαστε ετοιμοι

ανοιγουμε το C:

και βλεπουμε το αρχειο allapi.htm

 

Ελπιζω να βοηθησει και να εμπνευσει μερικους να φτιαξουν κατι ενδιαφερον