Hi !
nehmen wir an, ich habe im bin Verzeichnis meines HTTP Servers einen Ordner Namens "Admin" und darin eine
HTML mit eingebettetenm Bild (das Bild liegt auch im Admin Ordner). wenn ich dann einfach die
HTML datei so aufrufe :
Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var
Stream: TFilestream;
TheString :
String;
begin
// Caption := ARequestInfo.RemoteIP;
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;
end;
wird nur die
HTML FIle angezeigt,nicht aber das eingebettete Bild.
Wo liegt hier der Fehler ?
THX