Páginas: [1] 
|
 |
|
 Autor
|
Tema: Comprobar si un archivo en internet existe (SOLUCIONADO) (Leído 371 veces)
|
Littl3
 Desconectado
Mensajes: 128
Tarde o temprano aparece el hombre
|
Buenas, necesito descargar unos videos de internet desde vb, pero antes comprobar si existe tal video, si no existe, el programa lo intenta descargar con otro nombre, hasta ahora hacia la comprobacion intentando descargar el video de esta manera: Link = "www.videos/elvideo.wmv"
Dim j As Long
j = URLDownloadToFile(0, Link, _
"c:\video.wmv", 0, 0)
If j = 0 Then
'El video existe
Else
'El video no existe Pero el problema es que de esa manera si el video existe lo descarga... y yo no quiero descargarlo solo comprobar si existe, alguien sabe como hacerlo? gracias salu2 |
|
|
|
« Última modificación: 14 Mayo 2008, 09:59 por Littlehack »
|
En línea
|
|
|
|
|
el-brujo
|
Para comprobar una descarga se mira si el servidor web responde con un código 200 (ok, encontrado) o un 404 (no encontrado).
|
|
|
|
|
En línea
|
Give peace a chance
|
|
|
Littl3
Desconectado
Mensajes: 128
Tarde o temprano aparece el hombre
|
Gracias, y cual es la sintaxis para que el servidor web me responda con 200 o 404?
salu2
|
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
Pues si URLDownloadToFile no te retorna 0 esk no existe, mira ve este ejemplo Option Explicit
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 Command1_Click()
If Descargar("http://localhost/index.php", "C:\hola.php") = True Then
MsgBox "Se descargo"
Else
MsgBox "el archivo no se encunetra"
End If
End Sub
Private Function Descargar(URL, Destino) As Boolean
Dim lRet As Long
lRet = URLDownloadToFile(0, URL, Destino, 0, 0)
If lRet = 0 Then
Descargar = True
Else
Descargar = False
End If
End Function
|
|
|
|
|
En línea
|
|
|
|
Littl3
Desconectado
Mensajes: 128
Tarde o temprano aparece el hombre
|
ya ya si es de la manera que lo estoy comprobando ahora, pero la cosa esta en que no quiero tener que descargar el archivo, con ese metodo si el archivo existe se descarga, yo no quiero descargarlo solo comprobar si existe.
|
|
|
|
|
En línea
|
|
|
|
Nork
Desconectado
Mensajes: 75
|
Como dice el-brujo lo puedes hacer... envías una petición http ( la cabecera te la inventas) y si el servidor encuentra el vídeo te devolverá 200 si no 404.
|
|
|
|
|
En línea
|
La televisión me ha culturizado porque cada vez que la encienden en casa me voy a leer a mi cuarto. |
|
|
|
marcolandia^^
|
ya ya si es de la manera que lo estoy comprobando ahora, pero la cosa esta en que no quiero tener que descargar el archivo, con ese metodo si el archivo existe se descarga, yo no quiero descargarlo solo comprobar si existe.
Como te dijo el brujo. Podés hacer así: conectarte con winsock al servidor web y enviarle un comando así: GET /archivo.php http/1.1
HOST: www.elhacker.net
y como dijo el brujo, si te devuelve el estado 200 del protocolo HTTP, es porque el archivo se encontró sin ningún problema. Busca sobre el protocolo HTTP  saludos |
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
Bueno prova con el control Inet de esta manera: Option Explicit
Private Sub Command1_Click()
Dim strHeader As String
Inet1.OpenURL "http://www.google.co.ve/jojojojo.html"
DoEvents
strHeader = Mid(Split(Inet1.GetHeader, "HTTP/1.1")(1), 2, 3)
If strHeader = "404" Then
MsgBox "No existe"
ElseIf strHeader = "200" Then
MsgBox "Si existe"
End If
End Sub
|
|
|
|
|
En línea
|
|
|
|
Littl3
Desconectado
Mensajes: 128
Tarde o temprano aparece el hombre
|
Hola, e comprobado tu metodo naderST y me tira el siguiente error: No se puede completar la peticion.
Señala la siguiente linea: strHeader = Mid(Split(Inet1.GetHeader, "HTTP/1.1")(1), 2, 3) Probare de hacerlo con winsock pero nose bien bien como hacerlo, ire trasteando si teneis alguna pista se agradecera salu2 Edito: Creo que ya encontrado la manera corregirme si me equivoco Datos = Inet1.OpenURL("http://upload.wikimedia.org/wikipedia/commons/thumb/8/80/Symbol_OK.svg/600px-Symbol_OK.svg.png")
Si datos esta vacio el archivo no existe, me equivoco? |
|
|
|
« Última modificación: 14 Mayo 2008, 01:41 por Littlehack »
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
Si datos esta vacio el archivo no existe, me equivoco?
Si, si esta vacío el archivo no existe, ese puede ser un metodo. |
|
|
|
|
En línea
|
|
|
|
Littl3
Desconectado
Mensajes: 128
Tarde o temprano aparece el hombre
|
oki mersi, problema solucionado ^^ salu2
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
Hola,hace mucho lo habia echo asi,no es la gran forma,pero puede andar.. Option Explicit
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 Form_Load()
Call Descargar("http://www.txt.net/orsq.jpg")
End Sub
Sub Descargar(Url As String)
Me.MousePointer = vbHourglass
Call URLDownloadToFile(0, Url, "c:\orsq.jpg", 0, 0)
Me.MousePointer = vbDefault
If Len(Dir("c:\orsq.jpg")) <> 0 Then
MsgBox "existe"
Kill "c:\orsq.jpg"
Else
MsgBox "no existe"
End If
End Sub saludos. |
|
|
|
|
En línea
|
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
|
|
|
|
Páginas: [1] 
|
|
|
 |
