Android用Delphi FiremonkeyでHextoBinを使用する方法

Question

AndroidにいくつかのWindowsコードを採用しようとしていますが、失敗しました。

私は、次のコードをコンパイルしようとすると、私はエラーを取得する：Android用

[DCC Error] There is no overloaded version of 'HexToBin' that can be called with these arguments

var 
    BinaryStream: TMemoryStream; 
    HexStr: String; 
    WSocket: TWSocket; 
begin 
    HexStr := memo1.Text; 
    BinaryStream := TMemoryStream.Create; 
    try 
    BinaryStream.Size := Length(HexStr) div 2; 
    if BinaryStream.Size > 0 then 
    begin 
     HexToBin(PChar(HexStr), BinaryStream.Memory, BinaryStream.Size); 
     HexStr:=''; 
     HexStr:=MemoryStreamToString(BinaryStream); 
     memo1.Text:=HexStr; 
     IdUDPClient1.Send(HexStr); 

Answer 1

あなたはこれらのオーバーロードのいずれかを使用する必要があります。

function HexToBin(const Text: PChar; TextOffset: Integer; 
    var Buffer: TBytes; BufOffset: Integer; Count: Integer): Integer; overload; 

function HexToBin(const Text: TBytes; TextOffset: Integer; 
    var Buffer: TBytes; BufOffset: Integer; Count: Integer): Integer; overload; 

あなたは最高の達成することができますこれは、TMemoryStreamではなくTBytesStreamを使用して行います。

有効なコールは、次のようになります。

var 
    BinaryStream: TBytesStream; 
    bytes: TBytes; 
    HexStr: String; 
begin 
    HexStr := memo1.Text; 
    SetLength(bytes, Length(HexStr) div 2); 
    HexToBin(PWideChar(HexStr), 0, bytes, 0, Length(bytes)); 
    BinaryStream := TBytesStream.Create(bytes); 
    ...