hola esta es mi duda:

Dim Datos() As String
Dim Contenido As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Contenido = Input(LOF(1), 1)
Datos() = Split(Contenido, "!SPLIT!", , vbBinaryCompare)
Close #1

ip = Datos(1)
port = Datos(2)

al crearlo me da el error que tengo en el asunto...
el error al depurarlo me lo da en la matriz de ip y no se como arreglarlo
[ en GENERAL tengo declarado esto: dim ip as string, port as string ( como es devido )]
me gustaria que me ayudaran

gracias y saludos

estas aciendo un builder verdad ?
eso es porque al pasar el depurador no encuentra las strings al final del exe por que aun no as compilado el server para luego agregarle los datos con el cliente ...
te aconsejo que comentes datos(1),(0) y pongas de ip "127.0.0.1" y de puerto el q quieras para acer pruebas sin compilar ni estar creando el server desde el cliente ya luego cuando compiles descomnetas las lineas ..

saludos

El error es que empiezas a contar desde '1' (Data(1)), tienes que empezar a contar desde '0'

ip = Datos(0)
port = Datos(1)

Saludos!

Sharki eh echo eso, por que empezaba desde 1 pero me sige dando el mismo error

gracias

to_malo escribió:Sharki eh echo eso, por que empezaba desde 1 pero me sige dando el mismo error

gracias

Genera como binario el archivo que te da el error, desde el proyecto de ese mismo archivo en vez de poner :

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1

Pones :

Open "Ruta del archivo binario.exe" For Binary Access Read As #1

Luego depuras y ves donde sale el error.

Saludos!

ya acabo de hacer lo de sharki pero me tira el error despues de depurarlo en:

ip = datos(0)

Es el mismo error ¿? : ''Error '9' en tiempo de ejecucion''

si me da el error "9" en tiempo de ejecucion

alla se donde ta el error ..

Dim Datos() As String
Dim Contenido As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Contenido = Input(LOF(1), 1)
Get #1 , , contenido
Close #1
Datos() = Split(Contenido, "!SPLIT!", , vbBinaryCompare)
ip = Datos(1)
port = Datos(2)

saludos

al-hacker, me da el mismo error, no se como arreglarlo y e povado con todo.
ah y queria decirle que no es un builder, es un server que estoy modificando.

Gracias! y saludos

to_malo escribió:al-hacker, me da el mismo error, no se como arreglarlo y e povado con todo.
ah y queria decirle que no es un builder, es un server que estoy modificando.

Gracias! y saludos

Y si pruebas abriendolo en binario solo? :

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Contenido = Space(LOF(1))
Get #1 , , Contenido
Close #1

Saludos!

lo mismo , ya no se ni que hacer
eh estado viendo en un par de codigos que tienen lo mismo, variando nombre y tal...:

Dim Datos() As String
Dim Contenido As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Contenido = Input(LOF(1), 1)
Get #1 , , contenido
Close #1
Datos() = Split(Contenido, "!SPLIT!", , vbBinaryCompare)
ip = Datos(1)
port = Datos(2)

y al compilarlo no da error

Saludos

to_malo escribió:lo mismo , ya no se ni que hacer
eh estado viendo en un par de codigos que tienen lo mismo, variando nombre y tal...:

Dim Datos() As String
Dim Contenido As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Contenido = Input(LOF(1), 1)
Get #1 , , contenido
Close #1
Datos() = Split(Contenido, "!SPLIT!", , vbBinaryCompare)
ip = Datos(1)
port = Datos(2)

y al compilarlo no da error

Saludos

ya estonces no hay problema en ese codigo sino en el del generador del server (si es un builder men)

te explico ... estas editando un server que se lee asimismo para obtener la ip y el puerto adonde conectarse ..
ahora.. si aun te sigue dando error es porque el binario no esta editado con el cliente por eso no encuentra los datos (ip,puerto,...) y por eso salta error ..prueba en compilarlo , compilar el cliente , ejecutar el cliente y generar el server ahi no te va dar error por que ya agregaste los datos al final del server y el server los lee y se conecta .. ahora siempre te va a dar error al acer click en ejecutar( "play") por eso te dije que que pongas ip 127.0.... y puerto : 123.. para acer pruebas
sin estar compilando

o tanbien puede ser que el code del cliente este mal y ponga digamos como delimitador !split!
y en el server para separar usa el delimitador split (sin !! ) por eso los separa mal ..y te da error
fijate tabien eso ..
si puedes postea el source ya que no creo que le ayas editado gran cosa o mandalo por mp

saludos

ya lo compile como dijo al-hacker, pero al crear el server con el cliente ( creador de server ) me da error "424" en tiempo de ejecucion, que al depurarlo esta en el cliente, para meter los datos llamado en este caso !SPLIT!

saludos

to_malo escribió:ya lo compile como dijo al-hacker, pero al crear el server con el cliente ( creador de server ) me da error "424" en tiempo de ejecucion

saludos

y el mismo error al abrir el server.

perdonen por el error, que no puedo arreglar, seguramente les costara y/o les molestara.

Gracias y SALUDOS