elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  error dice no coinciden los tipos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: error dice no coinciden los tipos  (Leído 2,192 veces)
pedraosone

Desconectado Desconectado

Mensajes: 90


Ver Perfil
error dice no coinciden los tipos
« en: 18 Febrero 2008, 13:25 pm »

hola a todos nuevamente me dirijo a los que mas saben a pedir ayuda para un programa que me quiero crear
veran:
encontre en la web este codigo:
Código:
Private Sub Command1_Click()
       
    'Propiedades para el control inet ( AccessType y URL )
    With Inet1
        .AccessType = icUseDefault
        'Indicamos el url del archivo
        .URL = Trim(Text1.Text)
        'Indicamos que vamos a descargar o recuperar un archivo desde una url
        .Execute , "GET"
    End With
End Sub
 
Private Sub Form_Load()
 
    Command1.Caption = " Descargar "
    Me.Caption = " Ejemplo del control Inet para " & _
                 "descargar un fichero con progreso"
 
End Sub
 
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
 
On Error GoTo Err_Sub
 
    Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
    Dim bDone As Boolean
    'Para el tamaño del archivo en bytes que se usa para el array
    Dim filesize As Long
    ' Acá almacenamos los datos
    Dim vtData As Variant
 
    Select Case State
 
        Case icResponseCompleted
            bDone = False
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open Text2.Text For Binary As #1
           
            ' Leemos de a 1 Kbytes. El segundo parámetro indica _
            el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
            vtData = Inet1.GetChunk(1024, icByteArray)
 
            DoEvents
           
            'Si el tamaño del fichero es 0 ponemos bDone en _
            True para que no entre en el bucle
            If Len(vtData) = 0 Then
                bDone = True
            End If
               
            With ProgressBar1
                .Value = 0
                .Max = filesize
            End With
               
            Do While Not bDone
                'Almacenamos en un array el contenido del archivo que se va leyendo
                tempArray = vtData
                'Escribimos los datos en el archivo
                Put #1, , tempArray
                'Leemos  datos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
           
                DoEvents
                'Aumentamos la barra de progreso
                ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
               
                If Len(vtData) = 0 Then
                    bDone = True
                End If
            Loop
 
        Close #1
       
        MsgBox "Archivo descargado correctamente", vbInformation
        ProgressBar1.Value = 0
    End Select
 
Exit Sub
 
Err_Sub:
    MsgBox Err.Description, vbCritical
    On Error Resume Next
    Inet1.Cancel
    ProgressBar1.Value = 0
End Sub

pues para probarlo le pongo en el text1 la url de descarga y en el text2 el destino por ejemplo c:\
y cuando lo ruedo me da el error no coinciden los tipos
probe poniendo en el text2 c:\fichero.text y el error es el mismo
alguien puede ayudarme
muchas gracias  por anticipado


En línea

under!!!

Desconectado Desconectado

Mensajes: 44


Ver Perfil
Re: error dice no coinciden los tipos
« Respuesta #1 en: 18 Febrero 2008, 17:01 pm »

ya agregaste todos los controles???????????????????????????????


En línea

pedraosone

Desconectado Desconectado

Mensajes: 90


Ver Perfil
Re: error dice no coinciden los tipos
« Respuesta #2 en: 18 Febrero 2008, 18:56 pm »

Si te refieres a si hice el form con un comand button, dos textbox,un control inet,y una progress bar. si si lo hice
gracias
En línea

pedraosone

Desconectado Desconectado

Mensajes: 90


Ver Perfil
Re: error dice no coinciden los tipos
« Respuesta #3 en: 18 Febrero 2008, 20:19 pm »

ya solucione el problema
era culpa del link de descarga
muchas gracias
doy el tema por terminado
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Especialistas coinciden en desaconsejar el Chromebook Pixel
Noticias
wolfbcn 0 1,212 Último mensaje 12 Marzo 2013, 13:22 pm
por wolfbcn
ayuda visual fox pro 6.0 ( no coinciden los tipos de datos ) urgente
Programación General
freddybu014 3 2,482 Último mensaje 15 Julio 2015, 06:03 am
por engel lex
No coinciden los tipos de datos en la expresión de criterios.
.NET (C#, VB.NET, ASP)
Guillito 1 2,153 Último mensaje 24 Septiembre 2015, 18:19 pm
por d91
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines