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 
raziel: Code- durch Delphi-Tags ersetzt
