[SOLUCIONADO] Problema al abrir archivo para enviar

[BlackZeroX]

gracias por la respuesta, estoy probando pero le falta el loop para que se repita la operación y falta ponerle un limite a bBuf

Analisa el 2do codigo... por otro lado el 1ro es solo una parte tampoco te dare todo el codigo ¬¬!.

Dulces Lunas1¡.
.

[ŞCØRPIØN-X3]

si lo analise y ya probe pero no va sigue con lo mismo ¬¬ no es el code sino que entra en conflicto con algo, como ago para ejecutar mi programa sin tener que generarlo y sin tener que borrar parte del code. Lo que pasa es que mi code tiene funciones que necesita estar generado para que funcionen :S, el otro dia por probar esto mismo borre todo el load de mi proyecto y mi hermano lo guardo y lo cerro cuando yo no estaba ¬¬ estuve una semana reconstruyendo lo que perdi :'(

[BlackZeroX]

.
Tienes Varias Opciones para corregir el Código fuente como son:

Puntos de interrupción.
Recorrer linea a linea el código fuente.
...
Analizar el flujo del programa.
Depuración Parcial.
Depuración Completa.

y como sabrán muchos estas opciones están en los menús del IDE...

tal y como tijo RAUL338


Dulces Lunas!¡.
.

[ŞCØRPIØN-X3]

me podrias guiar un poco en eso porfavor?, nunk e utilizado esas funciones :S nose cual es el menu IDE

En el menu de depuracion esta la opcion para poner puntos de interrupcion pero nose para que sirve ni como se usa xD

[BlackZeroX]

.
Oprime F8 y veras...

Aun así mírate esto: http://msdn.microsoft.com/es-es/library/ktf38f66(v=vs.80).aspx

Dulces Lunas!¡.

[ŞCØRPIØN-X3]

Gracias BlackZero ya logre solucionar lo del error, ahora el problema es el siguiente :s. Yo envio los datos por winsock con una frase que lo identifique delante. Y el receptor al recibir la informacion, corta los primeros 5 digitos y hace comparaciones para saber de que texto se trata. Lo que pasa es que en el code nose porque no me funciona :S, este seria el Cliente:

Código [Seleccionar] Expandir

Dim Texto As String
Dim Identificar As String
Winsock1.GetData Texto

Identificar = Left(Texto, 6)

If Identificar = "Teclas" Then
    Case "Teclas"
        Archivo = Archivo & Texto
        If Len(Archivo) >= Largo Then
            RichTextBox1.Text = Archivo
            Largo = 0
        End If
    End Select
End If

y este el Servidor:

Código [Seleccionar] Expandir

Dim buf As String * 1024
Dim Todox As String
Open "C:\Archivo.txt" For Binary As #1
    Do While EOF(1) = False
        DoEvents
        Get #1, , buf
        Todox = Todox & buf
    Loop
Close #1
Winsock1.SendData "Teclas" & Todox

perdon por tantas preguntas :S espero que me puedan ayudar   

muchas gracias BlackZerox por tu tiempo

[BlackZeroX]

.
No te recomiendo que lo hagas de esa manera es poco optimo mejor create un protocolo Ej:

Peticion de envio:  SendData <Argumentos>   El servidor debera responde con el mismo mensaje solo que con un true o false segun el caso si es true pasa a mandar el cliente el siguiente comando que serian:
Recepcion de Datos: InfoData <Argumentos> donde argumentos contiene TODA la informacion nesesaria por ejemplo el nombre del archivo, Peso del archivo.
y cuando termine de enviar los datos el servidor que es quien en ese momento esta contando los bytes cuando llegue a el ultimo envie el:
ReportData <Argumentos> donde argumentos es un reporte general y detallo de lo que se recivio.

Ejemplo del flujo:

Código [Seleccionar] Expandir



//Suponiendo el flujo normal de transicion:
Cliente: SendData // si se manda el mensaje vacio es solo para verificar estatus...
Servidor: SendData True
Cliente: InfoData Archivo.exe|102400|c:\|filenew.exe|30
Servidor: SendData true
Cliente: manda todos los bytes de manera Compulsiva hasta que termina..
Servidor: Contara los bytes cuando llegue a 102400 segun lo que el cliente a dicho que enviara con el comando InfoData o que haya un retardo de 30 segundos que no se envien datos terminara de resivir los bytes y procedera a el siguiente comando:
Servidor: ReportData c:\|filenew.exe|102400
//Termina.



Código [Seleccionar] Expandir



