西裏爾字母域名

Question

如何我可以從網上得到一個網頁，如果我有西裏爾字母域名（HTTP：//президент.рф/）用Delphi 7

謝謝！

Answer 1

我已經寫了可使用Punycode編碼器/解碼器在這裏：

http://code.google.com/p/delphionrails/source/browse/trunk/src/dorPunyCode.pas

用法：

function PEncode(const str: UnicodeString): AnsiString; 
var 
    len: Cardinal; 
begin 
    Result := ''; 
    if (PunycodeEncode(Length(str), PPunyCode(str), len) = pcSuccess) and (Length(str) + 1 <> len) then 
    begin 
    SetLength(Result, len); 
    PunycodeEncode(Length(str), PPunyCode(str), len, PByte(Result)); 
    Result := 'xn--' + Result; 
    end else 
    Result := AnsiString(str); 
end; 

Format('http://%s.%s', [PEncode('президент'), PEncode('рф')]);