cirílico nombre de dominio

Question

¿Cómo puedo conseguir una página de Internet, si tengo dominio cirílico (http: //президент.рф/) con Delphi 7.

Gracias!

Answer 1

He escrito un punycode codificador/decodificador disponible aquí:

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

uso:

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