18 respuestas en este tema

[Dante]

Hola  tengo un problema al tratar de leer un archivo q creo con datos obtenidos por UDP, esto es lo q contrine

LOOP get             ‰p 0k
k
†i‰iˆi111111111111111111111111
   ˆ N Underground MW3 ES 107 - ^224h gn\IW5\gt\koth\hc\0\pu\1\m\mp_underground\px\850\pn\\mr\\pc\0\ff\0\fg\\md\\kc\1\ac\0\d\1\qp\27017\vo\0\ \g_gametype\koth\g_hardcore\0\gamename\IW5\mapname\mp_underground\protocol\97\scr_game_allowkillcam\1\scr_team_fftype\0\shortversion\1.2\sv_allowClientConsole\0\sv_floodProtect\1\sv_hostname\MW3 ES 107 - ^224h\sv_maxclients\18\sv_privateClients\0\sv_privateClientsForClients\0\sv_pure\1\sv_voice\No Chat\pswrd\0\mod\0
0 39 "RAZOR"
0 69 "BAN"
0 39 "PESADILLA"
0 48 "AGUILA"
0 38 "[GXY]LACHY"
0 999 "CEBALLITO"
0 59 "R@NGER"
0 999 "YPACHECO"
0 69 "EDIER"
 

lo leo con esto

delphi

procedure TForm1.Button2Click(Sender: TObject);
var F: TextFile;
    sLinea: String;
begin
  AssignFile( F, ExtractFilePath( Application.ExeName ) + 'temp' );
  Reset( F );
 
  while not Eof( F ) do
  begin
   ReadLn( F, sLinea );
    Memo1.Lines.Add( sLinea );
  end;
 
  CloseFile( F );
 
end;

 y me debuelbe

 

LOOP get
k
†i‰iˆi111111111111111111111111
0 39 "RAZOR"
0 69 "BAN"
0 39 "PESADILLA"
0 48 "AGUILA"
0 38 "[GXY]LACHY"
0 999 "CEBALLITO"
0 59 "R@NGER"
0 999 "YPACHECO"
0 69 "EDIER"
 

como ven se salta una pila de cosas, y hay una pila de carecteres estraño.

 

 

[egostar]

Hola Dante
 
Yo veo dos alternativas para leer el archivo.
 
 
Una basada en tu código
 
 

delphi

procedure TForm2.Button1Click(Sender: TObject);
var
F: TextFile;
caracter: char;
cadena: string;
begin
  AssignFile( F, ExtractFilePath( Application.ExeName ) + 'temp' );
  Reset( F );
  cadena := '';
  while not Eof( F ) do
  begin
    Read( F, caracter );
    cadena := cadena + caracter;
  end;
  Memo1.Lines.Text := cadena;
  CloseFile( F );
end;

 
Y la otra con menos código
 

delphi

procedure TForm2.Button2Click(Sender: TObject);
var
archivo: TStrings;
begin
  archivo := TStringList.create;
  archivo.LoadFromFile(ExtractFilePath( Application.ExeName ) + 'temp' );
  Memo1.Lines := archivo;
end;

 
Saludos

[Dante]

las dos formas me debuelben

 

LOOP get[] 

en ese punto es donde empesiasn caracteres estraños por eso la conversion de binari a string simpre se me detiene ahi

como podria eliminar eso caractres para poder leer el archivo completo

[enecumene]

Debes especificar que es lo que quieres te devuelva, veo una especie de ranking..

[Delphius]

No hay ningún error ni nada extraño en eso.

Lo que lees es justo lo que tiene el archivo.

 

Tu problema es que desconoces la estructura/diseño/formato del archivo. Pero insisto: lo que lees es lo que hay.

Es ya responsabilidad tuya en tratar la info leída apropiadamente.

 

Si desconoces como es que fue diseñado y su estructura no se puede hacer nada.

 

Saludos,

[egostar]

las dos formas me debuelben
 
