convertir de 'TCaption' para usar su valor en 'PAnsiChar'

[delphi.com.ar]

Empezado por jbgpina

el resultado Binario lo almacena en buffer???

Exacto... debes crear un buffer y asignar espacio en memoria, sinó producirás un AccessViolation!

Saludos!

[jbgpina]

Imposible no consigo que el Buffer contenga la cadena alfanumerica con la representacion Binaria del Hex en cadena alfanumerica que le paso, podeis poner un ejemplo que funcione.

Gracias y disculpar por mi cerrazon mental.

[delphi.com.ar]

Esta es una de las tantas formas de hacerlo:

function HexToBinStr(Value: string) : string;
var
  Buffer: PChar;
  BuffSize: Integer;
begin
  BuffSize := Length(Value) div 2;
  Buffer := StrAlloc(BuffSize);
  try
    ZeroMemory(Buffer, BuffSize);
    HexToBin(PChar(Value), Buffer, BuffSize);
    Result := Buffer;
  finally
    StrDispose(Buffer);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := HexToBinStr('303132333435363738393a3b3c3d')
end;

Una forma mucho mas sencilla es trabajar directamente con el resultado:

function HexToBinStr(Value: string) : string;
var
  BuffSize: Integer;
begin
  BuffSize := Length(Value) div 2;
  Result := StringOfChaR(#0, BuffSize);
  HexToBin(PChar(Value), PChar(Result), BuffSize);
end;

Saludos!