Bu nasıl bir kodlamadır (encoding)?

[fduman]

Bakınız bu orijinal metin:

Bölüm neyim

Bu da encode'lanmış hali:

B_x00f6_l_x00fc_m_x0020_neyim

Bu kodlama neyin nesidir bilen var mıdır? Delphi içindeki bir func. ile halledilebilir birşey midir? URL encode'a benzer bişi ama bunda hex çevrim gibi birşey yapmışlar.

[fduman]

Indy TIdURI bileşenindeki ParamsEncode method'unu biraz değiştirerek hallettim.

Kod: Tümünü seç

// Indy TIdURI'den alındı. FieldRef encode için
function SPPSEncode(const Source: string): string;
var
  i: Integer;
begin
  Result := '';    {Do not Localize}
  for i := 1 to Length(Source) do begin
    if NOT (Source[i] in ['A'..'Z', 'a'..'z', '0'..'9']) then begin {do not localize}
      Result := Result + '_x' + Lowercase(IntToHex(Ord(Source[i]), 4)) + '_';  {do not localize}
    end else begin
      Result := Result + Source[i];
    end;
  end;
end;