7 respuestas en este tema

[martinartaza]

Hola, querido foro estoy un poco mariado con las funciones de conversión de los siguiente tipo de datos.
Ando buscando las siguiente funciones:

delphi

function ByteArraytostr(ba: TByteArray): string;
function StrToByteArray(st: String): TByteArray;
 
function StrToWord(st : string): word;
function WordToStr(wo : Word): string;
 
function StrToDWord(st : string): Dword;
function DWordToStr(DW : DWord): string;
 
 
funciton bytetostr(by:byte):string
funcition strtobyte(st:string): byte

Desde ya muchas gracias.

[escafandra]

Esas conversiones, en el fondo, no son complicadas:

delphi

uses Math;
 
function PByteArraytostr(ba: PByteArray): string;
begin
  Result:= String(PCHAR(ba));
end;
 
function StrToPByteArray(st: String): PByteArray;
begin
  Result:= PByteArray(PCHAR(st));
end;
 
function StrToWord(st : string): word;
begin
  Result:= WORD(Floor(StrTofloat(st)));
end;
 
function WordToStr(wo : Word): string;
begin
  Result:= IntToStr(wo);
end; 

   

He preferido sustituir las conversiones TBytaArray por PByteArray, pues ese tipo está pensado para usar su puntero. El resto de las conversiones numéricas son similares al caso de WORD.


Saludos.

[martinartaza]

Muchisimas gracias, me ahorras mucho tiempo.

[enecumene]

Muchisimas gracias, me ahorras mucho tiempo.

Hola martín, ¿te ha resuelto la solución de escafandra?, si es así, para colocar el tema como resuelto.

Saludos.

[martinartaza]

No del todo, tengo problemas con:

delphi

function ByteArraytostr(ba: TByteArray): string;
function StrToByteArray(st: String): TByteArray;

eh creado una funcion que los pasas, pero como el programa me devuelve basura no se si estaran bien, hoy a la noche me fijo, ahora no puedo.

[escafandra]

Te comenté que no es muy apropiado el uso directo de TByteArray, entre otras cosas por que es muy largo. sizeof(TByteArray) = 32768, es decir cada variable que declares usa ese espacio, sin embargo al convertir punteros ocupa sólo lo que le toque.

Es mejor usar un puntero y para el caso es casi lo mismo aunque mas eficiente.

Si te empeñas en usar TByteArray:

delphi

function ByteArrayToStr(ba: TByteArray): string;
begin
  Result:= String(PCHAR(@ba[0]));
end;
 
function StrToByteArray(st: String): TByteArray;
begin
  Result:= PByteArray(PCHAR(st))^;
end; 

Saludos.

[martinartaza]

Muchas gracias escafandra, no es que me empeñe en usar TByteArray, simplemente es lo que me devuelve funciones echas en una dll en c++ y quiero mostrar los resultados en una cajita de texto.
Tal vez que pueda modificar la forma en que se la llama, enseguida la pruebo y me fijo que si pongo el tema como solucionado.

[escafandra]

Muchas gracias escafandra, no es que me empeñe en usar TByteArray, simplemente es lo que me devuelve funciones echas en una dll en c++ y quiero mostrar los resultados en una cajita de texto.

TByteArray no es un tipo ANSI C ni WIN. Probablemente esa dll de devuelve un char*, char [], Byte* o Byte[], todos ellos equivalentes y representando un puntero. En delphi para para pasar de puntero a la variable que apuntan basta con poner ^ detras:

delphi

var 
 B: TByteArray;
 pB: PByteArray;
begin
  B:= pB^;

y para obtener un puntero:

delphi

pB:= @B;

Ten mucho cuidado con los tipos pues un array de Bytes no siempre tiene una representación en un String, sobre todo en C. Cuando aparece un Byte Nulo (cero) la cadena de da por terminada, no así si lo tratamos de forma binaria.

Saludos.