nom de domaine en cyrillique

Question

Comment puis-je obtenir une page à partir d'Internet, si je domaine cyrillique (http: //президент.рф/) avec Delphi 7.

Merci!

Answer 1

J'ai écrit un codeur punycode/décodeur ici:

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

utilisation:

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('рф')]);