Entwickler-Ecke

Internet / Netzwerk - WebBrowser funktioniert nicht?


F.Art - Sa 24.12.05 23:55
Titel: WebBrowser funktioniert nicht?
sobald ich diesen code in die form einbringe
Application.ShowMainForm:=False;

geht der webbrowser nicht mehr.
nur verstehe ich nicht wieso und vieleicht hat einer abhilfe für mich?


MSCH - Di 27.12.05 15:19

kannst du etwas mehr code posten?

grez
msch


F.Art - Di 27.12.05 22:27

Ist das Projekt unsichtbar funktioniert das nicht mehr sonst ja.
Ich habe keine Idee woran das liegen könnte bzw wie ich das Problem beheben könnte.


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
procedure TForm1.Button2Click(Sender: TObject);
var count:integer;
begin
WebBrowser1.silent := true;
WebBrowser1.Navigate('http://www.domain.de/ip.php');
repeat
Application.ProcessMessages;
until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
memo1.Clear;
Quelltext(WebBrowser1, Memo1.Lines);
IPscan:=Memo1.Lines[0];

for count:=1 to length(IPscan) do try
    if not (IPscan[count] in ['0'..'9','.']) then
    IPscan:='';
    except
    end;
IP.Text:=IPscan;
end;


bei WebBrowser1.Navigate('http://www.domain.de/ip.php'); bleibt er immer stehen und macht nicht weiter.

Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt


Keldorn - Di 27.12.05 22:39

Hallo

probier mal ein

Delphi-Quelltext
1:
Webbrowser.HandleNeeded;                    

beim oncreate der Form oder vorm navigate auf

Mfg Frank


F.Art - Mi 28.12.05 00:38

damit funktioniert es