Comment ouvrir des fichiers .pdu .

function Encode16BitsPDU(Text: WideString): String;
    var i: Integer;
    begin
    Result:= '';
    for i:= 1 to Length(Text) do
    Result:= Result+ IntToHex((Ord(Text[i]) and $FF00) shr 8, 2)+
    IntToHex(Ord(Text[i]) and $FF, 2);
    end;
    function Decode16BitsPDU(Value: String): WideString;
    var i: Integer;
    function GetCharFromPDU(cPDU: Integer): WChar;
    begin
    Result:= WChar((cPDU shr 8) * 256 + (cPDU and $FF));
    end;
    begin
    Result:= '';
    i:= 1;
    if (Length(Value) mod 4 > 0) or (Length(Value) = 0) then
    Result:= 'Error!'
    else
    while i < Length(Value) do
    begin
    Result:= Result+ GetCharFromPDU(StrToInt('$'+ Copy(Value, i, 4)));
    Inc(i, 4);
    end;
    end;