TCP-Server als Web-Server (Datein senden)

**DataCool**

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 ?!

zusammenfalten · markieren

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.

markieren

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

TCP-Server als Web-Server (Datein senden)

AW: TCP-Server als Web-Server (Datein senden)

Forumregeln