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;