Hallo,
ich suche die Lösung auf folgendes Problem:
Ich möchte vor Start meines Programmes eine Überprüfung durchführen, ob eine *.txt- oder *.ini-Datei (mir eigentlich egal) einen bestimmten Inhalt hat. Quasi wie eine Serial, die jedes mal vor Start des Programmes vom Autor geregelt wird. Zweck hat es, wenn so das "Passwort" von mir jederzeit geändert werden kann, um das Program wirklich nur im engsten Kreis zu halten.
Vorgestellt habe ich mir das vom Prinzip her folgender Maßen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| procedure TForm1.Button1Click(Sender: TObject); var F: Textfile; str: string; begin AssignFile(f, 'http://ADDRESSE ZUM FTP-SERVER/ek.txt'); Reset(f); Readln(f, str); if AnsiSameText(str, Edit1.Text) then showmessage('stimmt überein') else showmessage('keine übereinstimmung'); Closefile(f); end; |
Lokal läuft das ganze wunderbar. Nur mit dem FTP-Sever nicht. Ich hoffe, mir ist noch zu helfen. Wenn noch Fragen offen sind, die zur Problemlösung wichtig sind, bin ich sofort da.
mfg Cryptonite
Moderiert von
Christian S.: Topic aus Dateizugriff verschoben am Di 28.08.2007 um 23:24