|
el web server es el iis
y la salida esta en html
por ejemplo:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
response.Content:='<html><head><title>Programacion 2</title></head><body><h3>Hola Programacion II<br>IP : ' + request.RemoteAddr + '<br>Hostname: ' + request.RemoteHost + '</h3></body></html>'
end;
end.
Muchas Gracias Nuevamente Hector!!!!
|