Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ściąganie plików z NETa
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002
Ściąganie plików z NETa

Niestety, ale ściąganie plików, przez MSINET jest bardzo niewygodne i trzeba dorzucić do systemu kolejną kontrolkę, trza rezerwować tablicę a potem zapisywać dane do pliku. Dużo wygodniejsza w tym celu jest poniższa funckja API

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


Naprawdę jest dziecinnie prosta a zadowoli chyba każdego, nie nadaje się do ściągania dużych plików bo zatrzymuje program na czas ściągania plików, jednak chcąc zassać mały plik jest wręcz idealna :-)

Jutro na VB4all wrzucę sampla z tą funkcją :-)


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

20-03-2003 22:26
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003

Ja uzywalem kiedys do tego celu kontrolki, chyba Winsock. Zabij mnie, ale nie pamietam jak to robilem. Jak znajde ten projekt to umieszcze fragment kodu do sciagania pliku.


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

08-04-2003 23:41
Pokaż profil Garf  Wyślij email do Garf   
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003

Zonk. Uzywalem MS Inet.


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

10-04-2003 16:47
Pokaż profil Garf  Wyślij email do Garf   
Q



Typ: moderator
Postów: 38
Zarejestrowany: Apr 2002

Nie musi zatrzymywać programu, jeżeli dasz jej prockę progressa, w której dasz DoEvents.


_____________________________________________
Dobre programy dzielą się na te, których nikt nie wymyślił i na te, których nikt nie napisał.

12-04-2003 17:26
Pokaż profil Q  Wyślij email do Q   Odwiedź stronę Q       69629311    1284020
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1