Hi,
hatte jetzt gerade nochmal Deinen "gesamten" Source überflogen und geschaut,
wo genau den die besagte Zeile im Code steht.
Und siehe da, ich lag mit meiner Vermutung "gold richtig!,
RequestInfo zeigt ins Nirvana !!!
Warum ?!
Delphi-Quellcode:
procedure TForm1.HTTPServerCommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
procedure AuthFailed;
var
ResponseInfo: TIdHTTPResponseInfo;
begin
ResponseInfo.ContentText := '
<html><head><title>Fehler</title></head><body><h1>Fehler</h1>Sie haben keine Befugnis dieses Dokument zu sehen-</body></html>';
ResponseInfo.ResponseNo := 403;
end;
procedure AccessDenied;
var RequestInfo: TIdHTTPRequestInfo;
ResponseInfo: TIdHTTPResponseInfo;
begin
ResponseInfo.ContentText := '
<html><head><title>Error</title></head><body><h1>Access denied</h1>'#13 +
'
Sie sind nicht befugt, die Seite zu öffnen.</body></html>';
ResponseInfo.ResponseNo := 403;
end;
var
LocalDoc:
string;
ByteSent: Cardinal;
ResultFile: TFileStream;
RequestInfo: TIdHTTPRequestInfo;
ResponseInfo: TIdHTTPResponseInfo;
begin
// hier fehlt eine Zuweisung der Parameter an Deine Lokalen Variablen
RequestInfo := ARequestInfo;
ResponseInfo := AResponseInfo;
// ---- jetzt sollte die folgende Zeile gehen
idlog.Items.Add(Format( '
Befehl %s %s empfangen von %s:%d',
[RequestInfo.Command, RequestInfo.Document,
TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP,
TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort]));
// .... Rest ist nicht mehr relevant
^^ Damit sollte Dein Problem gelöst sein ^^
Allerdings hätte Dich schon die Compiler-Meldung:
[Warnung] Unit1.pas(220): Variable 'ResponseInfo' ist möglicherweise nicht initialisiert worden
[Warnung] Unit1.pas(229): Variable 'ResponseInfo' ist möglicherweise nicht initialisiert worden
[Warnung] Unit1.pas(245): Variable 'RequestInfo' ist möglicherweise nicht initialisiert worden
[Warnung] Unit1.pas(254): Variable 'ResponseInfo' ist möglicherweise nicht initialisiert worden
darauf aufmerksam gemacht haben müssen.
Was mich aber noch viel mehr beschäftigt ist die Frage warum Du überhaupt extra Variablen für "ResponseInfo" und "RequestInfo"
verwendet hast, diese bekommst Du doch wunderbar als Funktions-/Procedure Parameter mitgeliefert.
Delphi-Quellcode:
procedure TForm1.HTTPServerCommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Du hast jetzt in einer Procedure an 3 Stellen RequestInfo und ResponseInfo deklariert ....
Das geht gar nicht
Einfach komplett mit "
ARequestInfo" und "
AResponseInfo" arbeiten und die ganzen lokalen Varianten rausschmeissen.
Greetz Data
Der Horizont vieler Menschen ist ein Kreis mit Radius Null, und das nennen sie ihren Standpunkt.