PDA

Ver la versión completa : Descarga de ficheros desde Internet con visual basic



c@z
23-12-2002, 03:15
Con el uso de estos controles podemos bajar el archico que se nos de la gana (archivo ejecutable, imagen, fichero MP3, vídeo,etc.) del que tengamos su dirección en la Red. Además, podemos darle la ruta exacta del destino de toda esta información tanto a nivel de nombre
como de ruta dentro de nuestros discos duros.

Usamos un control llamado «iNet»,aunque antes de poder utilizarlo es necesario registrarlo en la paleta de controles.

(Por las dudas explico como hacerlo vamos al menú Proyecto\Componentes
y seleccionamos el archivo C:\Windows\System32\Msinet.ocx desde el botón Examinar.
También es posible conseguir esto mismo navegando por el listado
que nos ofrece VB y activando la casilla titulada «Microsoft Internet
Transfer Control 6.0».y listo ya esta registrado.)

Una vez hecho esto lo ponemos en un formulario, asignarle un nombre (por ej
«Descarga») y vamos a su método OpenURL:

objeto.OpenUrl url [,tipoDatos]
Donde objeto hace referencia al nombre de un objeto del tipo iNet(nuestro «Descarga»),
url es la dirección a la que queremos acceder y tipoDatos es opcional que indica cómo se van
a interpretar los datos devueltos, si como una cadena de texto o
como una secuencia de bytes.
La instrucción que podemos usar es:

bytes() = Descarga.OpenURL(txtURL.Text, icByteArray)
Donde txtURL.Text es el contenido de la caja de texto que recoge la dirección a la que deseamos
acceder a través del programa que hemos preparado, e icByteArrayinforma
a la función que los datos recibidos deben tratarse como
una secuencia de bytes.
Por último una vez recibido el archivo para guardarlo usamos:

fnum = FreeFile
Open txtArchivo.Text For Binary Access Write As #fnum
Put #fnum, , bytes()
Close #fnum
Estos cumplen la función de obtener un descriptor de archivo libre, abrir para escritura un
documento (utilizando el nombre que le hemos dado), volcar (utilizando
el id del fichero) la información recibida a través de Internet, y
por último, cerrar el fichero recién creado.

Scar_T
23-12-2002, 17:35
Gracias por el tutorial :cool:

c@z
24-12-2002, 01:58
De nada Scar_T , si necesitas ayuda en algo de Visual pidelo quizas entre los dos puedamos resolver el problema.

spushan
26-12-2002, 13:27
valor=shell("start direccion del archivo",1):p

jocanor
26-12-2002, 13:29
peazo diferencia entre el codigo de mi amigo spushan!!
siempre tan explicito :0= :0= :0= :0= :0=

c@z
30-12-2002, 00:56
muy bien spushan el shell busca bastante las direcciones pero tambien genera mas errores en tiempo de ejecucion, por eso lo uso poco
:0= :0= :0= pero es cierto que el codigo es mucho mas facil y cortito