Mensajes

[parte de tu source]

Ami me paso algo similar cuando hacia un algoritmo de resolucion de ecuaciones (1,2, y 3er grado) solo que se situaba en un problema con puntos decimales, solo declare las variables con global (En lugar de Public u otro en alguna otra parte) en un modulo X, ojala sea algo similar.¡!

Código (Vb) [Seleccionar] Expandir


global variable as double



P.D.: Es mas facil ayudarte si pones la parte de tu source, y por consiguiente detectar el Problema 'X'¡!

.

En ningun momento t´Cite...¡!



Cambiemos de tema quieren.¡!

Maldita Cerveza...¡1

Dulces Lunas.¡!

Un Puerto Abierto (Sin nada en su escuecha) y uno cerrado es LO MISMO

Tecnicamente, es como en una puerta si esta esta abierta y solo hay una persona del otro lado queriendo acceder, y como no encuentra nada del otro lado es como si estubiese cerrada  mas sin en cambio si estubiesen las dos personas.¡!

Por si no Son tan de A Manzanas... como los de abajo... Creo¡!

Código [Seleccionar] Expandir



Intento Conexión a 'X' Puerto Cerrado sin un Servidor en Escucha= Conexion Fallida
Intento Conexión a 'X' Puerto Cerrado con un Servidor en Escucha= Conexion Fallida
Intento Conexión a 'X' Puerto Abierto sin un Servidor en Escucha= Conexion Fallida
Intento Conexión a 'X' Puerto Abierto con un Servidor en Escucha= Conexion Satisfecha

Tomando en Consideración el Firewall y Router



|          
\/

Ducles Lunas.¡!

Con hotmail no lo creo, almenos no con una cuenta común como yahoo gmail y otros

usa el boton Buscar, esto ya se trato hace una o dos paginas atras¡!

Dale una buena lectura a Manuales de Winsock,  BAsic y algunos otros controles.¡!

por cierto si pides las cosas asi entonces NO SERIA TU TAPLICACION mas sin encabio si de un grupo ¬¬" (Que ironia llamar este post "Mi Troyano").

Un Consejo.¡!

Has una regla de TRES en tu ProgressBAr para que si el archivo llegase a pesar mas de 32675 (me parece que este era el limitede la propiedad MAx del mismo progressbar) no te de error

Código (VB) [Seleccionar] Expandir


'Tan solo evitamos un Crash Posible por desvordamiento de Memoria o Similar
Max=10000' Este puede ser cual sea el numero solo que debe estar entre mayor o igual a 1 hasta 32765(creo era el limite xP)
' Max es un valor Statico recomiendo dejarlo en 10000 por comodidad y presición¡!
VALUE=INT((MAX)*(bytes)/FILELEN(ARCHIVO))



Dulces Lunas

[X]

Muchas gracias BlackZeroX, supongo que con eso funcionará, mañana lo intento y comento, ahora me voy a dormir.

Lo que no entiendo es esto:

Código (vb) [Seleccionar] Expandir


   Do While Not EOF(1)                 'Mientras no lleguemos al final
       Get #1, , Buffer
       tcpCliente.SendData Buffer      'va mandando los dato
   Loop  

No entiendo como eso llega al final... no es un bucle infinito que almacena siempre el primer kb??

Otra cosa:

Código (vb) [Seleccionar] Expandir

Dim Buffer As String * 1024    

En primer lugar no deberia ser de tipo byte la variable, o al menos integer?
Pero además de eso, no estas creando una variable de 1kb, estas creando una variable de texto vacía (0 * 1024 es = a 0)

revisa esto

una variable vacia con 1.024 espacios  es igual aun vacia a 1kb... es igual que los archivos DUMMY que se usan para relleno estan con spacios o vacios pero en si pesan lo que pesan por que eso esta declado en el Disco Duño es igual lo que hice de:

Código (vb) [Seleccionar] Expandir


Dim Variable as string  * 1024 ' Se llena de caracteres Chr(0)=NULL por ello es igual que SPACE(1024) o similar a FillZeroMemory o algo asi era la api...¡!


Ahora el bucle que tui dices es infinito no lo es. pruebalo y me dices, usa Doevents por si acaso en el bucle ya sitado.¡!

Por cierto lo del Byte o integer mmm bueno eso no aplica en este codigo que te puse por que no estoy CARGADO TODO, me gusta tu codigo ya que manda y se rsive esactamente lo del archivo sin un byte mas ni uno menos. solo te puse este como alternativa.¡!

Un archivo vendria siendo en memoeria String si es que no lo manejo con con un array() tipo byte (intenerger no puede ser por optimización y por tipo de datos) 0 a 255 caracteres REALES existen en el codigo ascci por ello esta bien el tipo byte() y en el modo que lo empleas, pero al cargar una rchivo de texto y lo quieras mostrar en un textbox no lo aras en una rray lo arias en un string nada mas por simplisicidad es lo mismo solo que de otra forma extresiba... por asi decirlo (No creo que me ayas entendido pero aún asi pruebalo no pierdes nada xP).

Te recomiendo que lo pruebes.

P.D.: Es el mismo code que uso para un programa que tengo por hay y me va maravilloso, solo que no lo e actualisado pero con que funiones bien estoy contento xP.

Dulces Lunas

el codigo que te puse carga y va enviando de 1kb cada vez hasta que sease el ultimo puedes modificarlo hasta 8kb tengo entendido.¡!, pero el archivo final si no llegase a ser multiplo de 8 quedaria un poco mas pesadito no mas de 78191 bytes

prueba con esto:

El codigo que te pongo esta un poco mejor (No esta optimisado ojo, ya que el el archivo final posiblemente incremente unos bytes mas xP, pero el archivo en si funcionara perfectamente.¡!)

Este tramo es para No cargar por Completo el Archivo a enviar por completo de esta forma NO USAMOS TODA LA RAM si es que fuese un archivo de un GIGA o MAS xS, por ello se puede enviar cualquier archivo.¡!

Código (vb) [Seleccionar] Expandir


Dim Buffer As String * 1024             'Declaramos la variable de 1 Kb
Open Archivo For Binary As #1   'Abrimos en modo binario
    Do While Not EOF(1)                 'Mientras no lleguemos al final
        Get #1, , Buffer
        tcpCliente.SendData Buffer      'va mandando los dato
    Loop                                'hasta q terminemos
Close #1                                'cerramos el archivo


'No tengo que decir nada de este.

Código (vb) [Seleccionar] Expandir


Private Sub tcpServidor_DataArrival(ByVal bytesTotal As Long)
    Dim Datos As String
    tcpServidor.GetData Datos, vbString
    Open Archivo For Binary As #1
        Seek (1), LOF(1) + 1 'Nos posicionamos en el ULTIMO BYTE + 1
        Put #1, , Datos 'Escribimos
    Close #1
End Sub


Dulces Lunas