[Win32][D7] Convertir caractères spéciaux en code URL (HTML)

Version imprimable

17/05/2006, 12h14
Benjamin GAGNEUX

[Win32][D7] Convertir caractères spéciaux en code URL (HTML)

Salut,

Afin de pouvoir charger des pages HTML dont le lien comprend des caractères spéciaux (accents, espace, etc...), je souhaiterais pouvoir convertir ces caractères en caractères conformes aux liens URL.

Exemple : convertir 'é' en '%e9'

Existe-t-il des fonctions toutes faites ?
Ou faut-il que je récupère toute la liste des caractères spéciaux afin de faire ma propre fonction (mais cela fait quand meme 155 caractères à traiter) ?

Merci d'avance

car HTML

:salut:

J'ait ça.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
 
unit UnitConvertCar;
interface
Function ConvertCarHTML(C : Char) : String;
Function ConvertTexteHTML(S : String) : String;
implementation
 
Function ConvertCarHTML(C : Char) : String;
Var
  S  : String;
Begin
   Case C Of
    'À' : S := '&Agrave;';
    'Á' : S := '&Aacute;';
    'Â' : S := '&Acirc;';
    'Ã' : S := '&Atilde;';
    'Ä' : S := '&Auml;';
    'Å' : S := '&Aring;';
    'Æ' : S := '&Aelig;';
    'à' : S := '&agrave;';
    'á' : S := '&aacute;';
    'â' : S := '&acirc;';
    'ã' : S := '&atilde;';
    'ä' : S := '&auml;';
    'å' : S := '&aring;';
    'æ' : S := '&aelig;';
    'Ç' : S := '&Ccedil;';
    'ç' : S := '&ccedil;';
    'Ð' : S := '&ETH;';
    'ð' : S := '&eth;';
    'È' : S := '&Egrave;';
    'É' : S := '&Eacute;';
    'Ê' : S := '&Ecirc;';
    'Ë' : S := '&Euml;';
    'è' : S := '&egrave;';
    'é' : S := '&eacute;';
    'ê' : S := '&ecirc;';
    'ë' : S := '&euml;';
    'Ì' : S := '&Igrave;';
    'Í' : S := '&Iacute;';
    'Î' : S := '&Icirc;';
    'Ï' : S := '&Iuml;';
    'ì' : S := '&igrave;';
    'í' : S := '&iacute;';
    'î' : S := '&icirc;';
    'ï' : S := '&iuml;';
    'Ñ' : S := '&Ntilde;';
    'ñ' : S := '&ntilde;';
    'Ò' : S := '&Ograve;';
    'Ó' : S := '&Oacute;';
    'Ô' : S := '&Ocirc;';
    'Õ' : S := '&Otilde;';
    'Ö' : S := '&Ouml;';
    'Ø' : S := '&Oslash;';
    'Œ' : S := '&OElig;';
    'ò' : S := '&ograve;';
    'ó' : S := '&oacute;';
    'ô' : S := '&ocirc;';
    'õ' : S := '&otilde;';
    'ö' : S := '&ouml;';
    'ø' : S := '&oslash;';
    'œ' : S := '&oelig;';
    'Ù' : S := '&Ugrave;';
    'Ú' : S := '&Uacute;';
    'Û' : S := '&Ucirc;';
    'Ü' : S := '&Uuml;';
    'ù' : S := '&ugrave;';
    'ú' : S := '&uacute;';
    'û' : S := '&ucirc;';
    'ü' : S := '&uuml;';
    'Ý' : S := '&Yacute;';
    'Ÿ' : S := '&Yuml;';
    'ý' : S := '&yacute;';
    'ÿ' : S := '&yuml;';
    '¢' : S := '&cent;';
    '£' : S := '&pound;';
    '¥' : S := '&yen;';
    '©' : S := '&copy;';
    '®' : S := '&reg;';
    'ª' : S := '&ordf;';
    'º' : S := '&ordm;';
    '¹' : S := '&sup1;';
    '²' : S := '&sup2;';
    '³' : S := '&sup3;';
    '¼' : S := '&frac14;';
    '½' : S := '&frac12;';
    '¾' : S := '&frac34;';
    '÷' : S := '&divide;';
    '×' : S := '&times;';
    '>' : S := '&gt;';
    '<' : S := '&lt;';
    '±' : S := '&plusmn;';
    '¿' : S := '&iquest;';
    '¡' : S := '&iexcl;';
    '¤' : S := '&curren;';
    '¦' : S := '&brvbar;';
    '§' : S := '&sect;';
    '¨' : S := '&uml;';
    '«' : S := '&laquo;';
    '»' : S := '&raquo;';
    '¬' : S := '&not;';
    '´' : S := '&acute;';
    'µ' : S := '&micro;';
    '¶' : S := '&para;';
    '·' : S := '&middot;';
    '¸' : S := '&cedil;';
    'þ' : S := '&thorn;';
    'ß' : S := '&szlig;';
    Else S := C;
  End;
  Result := S;
