Akhir-final ini Rani terlalu sering "bermain" dengan image dan ftp. Sedikit meninggalkan jejak perihal hal tersebut, postingan kali ini kita bakal diskusikan gimana cara memeriksa apakah image dalam url tersedia atau tidak.
Yaitu memakai deklarasi fungsi sebagai berikut:
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
Code ini rani dapet dari link berikut:
http://www.vbforums.com/showthread.php?544655-RESOLVED-Check-to-see-if-a-image-exists-on-the-web
Aslinya code ini buat VB6 tapi ternyata masih reliable digunakan di VB.NET.
Gimana penggunaannya? Mari kita coba buat project selaku berikut:
Code:
Public Class Form1
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 Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sURL As String = TextBox1.Text
Dim i As Long
i = URLDownloadToFile(0, sURL, "", 0, 0)
If i <> 0 Then
MsgBox("File does not exist")
Else
MsgBox("File exists")
End If
End Sub
End Class
Saat kita laksanakan program, masukan url image yang ada (valid) ke textbox kemudian tekan button 1 maka karenanya:
Sementara jikalau url image tidak tersedia maka:
Sumber http://rani-irsan.blogspot.com
EmoticonEmoticon