//Suponiendo que el servidor no permite la resepcion de transferencias:
Cliente: SendData // si se manda el mensaje vacio es solo para verificar estatus...
Servidor: SendData False
//Termina.



Código [Seleccionar] Expandir



//Otro caso peculiar de este protocolo seria que terminara hasta aqui:
//Suponiendo el flujo normal de transicion:
Cliente: SendData // si se manda el mensaje vacio es solo para verificar estatus...
Servidor: SendData True
Cliente: InfoData Archivo.exe|102400|c:\|filenew.exe|30
Servidor: SendData false //si no hubiera espacio en disco, ya existe el archivo, claro este deberia ser mejor con algun numero que representara el estado por el cual no a seguido en lugar de un true y false ( 0 = Ok, 1=Archivoexistente, 2=Espacio en disco insuficiente, etc... )
//Termina.



SDe esta manera tu programa sera maleable y adaptable a un standart en tu programa y no a algo muy lineal... un ejemplo de esto es que mas o menos haci trabaja el protocolo HTTP 1.1 claro es mas complejo pero es similar.

Temibles Lunas!¡.

[ŞCØRPIØN-X3]

lo que pasa es que mi proyecto realiza mas de 20 acciones, tengo que indicarle las diferentes cosas al servidor, porejemplo si desde el cliente pido informacion de un archivo X.txt que al recibirlo el cliente lo ponga en un textbox1 y si pido la informacion de la PC porejemplo en el cliente me lo muestre en otro textbox. Nose si entendi bien, si es que te referias que es poco optimo enviar asi : winsock1.senddata "Dato1" & "Informacion a enviar"
y que en el cliente corte los primeros digitos dependiendo el largo del nombre y comprueba que dato es el que se esta recibiendo

[BlackZeroX]

.
Se a lo que te refieres, pero de manera en la que te di un tip es decisión tuya tomarla/manipularla/moldearla al gusto, igual lo que haces se te hace facil pero es mas laborioso en la forma practica aun que ahorita no lo sientas asi cuando quieras editar el programa uff te daras topes, ademas u protocolo que sea moldeable no solo servira con archivos puede servir para un key logger remoto, envió de cualquier tipo de información bueno vaya es mas dinamico y su código es mas re-utilizable, es decir que tu codigo puede reutilizr ese protocolo con números que indican algo a el servidor o al cliente y por medio de los mismo saber que se esta haciendo (Select Case), asi da igual que tengas 10, 20 30 o 1000 acciones distintas...

por utimo tu problema de los sockets se resuelve con esto que te menciono, ya que si sigues haciendo eso digamos que dentro del archivo esta la palabra "teclas" y esa palabra es reservada de alguna manera en tu programa para idenficar los datos respectivos, vaya que dilema no?, Solución un protocolo dinamico...

P.D.: Mo tomes una solucion apra algo en espesifico moldeala para varios casos no le cierres las expanciones posibles, si tomas la desicion de hacer el protocolo te recomiendo antes agarrar una hoja de papel y escribir hay cada parabra o comando reservado y su forma de la manera mas reducida moldeable y adaptable posible, tomando en consideracion casos nulos y Medios ( parametros completos o medios con en el ejemplo anterior ).

Dulces Lunas!¡.

[ŞCØRPIØN-X3]

gracias por tu respuesta blackzero, no entendi muy bien el tip que me pusiste, modificando un poco el codigo que tenia, logre realizar que se envien bien los datos, pero nose porque motivo el identificador que envio figura en el richtextbox. El codigo en el cliente quedo asi:

Código [Seleccionar] Expandir

dim Identificador as string
dim Datos as string

Winsock1.GetData Datos

Identificador = Left(Datos, 8)
[b]Datos = Right(Datos, Len(Datos) - 8)[/b] 'Le borro a "Datos" los primeros 8 digitos que corresponden al indentificador

If Identificador = "*Teclas*" Then
       Archivo = Archivo & Datos
       RichTextBox1.Text = Archivo
End If

y el del servidor quedo asi:

Código [Seleccionar] Expandir

Dim buf As String * 1024
Open App.path & "\Archivo.txt" For Binary As #3
   Do While EOF(3) = False
       DoEvents
       Get #3, , buf
       Winsock1.SendData "*Teclas*" & buf
   Loop
Close #3

El identificador es "*Teclas*", y supuestamente no tendria que escribirse en el richtextbox ya que al principio del code borra los primeros digitos que corresponden al identificador.

espero que me puedan ayudar   muchas gracias por su tiempo, BlackZero gracias por los codes que me has pasado