End;
Function ConvertTexteHTML(S : String) : String;
Var
   I      : Integer;
   S1, S2 : String;
Begin
   If Length(S) = 0 Then
    begin
       Result := '';
       Exit;
    end;
   S2 := '';
   S1 := S;
   For I := 1 To Length(S) Do S2 := S2 + ConvertCarHTML(S1[I]);
   Result := S2;
End;
end.

Si ça peut t'aider...

17/05/2006, 13h31
Benjamin GAGNEUX

Merci
Mais cela ne fonctionne pas pour les adresses http...

Il faut avoir les caractères spéciaux sous la forme %xx pour que cela fonctionne :(

Voici une fonction qui marche a tout les coups

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 function HTTPEncode(const AStr: string): string;
const
  NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-'];
var
  Sp, Rp: PChar;
begin
  SetLength(Result, Length(AStr) * 3);
  Sp := PChar(AStr);
  Rp := PChar(Result);
 
  while Sp^ <> #0 do
  begin
    if Sp^ in NoConversion then
      Rp^ := Sp^
    else 
    if Sp^ = ' ' then
      Rp^ := '+'
    else
    begin
      FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
      Inc(Rp, 2);
    end;
    Inc(Rp);
    Inc(Sp);
  end;
 
  SetLength(Result, Rp - PChar(Result));
end;

17/05/2006, 15h02
Benjamin GAGNEUX
Merci :ccool:

Je n'avais pas vu le rapport entre le code ASCII et l'équivalent hexa préfixé du '%' :oops:

Une petite question sur ton code :
Code:

1 2 if Sp^ = ' ' then Rp^ := '+'
Je ne saisie pas trop à quoi sert ceci...
Pourquoi considérer le caractère ' ' différemment des autres ?

Merci

PS: je me suis permi d'ajouter les balises Code, en effet le code est beaucoup plus lisible maintenant.
17/05/2006, 15h04
lassmust

c'est simple l'espace en http et remplacer par '+'
17/05/2006, 15h08
denokan

à mon avis les deux fonctions ont leur place dans la FAQ :P

Citation:

Envoyé par lassmust

c'est simple l'espace en http et remplacer par '+'

Ah ok, ca marche aussi avec %20

J'ai fais quelques petites modifs
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 function HTTPEncode(const AStr: string): string; const NoConversion = ['A'..'Z', 'a'..'z', '0'..'9',':','*', '@', '.', '_', '-','/','\','?']; var Sp, Rp: PChar; begin SetLength(Result, Length(AStr) * 3); Sp := PChar(AStr); Rp := PChar(Result); while Sp^ <> #0 do begin if Sp^ in NoConversion then Rp^ := Sp^ else begin FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]); Inc(Rp, 2); end; Inc(Rp); Inc(Sp); end; SetLength(Result, Rp - PChar(Result)); end;
Citation:

Envoyé par denokan

à mon avis les deux fonctions ont leur place dans la FAQ :P

La première méthode y est déjà
http://delphi.developpez.com/faq/?pa...irhtmlspeciaux

Mais on peut proposer la deuxième, en effet.

Merci à tous