Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak najprościej pobrac plik?
i-spy



Typ: neutral
Postów: 44
Zarejestrowany: Apr 2004
Jak najprościej pobrac plik?

Witam!

Mam przykladowo jakis plik BMP dostepny pod linkiem:

http://www.laizsme.edu.pl/~vbprograms/io/1.bmp

jak >najprosciej< pobrac go na hdd lub zaladowac go do PictureBoxa?

Dzieki, pozdrawiam!


_____________________________________________
Oto moja pasja...
www.vbprograms.prv.pl
!Zapraszam

21-03-2005 16:18
Pokaż profil i-spy  Wyślij email do i-spy   Odwiedź stronę i-spy       2121177
mikmas
From Łódź Stadt




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

Ja używam clasy FTP Chudego!


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

23-03-2005 16:52
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Najprosciej:

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
    Else
    DownloadFile = False
    End If
End Function

Najprostrzy, ale nie masz kontroli nad sciaganiem pliku (nie widzisz postepu)


Przyklad uzycia:

Private Sub Command1_Click()
Dim Url As String
Dim Plik As String

Url="http://www.vb4all.canpol.pl/images/logo.gif
Plik = "c:\logo.gif"

Form1.Picture1.Picture = LoadPicture()

    If DownloadFile(Url, Plik) = True Then
        Form1.Picture1.Picture = LoadPicture(Plik)
    Else
        MsgBox "Blad"
    End If

End Sub

[Post edytowany dnia 24-03-2005 01:11 przez Knight Lore'FC]

24-03-2005 01:03
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1