Discussion :

[winow]

Bonjour
Sous Karmic 9.10 avec Lazarus 0.9.28.2 beta

J'aimerai ouvrir une page web avec le navigateur par défaut sans utiliser TProcess car TProcess n'ouvrira pas "site:http://", il ouvrira "http://",

il y a t'il une solution pour ouvrir site:http://
Merci et A+

[batyann811]

Ta question ne me semble pas très claire... Qu'entends tu par "site:http://" ?

[winow]

Je veut mettre "http:" devant "site:"
car je veut ouvrir une page web d'a partir d'un mot de recherche, comme ceci:
site:http://www.youtube.com/?gl=FR&hl=fr johnny

Si tu ecrit johnny a la fin de l'url ci-dessus dans le moteur de recherche google, tu tombera sur tout ce qui correspond a Johnny etc...

[batyann811]

Je n'ai pas testé mais on doit pouvoir faire ça avec un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
var
  browser : TProcess;
  url : String;
begin
  browser:=TProcess.Create;
  url:='http://le-site-ou-que-je-veux-aller.la/' + 'johnny';
  browser.CommandLine:='xdg-open '+url;
  browser.Execute;
end;

[winow]

Merci batyann811 , je vais tester ton code

[winow]

Non, ça marche pas car ca m'affiche bien une page web mais la recherche ne pointe pas sur le mot Johnny, ca m'affiche pas page normal de Youtube.
pour bien faire il faudrait placer devant l'url le mot "site:" pour que la recherche pointe sur Johnny.

j'ai fait comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
  var
  browser : TProcess;
  url : String;
begin
  browser:=TProcess.Create(nil);
  url:='http://www.youtube.com/?gl=FR&hl=fr' + '+johnny';
  browser.CommandLine:='xdg-open '+url;
  browser.Execute;
  browser.Free;
end;

PUIS j'ai essayé cela "site:" mais la ça ne lance pas la page web:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
  var
  browser : TProcess;
  url : String;
begin
  browser:=TProcess.Create(nil);
  url:='site:http://www.youtube.com/?gl=FR&hl=fr' + '+johnny';
  browser.CommandLine:='xdg-open '+url;
  browser.Execute;
  browser.Free;