procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var
Stream: TFilestream;
TheString :
String;
begin
if ARequestInfo.Document = '
/'
then
begin
try
if ARequestinfo.Username = '
Assun'
then
begin
inc(i);
Caption := ('
Bereits' + IntToStr(i) + '
Aufrufe');
AResponseInfo.ContentType := '
text/html';
Stream := TfileStream.Create('
Admin/test.htm', fmOpenRead
or fmShareDenyWrite );
AResponseInfo.ContentStream := Stream;
setlength(TheString, stream.size);
stream.
Read(TheString[1], stream.size);
end
except
Exit;
end;
end
else
if ARequestInfo.Document = '
/test.jpg'
then
begin
try
AResponseInfo.ContentType := '
image/jpeg';
Stream := TfileStream.Create('
Admin/test.jpg', fmOpenRead
or fmShareDenyWrite );
AResponseInfo.ContentStream := Stream;
except
Exit;
end;
end;