So sieht die ganze Test geschichte aus :
Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var html, p :
String;
begin
p := '
E:\DELPHI\° DELPHI 2007 °\WEB SERVER TEST\test.jpg';
html := '
<Table>' +
'
<tr><td>' +
'
[b]Hallo Jezt geht los[/b]' +
'
</td></tr></table>';
// '[img]'+p+'[/img]';
If ARequestInfo.Document ='
/'
Then AResponseInfo.ContentText :=
html
Else AResponseInfo.ContentStream := tfilestream.Create(p,fmopenread);
end;
gruss
seba