Program beenden/ weiter ausführen (leicht)

[n000b]

hallo, ich bin langsamm am verzweifeln hier...
ich habe einen free server angenommen google.de dort ist eine text datei text.txt also auf google.de/text.txt...
in der text datei steht ein Wort "erlaubt" ...

Das programm soll bei programmstart die textdatei auslesen und wenn das wort gefunden ist weiter arbeiten, falls nicht dann schließen...
nun habe ich das wie immer, wofür ich bekannt bin haufen umwege gemacht...
beim form create schreibe ich hin "timer1.enabled:=true" weil ich dort direkt die Befehle nicht schreiben kann weil es zu Fehlern kommt ka wieso...
der Timer wartet 3sek und dann ladet die Page mit webbrowser1...dann wartet bis es fertig geladen ist und macht
gettext davon in ein memo1...weil sonst es auch wieder nicht funktioniert...
dann suche ich mit pos im memo1 das wort erlaubt...falls nicht vorhanden Application.terminate...
doch es funktioniert Nicht, das programm hängt sich auf....

wie kann ich es kurz und schmerzlos machen...ambesten etwas mit indy componenten die ganz schnell text auslesen...
danke
mfg

[Luckie]

Lad die Textdate mit der Komponente IdHTTP runter und guck rein. Hilfe zu der Komponente solltest du im Forum finden.

[Larsi]

Einfach die Textdatei downlaoden und dann mit ner if abfrage fragen ob Memo1.text wo du die reingeladen hast := 'Richtig' ist!h

[n000b]

Zitat von Luckie:

Lad die Textdate mit der Komponente IdHTTP runter und guck rein. Hilfe zu der Komponente solltest du im Forum finden.

soweit ich weiß gibts da nur GET/POST damit kann man sowas nicht abrufen...kannst du es bitte zeigen?^^

Zitat:

Einfach die Textdatei downlaoden und dann mit ner if abfrage fragen ob Memo1.text wo du die reingeladen hast := 'Richtig' ist!h

womit soll ich das ambesten downloaden? du meinst richtig auf die festplatte speichern?...und dann löschen...beste möglichkeit?

danke für die schnelle Antworten/Hilfe^^

[dominikkv]

Delphi-Quellcode:

uses
  TIdHTTP;

procedure TForm1.CreateForm(Sender: TObject);
var
  MeinText: String;
begin
  with TIdHTTP.Create do
    try
      MeinText := Get('http://www.google.de/text.txt');  
    finally
      free;
    end;
  if Pos('erlaubt', MeinText) <= 0 then
    halt; // (in diesem Fall) besser als Application.terminate
end;

Kann sein dass es TIdHTTP.Create(self) heißen muss... ich habs grad aus dem Kopf geschrieben^^
Probiers aus -.-'

[n000b]

wie macht ihr das=!
Danke dir man funzt wunderbar, mit (self) =P