LOOP get[] 
en ese punto es donde empesiasn caracteres estraños por eso la conversion de binari a string simpre se me detiene ahi
como podria eliminar eso caractres para poder leer el archivo completo

Si subes el archivo podemos saber exactamente porque no se lee correctamente.

Saludos

[Delphius]

Si subes el archivo podemos saber exactamente porque no se lee correctamente.

Saludos

 

El archivo se lee correctamente amigo.

El problema está en que Dante desconoce la estructura o diseño del mismo.

¿Que se supone que debe ser la 1ra parte del contenido "indescifrable"? A menos que exista documentación libre sobre el formato no podremos saberlo, sólo el que diseñó el sistema original que generó ese archivo lo sabe.

Posiblemente los primeros bytes sean alguna especie de Cabecera o Header... y los siguientes parecerían ser un listado de directorios. La lista del final es lo más obvio por su "fácil lectura".

 

Saludos,

[Dante]

el archivo lo creo yo, es el resultado a una consulta q le ago a un programa por el protocolo UDP y el me devuelve el texto en binario con lo q creo el archivo este es el binario q me debuelbe:

 

4C4F4F5020676574 0700000012000000 0001000000010000 0089139D70010030
016B01010A6B0101 0A86698969886931 3131313131313131 3131313131313131
3131313131313101 000D00200088004E 0200556E64657267 726F756E64004D57
3320455320313037 202D205E32323468 00676E5C4957355C 67745C6B6F74685C
68635C305C70755C 315C6D5C6D705F75 6E64657267726F75 6E645C70785C3835
305C706E5C5C6D72 5C5C70635C305C66 665C305C66675C5C 6D645C5C6B635C31
5C61635C305C645C 315C71705C323730 31375C766F5C305C 005C675F67616D65
747970655C6B6F74 685C675F68617264 636F72655C305C67 616D656E616D655C
4957355C6D61706E 616D655C6D705F75 6E64657267726F75 6E645C70726F746F
636F6C5C39375C73 63725F67616D655F 616C6C6F776B696C 6C63616D5C315C73
63725F7465616D5F 6666747970655C30 5C73686F72747665 7273696F6E5C312E
325C73765F616C6C 6F77436C69656E74 436F6E736F6C655C 305C73765F666C6F
6F6450726F746563 745C315C73765F68 6F73746E616D655C 4D57332045532031
3037202D205E3232 34685C73765F6D61 78636C69656E7473 5C31385C73765F70
726976617465436C 69656E74735C305C 73765F7072697661 7465436C69656E74
73466F72436C6965 6E74735C305C7376 5F707572655C315C 73765F766F696365
5C4E6F2043686174 5C70737772645C30 5C6D6F645C300A30 203339202252415A
4F52220A30203639 202242414E220A30 2033392022504553 4144494C4C41220A
3020343820224147 55494C41220A3020 333820225B475859 5D4C41434859220A
3020393939202243 4542414C4C49544F 220A302035392022 52404E474552220A
3020393939202259 5041434845434F22 0A30203639202245 44494552220A0000

 

si trato de convertirlo a string me debuelve LOOP get[]

creando un archivo y escribiendolo en binario fue q pude obtener lo q posteo al principio

[Delphius]

Si tu generas el archivo, ¿Cómo es que lo grabas? Deberás brindar esa info.

Por otro lado, ¿Sabes si lo que te envia el otro programa (que al parecer es de terceros) por UDP es info limpia? Es decir, si lo que te devuelve es sólo el contenido DATA del formato UDP ¿O estás recibiendo todo el paquete?

¿Cómo es que le consultas? ¿Que componentes usas?

 

Recuerda que el protocolo UDP tiene un formato definido, y en los primeros bytes se maneja info relativa a Dirección de Origen, Destino, Puerto, Longittud del mensaje, etc. ¿No será que justamente el "contenido indescifrable" es justamente esto?

 

Pero insisto en mi punto. Esto no elimina del todo el mayor problema del fondo: si no sabes interpretar la DATA que te envía ese programa, de nada sirve que la guardes.

 

