URL : xyz protocol [FAQ]

**architecte** · 04/12/2005, 15h18

Bonjour/Bonsoir à tous,

Je me pose une petite question sur le protocol Internet.
J'aimerais pouvoir lancer mon programme quand il voit par exemple le protocol xyz.
Comme un peu emule, lui pour lancer son programme depuis internet, il lui faut le protocole e2dk.

J'ai bien sûr trouver très rapidement pour lui faire comprendre le protocol, mais ce que je me pose maintenant c'est comment lui faire "ingurgiter" telle ou telle adresse ?

Par exemple imaginons qu'il voye cela :

xyz://http://www.developpez.com

Mon programme se lance donc et j'aimerais que ce qu'il voye après il le mette dans un Edit1.Text par exemple, vous sauriez faire ?

------------

Certains se pose peut-être la question de pouvoir lancer son logiciel avec son protocole, c'est très simple, voici la démarche à faire, prenons un exemple, mon programme xyz.REG :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\xyz]
@="URL: xyz Protocol"
"URL Protocol"=""
 
[HKEY_CLASSES_ROOT\xyz\DefaultIcon]
@="\"C:\\xyz.exe\""
 
[HKEY_CLASSES_ROOT\xyz\shell]
 
[HKEY_CLASSES_ROOT\xyz\shell\open]
 
[HKEY_CLASSES_ROOT\xyz\shell\open\command]
@="\"C:\\xyz.exe\" \"%1\""

**architecte** · 04/12/2005, 18h58

Je répond moi même à ma question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  St:String;
  i, i2: integer;
begin
  for I2 := 1 to ParamCount do St:=ParamStr(I2);
  if Copy(St,0,6)='xyz://' then //Copy renvoie une sous-chaîne contenant Count caractères (7) ou éléments en partant de St[0]
  begin
    ShowMessage('L''url contient bien le terme "xyz://"');
    Edit1.Text:=Copy(St,7,Length(St));
  end   else
    ShowMessage('L''url ne contient pas le terme "xyz://"');
end;

Voici ce que va faire le programme :

si vous le lancez comme ca, en cliquant sur le bouton, il va vous affichez le message : L''url ne contient pas le terme "xyz://".

Par contre si vous lancez par exemple ceci depuis la barre d'internet explorer :
"xyz://http://www.developpez.com"

il va lancer le programme (si vous avez bien ajouter le .reg que je vous donne plus haut)
puis il ne vous reste plus qu'a cliquer sur le bouton.
là il va vous mettre un beau message comme quoi il existe bien xyz://
puis dans le petit edit il va mettre la suite de l'adresse.