Servus!
Ich habe ein sehr merkwürdiges Phänomen entdeckt und ich komme einfach nicht dahinter, warum das so ist. Die Geschichte ist allerdings auf einem zweiten Rechner reproduzierbar, an Zufälle glaube ich da nicht mehr.
Worum es geht:
Ich habe mir ein
NonVCL-Programm geschrieben, das per HTTP ein PHP-Skript aufruft. Dieses Skript gibt die aktuelle Remote-
IP zurück, kann eine übergebene
IP in eine Textdatei speichern und diese später wieder ausgeben. Die "Steuerung" basiert hierbei auf HTTP-GET-Strings.
Das Problem:
Der ganze Krempel funktioniert wunderbar, solange die Verbindung über das Internet aufgebaut wird. Versuche ich das ganze lokal nachzustellen, so hängt mir die Funktion
InternetReadFile immer eine 0 ans Ende der eingelesenen Daten. Zur Verdeutlichung: Es ist eine 0 als String und nicht etwa ein #0-Zeichen.
Der Code:
Zunächst einmal die Funktion LoadURL (diese habe ich im Forum gefunden und hatte bisher noch nie Probleme damit):
Delphi-Quellcode:
Uses Windows, WinInet;
function LoadURL(
URL:
String):
String;
var
IOpen, IURL: HINTERNET;
Read: Cardinal;
Msg:
array[0..4095]
of Char;
begin
Result := '
';
try
IOpen := InternetOpen(
'
Mozilla 3.0 (compatible)',
INTERNET_OPEN_TYPE_PRECONFIG, '
', '
',
INTERNET_FLAG_NEED_FILE
);
if IOpen <>
nil then
try
IURL := InternetOpenUrl(IOpen, PAnsiChar(
URL),
nil, 0,
INTERNET_FLAG_NO_UI, 0);
if IURL <>
nil then
try
repeat
FillChar(Msg, SizeOf(Msg), 0);
if InternetReadFile(IURL, @Msg[0], Pred(SizeOf(Msg)),
Read)
then
Result := Result + Msg
else
Break;
until Read = 0;
finally
InternetCloseHandle(IURL);
end;
finally
InternetCloseHandle(IOpen);
end;
except
end;
end;
Nochmal zur Verdeutlichung: Fehler im PHP-Skript kann man ausschließen. Übers Internet funktioniert alles richtig, und wenn ich das Skript lokal über den Browser öffne, läuft auch alles einwandfrei. Lese ich hingegen mit meinem Delphi-Programm, wird beim
lokalen Betrieb die 0 angehängt, im Internet aber nicht.
Meine Frage(n) dazu: Woran liegt es, wie kann ich es umgehen/verhindern, wo ist mein (denk-)Fehler?
Zum besseren Verständnis noch der Projektcode und das PHP-Skript komplett als Anhang.
Hinweise:- Das PHP-Skript benötigt Schreibzugriff auf eine ip.txt im gleichen Verzeichnis.
- Bei der Ausgabe steht jeweils vor der IP oder einer Meldung ein dreistelliger Code, dieser gibt an, ob der Befehl geklappt hat und ist eindeutig beabsichtigt.
- Die INI-Datei zum Programm ist gerade auf lokalen Betrieb eingestellt. Zum Ausprobieren übers Internet bitte das Semikolon in die richtige Zeile verschieben bzw zum lokal testen die URL anpassen.
Zum Online-Testen liegt dasselbe Skript auch lauffähig unter
http://zusitoolset.berlios.de/ip/ip.php (
IP Anzeigen |
IP 0.0.0.0 setzen |
IP aus Datei lesen)