Hi.
Ich hab mich schon vor längerer Zeit bei einem online Browser Spiel angemeldet. Weil es aber noch im Entwicklungsstadium ist sind nur ein paar User angemeldet und man kann nie richtige spielen weil nie einer online ist wenn man mal vorbeischaut. Darum hab ich mir gedacht, dass ich ein Programm schreiben könnte das alle paar Minuten den Text „Es sind 0 Spieler online.“ auf www.tactics.it-devnet.de überprüft und wenn er sich geändert hat zeigt er eine Meldung.
Ich weis aber nicht wie ich das programmieren soll, das er den Text auf einer Internet Seite oder eines Quelltextes überprüft.
Könnt ihr mir da helfen? Oder geht so etwas gar nicht?

na sicher geht das... du lädst in ein TMemo (visible := false) die den quellcode der webseite, in ein zweites Tmemo (ebenfalls visible := false) lädst du den code 15 sekunden später wieder und vergleichst die beiden Inhalte!

cya, dave

Achso.
Und wie lad ich den Quellcode in das TMemo?

Nimm dir eine HTTP Komponente und nutze die Methode Get. Die HTTP-Komponenten von den Indy's kennt zum Beispiel diese Methode. Aber ich würde dazu kein Memo missbrauchen, sondern eine Stringliste nehmen.

Ich hab in der Hilfe nachgeschaut aber da hab ich nur folgendes gefunden und dammit kann ich irgendwie nix anfangen.




Wie programmiert man die Methode Get?

(Sorry ich bin Anfänger )

Ich denke mal



Kann ich aber jetzt leider nicht nachprüfen, da ich keine HTTP-Komponente habe.

Jetzt gibt er Fehlermeldungen aus:
Undeclared identifier: 'TIdAuthentication'
Undeclared identifier: 'HTTP1'

Und unterlegt rot (rot):
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, System.ComponentModel, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
procedure IdHTTP1Authorization(Sender: TObject;
Authentication: TIdAuthentication; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.nfm}

procedure TForm1.IdHTTP1Authorization(Sender: TObject;
Authentication: TIdAuthentication; var Handled: Boolean);
begin
HTTP1.Get('http://www.tactics.it-devnet.de/game.php');
end;

end.

Okay,

Fehlermeldungen bringt er jetzt nicht immer. Aber bei welchem "Event" soll ich die Methode reinschreiben?

OnAuthorization (Da bringt er die Fehlermeldung)
OnDisconnected
OnProxyAuthorization (Da bringt er die Fehlermeldung)
OnRedirect
OnSelectAuthorization (Da bringt er die Fehlermeldung)
OnSelectProxyAuthorization (Da bringt er die Fehlermeldung)
OnStatus
OnWork
OnWorkBegin
OnWorkEnd

Die Fehler Meldung ist die erste die oben auch schon war (Undeclared identifier: 'TIdAuthentication')

Und wie bekomme ich den Text dann ins Memo?

Yeah! Ich habs rausgefunden!



Quelle

Danke!

Ich habe da noch 'ne Frage könnte man dieses Prinzip auch beim MSN-Messenger anwenden und ein Programm schreiben, das überprüft ob eine gewisse Person online ist?? Würde dies gehen, wenn ja, könnt ihr mir Tips geben, wie man das anstellen könnte? Wäre total dankbar!

Wie das geht weis ich nicht, aber was bringt das?
Das man benachrichtigt werden soll wenn jemand online geht kann man in MSN Messenger ja unter Extras > Optionen > Allgemein einstellen.