Saludos,

[Agustin Ortu]

Obviamente que Marcelo tiene razon

 

La pregunta mas fundamental que tenes que responder es esto:

 

 

 

LOOP get             ‰p 0k
k
†i‰iˆi111111111111111111111111
   ˆ N Underground MW3 ES 107 - ^224h gn\IW5\gt\koth\hc\0\pu\1\m\mp_underground\px\850\pn\\mr\\pc\0\ff\0\fg\\md\\kc\1\ac\0\d\1\qp\27017\vo\0\ \g_gametype\koth\g_hardcore\0\gamename\IW5\mapname\mp_underground\protocol\97\scr_game_allowkillcam\1\scr_team_fftype\0\shortversion\1.2\sv_allowClientConsole\0\sv_floodProtect\1\sv_hostname\MW3 ES 107 - ^224h\sv_maxclients\18\sv_privateClients\0\sv_privateClientsForClients\0\sv_pure\1\sv_voice\No Chat\pswrd\0\mod\0
0 39 "RAZOR"
0 69 "BAN"
0 39 "PESADILLA"
0 48 "AGUILA"
0 38 "[GXY]LACHY"
0 999 "CEBALLITO"
0 59 "R@NGER"
0 999 "YPACHECO"
0 69 "EDIER"

 

Tenes esos "datos", los queres convertir, en "que"? Que esperas de ese archivo? Que estructura de datos queres crear?

 

Tenes que volver sobre tus pasos, a lo mas basico. Si yo te doy ese texto de entrada deberias poder convertirlo "a mano", "mentalmente" sin necesidad de un programa. Como vas a instruirle a una computadora que haga la conversion si ni siquiera vos sabes como hacerlo??

Editado por Agustin Ortu, 09 enero 2017 - 01:00 .

[escafandra]

Hay un problema al convertir un archivo binario a texto. O te aseguras que el archivo creado es texto puro y duro o debes leerlo cómo binario, asimilarlo a una estructura (para separar las partes de texto y binario) y poder intrepretarlo.

 

Si usas clases o funciones basadas en Stings, tendrás errores de interpretación con un archivo que mezcla texto y binario. Éstos deben considerarse binario siempre pues caracteres como #0, #13, #10 y los no representables, te romperán el archivo.

 

Ahora no puedo probar tu archivo pero lo mejor es que lo subas cómo adjunto para que alguien pueda analizarlo.

 

 

Saludos. 

[Dante]

en completo lo q quierio y como e llegado a lo q tengo es :

tengo una aplicacion q se comunica con el server de un juego y extrae las estadisticas, esto lo hace por un puerto UDP.

yo quiero q mi aplicacion aga lo mismo por lo q monte un  servidor UDP al cual conecte la aplicaion q se copmunica con el servidor del juego y esta me envio esto "LOOP getstatus", luego creo un cliente UDP con indy10  y uso esto:

delphi

procedure TForm1.IdUDPClient1Connected(Sender: TObject);
var
a:TIdBytes;
 
  hFile: THANDLE;
begin
IdUDPClient1.Send('LOOP getstatus');
SetLength(a,IdUDPClient1.BufferSize);
IdUDPClient1.ReceiveBuffer(a,-1);
 
