Error con buffer

[ecfisa]

Tenes razón, disculpas.

String file_hex(const String aFileName, const int StartingAt, const int Quantity)
{
  TFileStream *fs = new TFileStream(aFileName, fmOpenRead);
  unsigned char buff;
  String str = "";
  try {
    fs->Seek(StartingAt, soFromBeginning);
    for(int i = 0; i < Quantity; i++) {
      fs->Read(&buff, 1);
      str += IntToHex(buff, 2) + ' ';
    }
  }
  __finally {
    delete fs;
  }
  return str.SetLength(str.Length()-1);
}

Uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Text = file_hex("C:\\Windows\\notepad.exe", 95, 20);
}

Ahora a la función se le envían como argumentos, la posición inicial (basada en cero) y la cantidad de elementos a leer a partir de ella.

Saludos

[[escafandra]]

Os propongo una función en Ansi C para convertir una cadena contenida en un buffer de tamaño conocido y no ASCIIZ (como el buffer obtenido de la lectura de un archivo de texto) en texto hexadecimal:

//---------------------------------------------------------------------------
// Convierte un buffer binario en una cadena de números hexadecimales
bool BinToStr(BYTE *Bin, DWORD BinSize, char* Str, DWORD *StrSize)
{
  if(!Str){
     *StrSize = 2*BinSize + 4; // '\0' y dos caracteres de mas para el final en "\r\n"
     return false;
  }
  
  if(*StrSize <  2*BinSize + 4) return false;
 
  for(int i=0; i<BinSize; i++){
    *Str = (0x0F & *Bin>>4) + 48;
    *(Str+1) = (0x0F & *Bin) + 48;
    if(*Str > '9') *Str += 7;
    if(*(Str+1) > '9') *(Str+1) += 7;
    Bin++; Str+=2;
  }
  *Str++ = '\r'; *Str++ = '\n'; *Str = 0;
  return true;
}

El resultado lo devuelve en otro buffer de tamaño mínimo 2*BinSize + 4
Si pasamos como argumento Str = NULL nos devuelve el tamaño del buffer necesario (2*BinSize + 4)


Es una función que yo he usado para esos fines.

Saludos.

[andres_89]

Hola ecfisa y escafandra,

el código de ecfisa, me funciono correctamente pasandole como parámetro cualquier archivo, gracias.

escafandra, tu código lo veo muy interesante, estoy analizando tu función ("bool BinToStr(BYTE *Bin, DWORD BinSize, char* Str, DWORD *StrSize)"), sinceramente no habia visto algunos códigos del Anci C que están en tu código....., bueno, una consulta estoy tratando de llamar tu función para leer un archivo como hexadecimal pero no logro a llamarla, encontre una forma de llamarla pero no me funciona:

BINTOSTR(string, string_type)

cuales serian sus parámetros?

Saludos.

[[escafandra]]

[code]bool BinToStr(BYTE *Bin, DWORD BinSize, char* Str, DWORD *StrSize) /CODE]

Bin: un puntero de tipo BYTE (char*) que apunta al buffer que contiene el binario a convertir a texto hexadecimal.
BinSize: El tamaño del buffer anterior.
Str: Un puntero tipo char* con un buffer que recibirá la salida del texto hexadecimal
StrSize: un puntero tipo DWORD con el tamaño del buffer Str.

Ejemplo

Supongamos que lees un binario en un puntero BYTE *Data de tamaño Size:

char *Str;  // Puntero a un buffer que recibirá la cadena
DWORD StrSize;  // tamaño del buffer

// Calculamos el tamaño de StrSize:
BinToStr(Data, Size, 0, &StrSize);
// reservamos memoria para Str
Str = new char[StrSize);
// Convertimos Data a hexadecimal
BinToStr(Data, Size, Str, &StrSize);
... No olvidar liberar el buffer Str cuando no nos haga falta (delete [] Str)

Ahora en Str tenemos una cadena ASCIIZ con un retorno de carro y línea al final y que contiene Data convertido a hexadecimal.

Saludos.