25 replies to this topic

[egostar]

Hola

Estoy generando un programa que utiliza sockets, pero no se como obtener una parte del buffer que estoy recibiendo.

En el programa cliente envío lo siguiente:

delphi

Buffer: array[byte] of integer;
 
Nombre = 'c3936046.123';
lstrcpy(@Buffer, PAnsiChar(format('%-12s%s%s%s',[Nombre,'11','470','007']))); //'c3936046.12311470007'
uBytes := htonl(GetFileSize(hFile, nil)); //Obtengo el tamaño del archivo
//Envio la cadena creada en buffer
send(hSocket, Buffer, 20, 0);
//Envio el tamaño del archivo
send(hSocket, uBytes, 4, 0);

Total 24 bytes enviados

En el programa server recibo lo siguiente:

delphi

Buffer: array[byte] of integer;
 
uLen := Socket.ReceiveBuf(Buffer,SizeOf(Buffer));
//uLen=24
//Buffer=(859386723, 909389878, 858927406, 926167345, 925904944, 385875968, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
//Obtengo los primero 20 caracteres que se enviaron
Cadena := string(PChar(@Buffer));
'c3936046.12311470007'

Lo que no se es como obtengo el tamaño del archivo, sabiendo que el valor está en el lugar número 5 (0 based)

//Buffer=(859386723, 909389878, 858927406, 926167345, 925904944, 385875968, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

Alguien me puede explicar como obtengo ese dato ?

Saludos y gracias.

[escafandra]

delphi

Buffer[5];

Saludos.

[egostar]

delphi

Buffer[5];

Saludos.

Así lo hago amigo, pero me da 0, por eso pensé que no lo estaba haciendo bien

delphi

   Tamanio := Buffer[5];
   memo1.Lines.Add( 'Tamaño: ' + inttostr(Tamanio) );

Saludos

[seoane]

Se me han adelantado  ... escribo despacio.

¿Probaste a ejecutar paso a paso y ver el contenido del buffer?

[egostar]

Se me han adelantado  ... escribo despacio.

¿Probaste a ejecutar paso a paso y ver el contenido del buffer?

es eso que ves amigo, son 6 elementos, probé enviando solo los primeros 20 caracteres y sale esto:

delphi

//Buffer=(859386723, 909389878, 858927406, 926167345, 925904944, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);

Enviando el tamaño veo esto:

delphi

//Buffer=(859386723, 909389878, 858927406, 926167345, 925904944, 385875968, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);

Saludos

[seoane]

Pues yo he probado esto:

delphi

