Hallo Leute,
ich wollte euch mal Fragen, wie man einen PHP-Code in einen
Indy HTTP-Server hochläd.
Um einen HTTP-Code habe ich so eine Anweisung benutzt.
Delphi-Quellcode:
Var
Stream: TFilestream;
TheString :
String;
begin
if ARequestInfo.Document = '
/'
then begin
AResponseInfo.ContentType := '
text/html';
IF fileexists('
index.html') = true
then ARequestInfo.Document := '
index.html';
Stream := TfileStream.Create('
Login/index.html', fmOpenRead
or fmShareDenyWrite );
AResponseInfo.ContentStream := Stream;
setlength(TheString, stream.size);
stream.
Read(TheString[1], stream.size);
end;
Und wie Funktioniert dieses bei einen PHP-Code?
„AResponseInfo.ContentType := 'php';“???