Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Frage erledigt, was AResponseInfo ist?
Ich habe einen idHTTPServer.
Hier die Codes, wo ich etwas zur Ausgabe hinzufüge:
Delphi-Quellcode:
ausgabe := '
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">'+#13#10+
'
<html>'+#13#10+
'
<head>'+#13#10+
'
<title>Webinterface von '+ComputerName+'
</title>'+#13#10+
'
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">'+#13#10+
'
</head>'+#13#10+
'
<body>'+#13#10+
'
<table align="center">'+#13#10+
'
<tr>'+#13#10+
'
<td valign="top" align="center" style="border:1px solid #000000;width:200px">'+#13#10+
'
[url="http://'+GetLocalIP+'
:'+inttostr(IdHTTPServer1.DefaultPort)+'
/"]Startseite[/url]
'+#13#10+
'
[url="http://'+GetLocalIP+'
:'+inttostr(IdHTTPServer1.DefaultPort)+'
/screenshots/"]Screenshots[/url]
'+#13#10+
'
[url="http://'+GetLocalIP+'
:'+inttostr(IdHTTPServer1.DefaultPort)+'
/command/"]Command[/url]
'+#13#10+
'
[url="http://'+GetLocalIP+'
:'+inttostr(IdHTTPServer1.DefaultPort)+'
/verzeichnis/"]Verzeichnis Browser[/url]
'+#13#10+
'
</td>'+#13#10+
'
<td valign="top" align="center" style="border:1px solid #000000;width:600px">';
ausgabe := ausgabe+'
[img]c:\Programme\screen.jpg[/img]';
ausgabe := ausgabe+'
</td>'+#13#10+
'
</tr>'+#13#10+
'
</table>'+#13#10+
'
</body>'+#13#10+
'
</html>'+ARequestInfo.Document;
AResponseInfo.ContentText := ausgabe;
Der fertige Quellcode bei der Ausgabe:
Code:
<!DOCTYPE
HTML PUBLIC "-//
W3C//DTD
HTML 4.01//EN">
<
html>
<head>
<title>Webinterface von ALDI</title>
<meta http-equiv="content-type" content="text/
html; charset=iso-8859-1">
</head>
<body>
<table align="center">
<tr>
<td valign="top" align="center" style="border:1px solid #000000;width:200px">
[
url="http://192.168.178.20:10/"]Startseite[/
url]
[
url="http://192.168.178.20:10/screenshots/"]Screenshots[/
url]
[
url="http://192.168.178.20:10/command/"]Command[/
url]
[
url="http://192.168.178.20:10/verzeichnis/"]Verzeichnis Browser[/
url]
</td>
<td valign="top" align="center" style="border:1px solid #000000;width:600px">[img]c:\Programme\screen.jpg[/img]</td>
</tr>
</table>
</body>
</
html>
Habe es im Firefox getestet. Im Internet Explorer wird die Seite gar nicht geladen (Server nicht gefunden) und Opera habe ich nicht installiert.