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

[steve-allround]

Danke, es geht

[woki]

HI,

es gibt zu TWebbrowser auch eine ganz nette Demo, die z.B. auch diesen Punkt abdeckt, liegt. meine ich, im Verzeichnis "Coolstuff".

Grüsse
Woki

[Affje800]

wie füge ich da am besten noch ne statusanzeige hinzu?? also wo er den prozess anzeigt, wie weit er ist...

[Luckie]

Neue Frage, neuer Thread bitte. Aber kuck dir doch mal die Ereignisse an, die dir TWebBrowser bietet. :roll:

[Affje800]

hab ich übersehen, sorry.
aber wo wird dann die statusbar angezeigt?? ich sehe nicht....

oder muss ich ne extra statusbar auf der form anlegen?? (und diese dann verknüpfen..)

[sakura]

Zitat:

Zitat von Affje800

muss ich ne extra statusbar auf der form anlegen

Ja und selbst mit den angezeigten Werten auffüllen. Nix da mit verknüpfen ;-)

...:cat::..

[Affje800]

danke, aber gehts etwas genauer?? *g*
ich bin nicht so der fachinformatiker, wie ich es gern einer wäre *g*

[Affje800]

weiss keiner wie das geht?

[SleepyMaster]

@Affje800

Delphi-Quellcode:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
Progressbar1.Max:=ProgressMax;
Progressbar1.Position:=Progress;
end;

[Mirilin]

:hi:

F1 --> Hilfe

TWebBrowser.OnProgressChange

Das Ereignis OnProgressChange wird ausgelöst, wenn der Fortgang einer Herunterladen-Operation aktualisiert wird

In der Ereignisbehandlungsroutine für OnProgressChange können Sie dem Benutzer beim Herunterladen eines Dokuments eine visuelle Rückmeldung über den Fortgang der Operation geben. Sie können beispielsweise eine TProgressBar-Komponente aktualisieren oder die Anzahl der heruntergeladenen Bytes anzeigen.

Sender gibt die WebBrowser-Komponente an, die das Dokument herunterlädt.

Progress gibt an, wie weit die Operation fortgeschritten ist (in einem Bereich von 0 bis ProgressMax). Wenn Progress den Wert ?1 hat, ist die Aktion abgeschlossen.

ProgressMax ist der Maximalwert des Bereichs.

Tip: Sie können den Fortgang auch in einen Prozentwert umrechnen (wenn Progress nicht ?1 ist). Multiplizieren Sie dazu den Wert von Progress mit 100, und dividieren Sie das Ergebnis durch ProgressMax.

mfg Tobias

[SleepyMaster]

Sag ich doch! ;)