Ich schreib grad ein gleines Programm des Anzeigt ob meine Serven online oder Offline sind.
Mein problem ist dass es dauernd anzeigt dass die offline sind obwohl di schon ohn sind...
Hier mal der Delphi code:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
Label3: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if fileexists ('
http://itstefan.kilu.de/1234.TXT')
then Label1.Caption:='
Online'
else Label1.Caption:='
offline' ;
if fileexists ('
http://stevenart.kilu.de/1234.TXT')
then Label2.Caption:='
Online'
else Label2.Caption:='
offline' ;
if fileexists ('
http://itstefan.bplaced.de/1234.TXT')
then Label3.Caption:='
Online'
else Label3.Caption:='
offline' ;
end;
end.
Hoffe mir kann jemand helfen.