idHTTP Server : HTML anzeigen mit Bildern

[scp]

Nach deinem Schema sähe das etwa so aus (ohne andere Fehler auszubügeln, wie z.B. Stream.Free):

Delphi-Quellcode:

if ARequestInfo.Document = '/go'  then
begin
  try
  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);
  except
  Exit;
  end;
end
else
if ARequestInfo.Document = '/go/meine.jpg'  then
begin
  try
  AResponseInfo.ContentType   := 'image/jpeg';
  Stream := TfileStream.Create('Admin/meine.jpg', fmOpenRead or fmShareDenyWrite );
  AResponseInfo.ContentStream := Stream;
  except
  Exit;
  end;
end;

Aber wie gesagt, wenn du das ganze so weiterführst wirds ganz schön chaotisch, deshalb:

Zitat von Dax:

Assun, kuck dir bitte(!) mal die Indy-HTTP-Serverdemo an...