Autor Beitrag
Hack Gott
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 409

Windows Vista
Delphi 2005 Personal, Delphi 7
BeitragVerfasst: Di 03.04.07 23:05 
Im Internet hat die Arztpraxis [url]www.proktologie-karlsruhe.de[/url] ein Online Formular um sich für einen Termin eintrage zu lassen. Bis jetzt wird für jeden Eintrag eine Mail gesendet. Aus Zeitgründen soll ich jetzt dazu ein Programm schreiben das diese Einträge vom Server holt und direkt am PC anzeigt, sobald neue verfügbar sind.
Dazu will ich jetzt die Terminwünsche in einer Datei speichern, und zwar in folgendem Format:
Anrede|Krankenversicherung|Vorname|Nachname|E-Mail|Telefon|Kontakt per|erster Besuch|Gewünschter Zeitpunkt

Ok, klappt wunderbar. Jetzt soll diese Datei von meinem Programm runtergeladen werden und dann ausgelesen. Außerdem soll dieses auch die Einträge löschen können. Das mache ich dadurch dass ich eine PHP Datei aufrufe die dann den jeweiligen Eintrag löscht, ebenso stellt sie die Datenbank bereit, d.h. ich lade nicht db.txt sondern db.php?mode=db runter, was letztendlich auf das selbe herausläuft. Es hat aber den Vorteil, dass die Arzthelferinnen nur www....de/db.php eingeben müssen, den Rest ergänzt das Programm. Soll ein Eintrag gelöscht werden erhält die db.php natürlich andere Werte.

db.php:
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
<?php
$DB='db';
if (trim($_GET['mode'])=="db") {
readfile('db');
} else if (trim($_GET['mode'])=="delete") {
$file=file($DB);
$handle=fopen($DB, 'w');
$delIndex=trim($_GET['delid']);
foreach ($file as $i => $wert) {
if ($i==$delIndex) {} else {fwrite($handle, $file[$i]);}
}
fclose($handle);
echo 'DELETED';
}
?>


So. Das auslesen klappt ganz super. Aber des Downloaden nicht so wirklich, das erste mal macht er es gut. Aber dann lädt er die Datei nicht mehr neu runter. Selbst wenn ich die entstehende temp.log lösche. Meine Vermutung ist dass Windows des irgendwo Temporär mitspeichert und dann die Datei nicht neu runterlädt. Ein Neustart des Programms behebt das Problem.

Ich hab das Programm mal angehängt (+Quellcode). Beendet kann es aber nur über den Taskmanager unter Prozesse (ich hoffe ihr verzeiht), da es für den dauerhaften Betrieb sein soll und nicht "ausversehen" geschlossen werden soll. Wer net wenn ihr auch noch kurz was zum Design sagen könntet. Hauptsächlich geht es mir aber um den Fehler (oder andere). Gerne verbesser ich auch den Code wenns irgendwo geht. Danke.

//EDIT: Quellcode der PHP Datei angehängt
Außerdem: Zurzeit greift das Programm auf meinen Server zu, deswegen sollte braucht es Internet, also net über eine Firewall Meldung wundern.

Moderiert von user profile iconNarses: EXE-Datei wegen Virenverdacht aus dem Archiv entfernt.
Einloggen, um Attachments anzusehen!
_________________
"Je mehr Käse, desto mehr Löcher; Je mehr Löcher, desto weniger Käse. Daraus folgt: Je mehr Käse desto weniger Käse!"
alias5000
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 2145

WinXP Prof SP2, Ubuntu 9.04
C/C++(Code::Blocks, VS.NET),A51(Keil),Object Pascal(D2005PE, Turbo Delphi Explorer) C# (VS 2008 Express)
BeitragVerfasst: Di 03.04.07 23:28 
Über die SuFu mit Suche in der Entwickler-Ecke URLDOWNLOADTOFILE CACHE bin ich u.a. auf diesen Thread gekommen:
www.delphi-forum.de/...downloadtofile+cache

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN
Hack Gott Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 409

Windows Vista
Delphi 2005 Personal, Delphi 7
BeitragVerfasst: Di 03.04.07 23:32 
JUHU! :dance: :dance2: :dunce:

Danke! Saß da schon 2 Stunden dran und hab nach nem Fehler gesucht!

_________________
"Je mehr Käse, desto mehr Löcher; Je mehr Löcher, desto weniger Käse. Daraus folgt: Je mehr Käse desto weniger Käse!"
Hack Gott Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 409

Windows Vista
Delphi 2005 Personal, Delphi 7
BeitragVerfasst: Di 03.04.07 23:39 
Hmm, ich war wohl etwas voreilig. Mein D7 sagt sie kennt die Funktion net und in dem von dir angegebenen Beitrag steht nix über eine benötigtet Uses datei. Die Suche hat mir auch net weiter geholfen.

_________________
"Je mehr Käse, desto mehr Löcher; Je mehr Löcher, desto weniger Käse. Daraus folgt: Je mehr Käse desto weniger Käse!"
alias5000
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 2145

WinXP Prof SP2, Ubuntu 9.04
C/C++(Code::Blocks, VS.NET),A51(Keil),Object Pascal(D2005PE, Turbo Delphi Explorer) C# (VS 2008 Express)
BeitragVerfasst: Di 03.04.07 23:50 
ausblenden Delphi-Quelltext
1:
uses Wininet;					
;)

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN