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;

[theodp]

url:='http://www.youtube.com/results?search_query=johnny';

?

[winow]

Merci theodp , c'est parfait

Quand je programmer sous BCB6 Windows il y avait ShellExecute qui lancer un peut tout ce que l'on voulais, c'est dommage qu'il y est rien de semblable pour nous.

Merci a tous et A+

[batyann811]

ShellExecute est un fonction de l'API Win32 : http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Avec xdg-open tu peux ouvrir ce que tu veux sous linux

Ceci doit marcher par exemple :

Code :

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

1
2
browser.CommandLine:='xdg-open toto.png';
browser.Execute;

En combinant les deux tu dois pouvoir faire un truc portable du genre

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
16
17
 
function ShellOpen(Name : String) : Integer;
{$ifdef UNIX}
  process : TProcess;
{$endif}
begin
{$ifdef UNIX}
  process:=TProcess.Create(nil);
  process.CommandLine:='xdg-open '+Name;
  process.Execute;
  process.Free;  
  Result:=process.ExitStatus;
{$endif}
{$ifdef WINDOWS}
  ShellExecute( Bla Bla Bla...);
{$endif}  
end;

[winow]

Superbe , Merci batyann811

En fait je sais pas faire pour faire un logiciel qui marche a la fois sur Linux et Windows ?
Je vois pas ce qu'il faut faire puisque dans Windows le fichier devient un banal fichier texte.