const
Buffer:  array[byte] of integer =(859386723, 909389878, 858927406, 926167345,
  925904944, 385875968, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
 
 
begin
  ShowMessage(IntToStr(   Buffer[5]  ));
end;

Y me da bien el resultado. ¿¿¿ ???

Copia el código completo, a ver si encontramos el error

[escafandra]

Ahora yo es el que escribe despacio... 

Yo probé así:

delphi

const
Buffer: array[0..5] of integer =(859386723, 909389878, 858927406, 926167345, 925904944, 385875968);
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  tamanio: integer;
begin
  Tamanio:= Buffer[5];
  memo1.Lines.Add( 'Tamaño: ' + inttostr(Tamanio) );
end;

Algo falla en el envío y luego, probablemente no usas bien el debug.

Saludos.

[egostar]

Caramba!!!, pues entonces algo estoy haciendo mal 

¿Será que después de leer el buffer para obtener el string pasa algo?

delphi

     Cadena := string(PChar(@Buffer));
     Tamanio := Buffer[5];
      Nombre := trim(Copy(cadena,1,12));
      memo1.Lines.Add( 'Archivo: ' + Nombre );
      memo1.Lines.Add( 'Tamaño: ' + inttostr(Tamanio) );

Bueno, porque es lo único que hago

Ya le doy otra revisión a ver si logro encontrar el problema.

Por cierto, ese valor está generado con la función htonl(), como obtengo la equivalencia, porque ese valor de Buffer[5] no es el tamaño del archivo

Saludos.

[seoane]

Sugiero esto:

delphi

   Tamanio := Buffer[5];
  Cadena := string(PChar(@Buffer));
  Nombre := trim(Copy(cadena,1,12));
  memo1.Lines.Add( 'Archivo: ' + Nombre );
  memo1.Lines.Add( 'Tamaño: ' + inttostr(Tamanio) );

[egostar]

Sugiero esto:

delphi

   Tamanio := Buffer[5];
  Cadena := string(PChar(@Buffer));
  Nombre := trim(Copy(cadena,1,12));
  memo1.Lines.Add( 'Archivo: ' + Nombre );
  memo1.Lines.Add( 'Tamaño: ' + inttostr(Tamanio) );

En eso estaba pensando precisamente, ya lo pruebo y les comento

Gracias amigos

Saludos

[escafandra]

No debe afectar que antes de acceder a Buffer[5] hagas Cadena := string(PChar(@Buffer));

Pienso que el problema está en otra parte. 


Saludos.

[egostar]

Gracias amigos,

Haré una revisión de lo que estoy haciendo y les comento

Saludos

[egostar]

Hola

Pues ya veo donde está el problema, lo que no veo es como solucionarlo, al menos ya hay un pequeño avance

Resulta que desde el cliente envío un buffer y después envío el tamaño del archivo.

Tamaño del archivo = 327
htonl(Tamaño) = 1191247872
Buffer = (859386691, 909389878, 875967022, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

Lo envío de esta forma:

delphi

          hFile := _lopen( Path, OF_READ);
          lstrcpy(@Buffer, PAnsiChar(format('%-12s%s',[Nombre,'2'])));
          Tamanio := GetFileSize(hFile, nil);
          uBytes := htonl(Tamanio);
          send(hSocket, Buffer, 13, 0);
          send(hSocket, uBytes, sizeOf(uBytes), 0);

Cuando llega al server veo esto:

Buffer=(859386691, 909389878, 875967022, 16777266, 71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
Tamaño=71

Mi problema, como puedo verlo, es que el tamaño está "mezclado" en las posiciones 3 y 4 (zero based).

2 preguntas

¿ Como puedo obtener ese valor ?
¿ Como hago la "conversión" de htonl() para que me de el valor correcto ?

Saludos

[egostar]

Bueno me autocontesto la segunda pregunta

ntohl es el paso inverso a htonl

Pura "pinche" lógica, caray

Saludos

[escafandra]

Ahora si me cuadran las cosas.

Bueno, tienes dos opciones:
1.- Encajas tus datos a enteros, es decir has enviado 13 bytes, que no es múltiplo de 4. Es decir te debes aliear a integer o múltiplos de 4.
2.- Lo lees a pelo.

Para el primer caso envía 16 bytes en lugar de 13.
Para el segundo caso puedes hacer esto:

delphi

Tamanio:= IntToStr(ntohl(Pinteger(Cardinal(@Buffer)+13)^));

Lo que mas rabia te de. 


Saludos.

[egostar]

Ahora si me cuadran las cosas.

Bueno, tienes dos opciones:
1.- Encajas tus datos a enteros, es decir has enviado 13 bytes, que no es múltiplo de 4. Es decir te debes aliear a integer o múltiplos de 4.
2.- Lo lees a pelo.

Para el primer caso envía 16 bytes en lugar de 13.
Para el segundo caso puedes hacer esto:

delphi

Tamanio:= IntToStr(ntohl(Pinteger(Cardinal(@Buffer)+13)^));

Lo que mas rabia te de. 


Saludos.

Perdón por confundirlos

Ya lo pruebo y comento como queda.

Saludos

[egostar]

Caramba, el que no sabe es como el que no ve, ya quedo

******Programa Cliente******
Monitor de Archivos iniciado
Archivo encontrado C:\Validacion\470\Entrada\C3936046.264
Tamaño: 327
Se aceptó conexió al puerto 2208
Se envían datos del archivo como encabezado
Acuse 1 = 0, se envía archivo para su validación
Acuse 2 = 0, se mueve archivo enviado a directorio C:\Validacion\470\Enviados\
El Archivo C3936046.264 se movio correctamente

******Programa Server******
Conectado: 192.168.1.24
Se recibe Encabezado
Archivo: C3936046.264
Tamaño: 327
Se envia Acuse 1 = 0 (ok)
Se recibe Archivo
Se envia Acuse 2 = 0 (ok)
Guardando Archivo recibido como: C:\Validacion\470\Recibidos\C3936046.264
No hay cliente conectando

Saludos

[egostar]

Por cierto, lo deje tal cual, o sea "a pelo" por lo que usé la segunda opción

De cualquier forma, estoy suponiendo que así me estará llegando la información, estoy trabajando a ciegas en base a un protocolo que me enviaron, cuando lo ponga en funcionamiento me daré cuenta como lo voy a manejar.

Muchas gracias

Saludos

[seoane]

De cualquier forma, estoy suponiendo que así me estará llegando la información, estoy trabajando a ciegas en base a un protocolo que me enviaron, cuando lo ponga en funcionamiento me daré cuenta como lo voy a manejar.

No te preocupes aquí estamos para lo que haga falta 

Por cierto, a mi este tipo de cosas me gusta tratarlas con punteros en vez de con arrays, pero supongo que eso depende del gusto de cada uno 

[egostar]

De cualquier forma, estoy suponiendo que así me estará llegando la información, estoy trabajando a ciegas en base a un protocolo que me enviaron, cuando lo ponga en funcionamiento me daré cuenta como lo voy a manejar.

No te preocupes aquí estamos para lo que haga falta 

Por cierto, a mi este tipo de cosas me gusta tratarlas con punteros en vez de con arrays, pero supongo que eso depende del gusto de cada uno 

Vamos amigo seoane, publique su propuesta que le aseguro no tendrá desperdicio

Saludos