Url in WebBrowser öffnen

[steve-allround]

Hallo

wie kann ich eine Url ohne das http:// in in WebBrowser öffnen.

bitte komplettes Code mit WebBrowser und Eingab

[Mirilin]

:hi:

Delphi-Quellcode:

WebBrowser.Navigate(URL);

was ist genau deine Frage?

mfg Tobias

[sakura]

Warum muss es ohne http:// sein ?

Zitat:

bitte komplettes Code mit WebBrowser und Eingab

Da fehlt doch noch was :gruebel:

Zitat:

bitte komplettes Code

Nein, sage uns lieber, wie weit Du schon gekommen bist, wir helfen Dir bei den Fehlern.

...:cat:...

[mirage228]

Edit1 : Eingabe der URL (mit oder ohne http vorne dran)

Button1: Seite öffnen

die Prozedur wird beim "onClick" ausgeführt

Delphi-Quellcode:

uses 
  ShellAPI

{ .... }

procedure TForm1.Button1Click(Sender: TObject);
var
  sSite: String;
begin
  sSite := Trim(Edit1.Text);
  if Pos('://', sSite) <= 0 then
    sSite := 'http://' + sSite;
  ShellExecute(Form1.Handle, 'open', PChar(sSite), nil, nil, SW_SHOWNORMAL);
end;

mfG
mirage228

[steve-allround]

Danke, ich wollte aber die Url unter TWebBrowser öffnen, geht das?

[Mirilin]

:hi:

Delphi-Quellcode:

procedure TMainForm.ButtonGoClick(Sender: TObject);
begin
  Webbrowser.Navigate(EditURL.Text);
end;

mfg Tobias

[steve-allround]

Also ich habe:
Edit1
Button1
WebBrowser1

möchte jetzt eine Url anzeigen

[citybreaker]

Delphi-Quellcode:

procedure TForm1.Button1.Click ...
var i, q, r, s: OleVariant;
begin
  WebBrowser.Navigate(Edit1.Text, i, q, r, s);
end;

[Mirilin]

*räusper*

[mirage228]

Delphi-Quellcode:

  WebBrowser1.Navigate(sSite, emptyparam, emptyparam, emptyparam, emptyparam);

mfG
mirage228