Eine textdatei zum Browser zurück geben

[charly52]

Es klemmt immer noch!

Hier mal mein Stück Code. Es ist von einem Vortrag von
Danny Wind vom SummerCamp2021 abgeleitet.
Das Ganze ist eine WebServerApplication (stand-alone webserver)
Ich habe ein WebModule mit diversen WebModule.Actions und u.a.
folgendem Code

Delphi-Quellcode:

procedure TWebModule1.WebModule1waiGET_ReportsAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Do_GET_ReportsAction(Sender,Request, Response, Handled);
end;

procedure TWebModule1.Do_GET_ReportsAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  lRKey : string;
  fs    : TFileStream;
  i     : Integer;
  s     : String;

begin
  lRKey:= Get_Param(Sender, Request);
  if (lRKey.IsEmpty) then //No Report-no param. as URL Params nor URL Segment for GET request
  begin
    Handled:= False;      //do default handler
  end
  else
  begin //param gefunden
        //https://wiki.selfhtml.org/wiki/MIME-Type
    Response.ContentType := 'text/plain; charset=' + TEncoding.UTF8.MIMEName;
    if TMonitor.Enter(gLock, 500) then {al short lock was possible}
    begin
      try //try to return the selected Report
        s:= 'meinetextdatei';
        fs:= TFileStream.Create(s, fmOpenRead);
        i:= fs.Size;
        Response.ContentLength := fs.Size;
        Response.SendStream(fs);
        Response.SendResponse;
      finally
        TMonitor.Exit(gLock);
      end;
    end;

//    if (lValue.IsEmpty) then  {no Data found}
//    begin
//      //{"error":"Item not found"}
//      Response.Content := '{"error":"Item not found"}';
//    end
//    else
//    begin
//      Response.Content := lValue;
//    end;
    Handled := True;
  end;
end; //of Do_GET_ReportsAction()

mit dem code von Delphi.Narium bekomme ich jetzt im Debugger die Fehlermeldung

Zitat:

Project xyzAlone.exe raised exception class EIdSocketError with message
"Socket-Fehler # 10054 Die Verbindung wurde von Peer zurückgesetzt"

und ohne Debugger gibt es nur nen Alarmton und (no response).
Jeweils aufgerufen mit dem Rest Debugger mit folgender URL http://localhost:8080/Reports/51

Ich hoffe jetzt auf ne richtig gute Idee! Danke

Charly

[KodeZwerg]

Zitat von charly52:

Zitat:

"Socket-Fehler # 10054 Die Verbindung wurde von Peer zurückgesetzt"

Ich hoffe jetzt auf ne richtig gute Idee! Danke

Hallo charly!

Ich würde mal WireShark ankurbeln und mir die Verbindung die scheitert angucken um zu erfahren woran es liegt.

[DeddyH]

Und müsste der FileStream nicht auch wieder freigegeben werden?

[charly52]

Ergänzung:

Habe in der Doku gefunden, daß die Reihenfolge anders sein muss als
ich von Delphi.Narium übernommen habe:

Delphi-Quellcode:

  Response.ContentLength := fs.Size;  1.
  Response.SendStream(fs);            3.  <-------  muss man 
  Response.SendResponse;              2.  <-------  vertauschen.

Dann bekomme ich im Browser schon mal ein 200 OK.

Aber was muss ich machen, um den Dateiinhalt im Browser auch angezeigt zu bekommen.

Und gibt es zu diesen Themen nicht irgendwas generelles zu lesen oder als Video?

Charly

[mytbo]

Zitat von charly52:

Und gibt es zu diesen Themen nicht irgendwas generelles zu lesen oder als Video?

Meine Artikel Mustache Editor mit integriertem HTTP-Server zum Anzeigen von HTML Seiten und Einführung in Interface-based Services - Server und Client wären vielleicht ein Anfang.

Bis bald...
Thomas

[charly52]

Zitat von mytbo:

Meine Artikel Mustache Editor mit integriertem HTTP-Server zum Anzeigen von HTML Seiten und Einführung in Interface-based Services - Server und Client wären vielleicht ein Anfang.

Danke, aber das geht ja wohl nur mit der mORMot, Aber ich suche Info wie es mit den Delphi Bormitteln geht.

Scheint irgendwie rar zu sein. Habe die ganzen Delphi Beispiele nach "SendStream" durchsucht und finde gerade mal ein Projekt PhotoWall.groupproj. Aber da sieht es wieder ganz anders aus.
Und SendResponse gibt genau 0 mal.


Charly

[Delphi.Narium]

Zitat:

Aber was muss ich machen, um den Dateiinhalt im Browser auch angezeigt zu bekommen.

Einen Mimetypen liefern, den der Browser standardmäßig anzeigen kann.

Das dürfte in der Regel HTML sein.

Was genau funktioniert jetzt nicht, was genau passiert? Wie verhält sich der Browser?

HTTP-Code 200 heißt erstmal nur, dass die Anfrage ok war. Das gilt auch für Bilder, MP3, MP4, Zip, Exe, PDF, ..., sofern die Anfrage erfolgreich war und der Browser (der Client) vom Webserver eine Antwort erhält. Das heißt aber nicht, dass der Browser mit den gelieferten Daten irgendwas anfangen kann. HTML wird in der Regel angezeigt.

Je nach Konfiguration wird bei den Dateitypen, mit denen der Browser von Haus aus nichts anfangen kann, ein Dialog angezeigt, in dem man auswählen kann, mit welcher Software die Anzeige erfolgen soll. Alternativ kann man auswählen, dass die Datei gespeichert wird. Hier wir regelmäßg das Defaultverzeichnis bzw. das von den Anwendern konfigurierte Downloadverzeichnis genommen.

Und wenn man in dem Auswahldialog einmal angehakt hat, dass die getroffene Auswahl für den entsprechnden Dateityp gespeichert werden soll, so werden in Zukunft alle Dateien vom entsprechenden Dateityp mit der konfigurierten Software geöffnet bzw. immer gespeichert.

Auf Serverseite hast Du da absolut keinen Einfluß drauf.

[Redeemer]

Wenn der Quelltext so ist, wie oben geschrieben, ist der MIME-Typ drin. Der Browser kann plain/text.
Was macht der Browser denn? Runterladen? Leere Seite?

[charly52]

Zitat von Delphi.Narium:

Einen Mimetypen liefern, den der Browser standardmäßig anzeigen kann.

Da mach ich folgendes:
Response.ContentType:= 'text/plain; charset=utf-8';

Zitat von Delphi.Narium:

Was genau funktioniert jetzt nicht, was genau passiert? Wie verhält sich der Browser?

Wenn ich den Server anfrage bekomme ich im Browser nur die Anzeige 200 OK
Wie kann ich feststellen, ob der Server was geschickt hat?

Ich bin nämlich nicht sicher ob meine Serverseite überhaupt korrekt ist und was abschickt.
Code siehe Antwort #6

Und eine weitere Frage:
Kann ich überhaupt eine Textdatei im Server so verschicken, daß sie im Browser direkt angezeigt wird?
Ich habe da echt keinen Plan. Ist alles totales Neuland.

Ein Link zu einem Beispiel oder nem Tutorial wäre toll, habe bisher nicht gefunden, was mir geholfen hat.
Danke

Charly
Danke für