hFile:= CreateFile(pchar('temp'), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
 if hFile <> INVALID_HANDLE_VALUE then
  begin
   _lwrite(hFile, @a[0], Length(a));
    CloseHandle(hFile);
   end;
 
end;

y asi obtengo el fichero mensionado.

En el fichero se encuentra toda la informacion q nesisito.

Archivos adjuntos

•  temp.rar   504bytes   2 descargas

[Agustin Ortu]

En el fichero se encuentra toda la informacion que necesito.

Que informacion? Que tenes que hacer con ese archivo?

[Dante]

mira en esta linea se encuntra el nombre del sever, tipo de juego, nombre del mapa , maximo de clientes yotras cosas q por el moneto no me interesan

 

   ȠN Underground MW3 ES 107 - ^224h gn\IW5\gt\koth\hc\0\pu\1\m\mp_underground\px\850\pn\\mr\\pc\0\ff\0\fg\\md\\kc\1\ac\0\d\1\qp\27017\vo\0\ \g_gametype\koth\g_hardcore\0\gamename\IW5\mapname\mp_underground\protocol\97\scr_game_allowkillcam\1\scr_team_fftype\0\shortversion\1.2\sv_allowClientConsole\0\sv_floodProtect\1\sv_hostname\MW3 ES 107 - ^224h\sv_maxclients\18\sv_privateClients\0\sv_privateClientsForClients\0\sv_pure\1\sv_voice\No Chat\pswrd\0\mod\0

 

esto otro son en orden por columnas la puntuacion, ping , nombre del player

 

 

0 39 "RAZOR"
0 69 "BAN"
0 39 "PESADILLA"
0 48 "AGUILA"
0 38 "[GXY]LACHY"
0 999 "CEBALLITO"
0 59 "R@NGER"
0 999 "YPACHECO"
0 69 "EDIER"

 

 

esto es lo q me interesa de aki

[escafandra]

En el offset 215h tienes 0 39 "RAZOR"+#10 y a partir de ese punto todos los nombres.

 

El tema es saber si la información previa a lo que te interesa ocupa siempre $215 bytes, para eso tendrás que leer varios archivos de esos y comprobarlo. En el que muestras no aparecen referencias a esa localización en la cabecera que es binaria.

 

Te muestro un código que extrae la información que quieres, suponiendo que siempre esté en el offset $0215:

delphi

function LoadData(FileName: String): String;
var
  Buffer: PBYTE;
  Size: integer;
  hFile: THANDLE;
begin
  hFile:= CreateFile(PCHAR(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    Size:= GetFileSize(hFile, 0);
    Buffer:= GetMemory(Size);
    _lread(hFile, Buffer, Size);
    Result:= PAnsiChar(Buffer)+$215;
    CloseHandle(hFile);
    FreeMemory(Buffer);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Delimiter:= #10;
  Memo1.Lines.DelimitedText:= LoadData('temp');
end;

Saludos.

[escafandra]

Otra forma de llegar a los nombres sería esta:

delphi

function LoadData2(FileName: String): String;
var
  Buffer: PBYTE;
  Size: integer;
  hFile: THANDLE;
  OffSet: integer;
begin
  hFile:= CreateFile(PCHAR(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    Size:= GetFileSize(hFile, 0);
    Buffer:= GetMemory(Size);
    _lread(hFile, Buffer, Size);
    OffSet:= 0;
    while (PAnsiChar(Buffer)[OffSet] <> '"') and (OffSet < Size) do inc(OffSet);
    inc(OffSet, -5);
    Result:= PAnsiChar(Buffer) + OffSet;
    CloseHandle(hFile);
    FreeMemory(Buffer);
  end;
end;

Saludos.

[Delphius]

La verdad es que no entiendo cual es el problema o dificultad. Si Dante realmente sabe distinguir lo que contiene esa línea (o esas líneas) que está "formateada" con barras invertidas, ¿que le impide "trozar" el contenido por partes y leer la indicada.

 

En lugar de asumir que esté en cierto offset, si efectivamente por ejemplo, el nombre del server está antes de la primera barra, y que por ejemplo el número máximo de server está en la 18va barra, basta con utilizar por ejemplo un StringList y establecer como delimitador de texto la barra invertida. Luego en cada línea tendrá la info "separada". Deberá posicionarse en la que desea y leerla.

 

Esto va a servir siempre que se compruebe que se respete ese "formato": el orden de los elementos y en cantidad.

 

Saludos,

[Dante]

lo q me impedia trosear el contenido de el archivos era al tratr de converti el buffer a un string, me daba error porque hanbian carateres #0, lo q hice fue limpiar el buffer de estoy caracteres y ya no tuve ni q crear el archivo, asi fue como lo ise, quisas no sea lo mas practico y rapido pero es lo q se me ocurrio anoche

delphi

procedure TForm2.getstat;
var
Buffr:TIdBytes;
b,i,cont:integer;
letra:char;
e,map:string;
  item: TListItem;
begin
 
IdUDPClient1.Port:=27017;
IdUDPClient1.Host:=Edit1.Text;
IdUDPClient1.Connect;
IdUDPClient1.Send('LOOP getstatus');
SetLength(Buffr,IdUDPClient1.BufferSize);
b:=IdUDPClient1.ReceiveBuffer(Buffr,3000);
SetLength(Buffr,b);
 
  for i := b-1 downto 0 do
     begin
 
     if (Buffr[I]<>0) and (Buffr[I]<>17)
     and (Buffr[I]<>18)and (Buffr[I]<>1)
     and (Buffr[I]<>27)and (Buffr[I]<>15)then
       begin
       if (Buffr[I]<>10) then
        begin
        letra := Chr(Buffr[I]);
         e := letra + e;
        end
        else   e:='|'+e;
       end;
 
 
    end;
 
    map:=GetToken(e,'\',43);
      if map='mp_alpha' then  map:='Lockdown' else
      if map='mp_bootleg' then  map:='Bootleg' else
      if map='mp_bravo' then  map:= 'Mission' else
      if map='mp_carbon' then  map:='Carbon' else
      if map='mp_dome' then  map:='Dome' else
      if map='mp_exchange' then  map:='Downturn' else
      if map='mp_hardhat' then  map:='Hardhat' else
      if map='mp_paris' then  map:='Resistance' else
      if map='mp_interchange' then  map:='Interchange' else
      if map='mp_lambeth' then  map:= 'Fallen' else
      if map='mp_plaza2' then  map:='Arkaden' else
      if map='mp_underground' then  map:='Underground' else
      if map='mp_lambeth' then  map:='Fallen'else
      if map='mp_mogadishu' then  map:='Bakaara' else
      if map='mp_radar' then  map:='Outpost' else
      if map='mp_seatown' then  map:='Seatown' else
      if map='mp_village' then  map:='Village' else
      map:='random';
 
 
    Label2.Caption:='Nombre del mapa: '+ map;
    Image1.Picture.LoadFromFile(FilePath+'mapimages\'+map+'.gif');
    ListView1.Items.Clear;
    e:= GetToken(e,'\',71);
 for I := 2  to 22 do
 begin
 if trim(GetToken(e,'|',I))<> '' then
   begin
   item:= ListView1.Items.Add;
   item.Caption:= GetToken(GetToken(e,'|',I),' ',3);
   item.SubItems.Add(GetToken(GetToken(e,'|',I),' ',1));
   item.SubItems.Add(GetToken(GetToken(e,'|',I),' ',2));
   end
   else
   begin
   Label3.Caption:= 'Conectados: ' + ListView1.Items.Count.ToString + '/18';
   Break 
 
   end;
 
 end;
 
 if IdUDPClient1.Connected then
 IdUDPClient1.Disconnect;
 
  end;

de todas maneras voy a provar lo q dijo escafandra, muchisimas grasias a todos los q me ayudaron

[escafandra]

lo q me impedia trosear el contenido de el archivos era al tratr de converti el buffer a un string, me daba error porque hanbian carateres #0, lo q hice fue limpiar el buffer de estoy caracteres y ya no tuve ni q crear el archivo, asi fue como lo ise, quisas no sea lo mas practico y rapido pero es lo q se me ocurrio anoche
...
de todas maneras voy a provar lo q dijo escafandra, muchisimas grasias a todos los q me ayudaron

Como te comenté, ciertos valores de byte son interpretados al leerlos en modo texto y se corrompe la información. Lo suyo es que fueses capaz de interpretar la parte binaria para así tener la información completa del archivo, pero si no es relevante para tí, tu solución es buena.


Saludos.