Affichage page web avec delphi
saimslim
Messages postés
47
Date d'inscription
dimanche 17 juillet 2005
Statut
Membre
Dernière intervention
22 octobre 2012
-
13 juil. 2008 à 09:03
Utilisateur anonyme - 14 juil. 2008 à 00:39
Utilisateur anonyme - 14 juil. 2008 à 00:39
3 réponses
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
13 juil. 2008 à 18:31
13 juil. 2008 à 18:31
function openURL(const URL: string): integer;
begin
result := ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWMAXIMIZED);
end;
...
begin
openURL(Edit1.Text);
end;
begin
result := ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWMAXIMIZED);
end;
...
begin
openURL(Edit1.Text);
end;
hardouz
Messages postés
196
Date d'inscription
jeudi 22 février 2007
Statut
Membre
Dernière intervention
26 novembre 2009
13 juil. 2008 à 19:34
13 juil. 2008 à 19:34
salut
tu peut utiliser le composant Twebbrowser :)
c'est plus fiable ^^
voici un pti help !
tu écrie se que tu veux dans le edit puis tu appuis sur entré et sa roule ^^
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 Then
Begin
Label1.Caption:='chagement en cours ... ';
Form1.WebBrowser1.Navigate(Edit1.Text);
end;
end;
bonne programmation
{
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
label1.Caption:='chargement de la page terminer ';
end;
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin { TForm1.WebBrowser1ProgressChange }
if Progress>0 then
begin
ProgressBar1.Max := ProgressMax;
ProgressBar1.Position := Progress
end { Progress>0 }
else begin
ProgressBar1.position := 0
end; { TForm1.WebBrowser1ProgressChange } end;}
tu peut utiliser le composant Twebbrowser :)
c'est plus fiable ^^
voici un pti help !
tu écrie se que tu veux dans le edit puis tu appuis sur entré et sa roule ^^
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 Then
Begin
Label1.Caption:='chagement en cours ... ';
Form1.WebBrowser1.Navigate(Edit1.Text);
end;
end;
bonne programmation
{
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
label1.Caption:='chargement de la page terminer ';
end;
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin { TForm1.WebBrowser1ProgressChange }
if Progress>0 then
begin
ProgressBar1.Max := ProgressMax;
ProgressBar1.Position := Progress
end { Progress>0 }
else begin
ProgressBar1.position := 0
end; { TForm1.WebBrowser1ProgressChange } end;}
Utilisateur anonyme
14 juil. 2008 à 00:39
14 juil. 2008 à 00:39
Salut,
@Hardouz : "tu peut utiliser le composant Twebbrowser :) c'est plus fiable ^^" : Evite de dires des bétises aussi grosse que toi. Le TWebBrowser c'est de la daube: Ce machin qui utilise IE; ne devrait jamais être utilisé.
@Hardouz : "tu peut utiliser le composant Twebbrowser :) c'est plus fiable ^^" : Evite de dires des bétises aussi grosse que toi. Le TWebBrowser c'est de la daube: Ce machin qui utilise IE; ne devrait jamais être utilisé.
