Ich habe einen TCPServer als HTTP server und möchte daten aus einem POST JSON Data

[joehd]

Zitat von Olli73:

Also bei mir hat das aus Post #22 geholfen.

Wenn du beides auf dem gleichen Server hostest, hast du aber immer noch unterschiedliche Ports?

Post #22 werde ich nochmal bearbieten
( ich habe mir das deutlich leichter vorgestellt, immerhin die Daten hätte ich ja schon mal nur noch die Webseite ebenfalls senden ? )

Unterschiedliche Ports : nein es wären dann ja die gleichen Ports ich kommuniziere mit dem Webserver über 8080
sollte dann eigentlich gehen . Jetzt bekomme ich den Stream aber nicht rüber

Delphi-Quellcode:

   
if Fileexists(bfilename) then
     begin // 
      memo1.Lines.Add('File gefunden nun senden ');

   if LowerCase(ExtractFileExt(afilename)) = '.html' then
      begin
        //AResponseInfo.ResponseNo := 200;
        //aresponseinfo.WriteContent;
        filestr1 := tfilestream.Create(bfilename,fmopenRead or fmsharecompat);       // Tfilestream
        memo1.Lines.Add('Size :' + inttostr(filestr1.Size));
        Aresponseinfo.ContentStream := filestr1 ; // tfilestream.Create(bfilename,fmopenRead or fmsharecompat);
        aresponseinfo.ContentLength := filestr1.Size;     // da ist was da also größer 0
        // aresponseinfo.WriteHeader;
        aresponseinfo.WriteContent;
        AResponseInfo.ContentStream.Free;
        AResponseInfo.ContentStream := nil;
       end;
    if not AResponseInfo.HeaderHasBeenWritten then
      begin
      // set error code
        AResponseInfo.ResponseNo := 404;
        aResponseInfo.ResponseText := 'Document not found';
        // write header
        AResponseInfo.WriteHeader;
      end;
    // return content
      AResponseInfo.ContentText := 'The document requested is not availabe.';
      AResponseInfo.WriteContent;
     end;