گرفتن عکس از اینترنت

[scott200]

کسی بلده با یک برنامه تو یک صفحه اینترنت عکس خاصی رو بگیره

[armintirtapar]

دوست عزیز ببین این برنامه بدردت میخوره:

http://www.p30download.com/archives/inte...ader_31203

[CRazYFULL]

دوست عزیز ببین این برنامه بدردت میخوره:

http://www.p30download.com/archives/inte...ader_31203

دوست عزيز وقتی تو انجمن ويژوال بيسيک تايپک ايجاد شده يعنی از راه برنامه نويسی ميخوان اين کار رو انجام بدن.

کسی بلده با یک برنامه تو یک صفحه اینترنت عکس خاصی رو بگیره

يکی راه ها استفاده از تابع URLDownloadToFile API هست که ميتونيد هر فايلی رو دانلود کنيد
اگه قصد نشون دادن تصوير تو برنامه داری راه های ديگه هم هست استفاده از کامپوننت هايی مثل webbrowse و DHTML Edit Control هست

مثال:

کد:

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

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Private Sub Command1_Click()
DownloadFile "http://irupload.ir/images/m8ige2u6hb7uyfm97ce9.jpg", "c:\mypic.jpg"
End Sub