.exe desde IIS

onairam · #5 27-05-2003

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!!!!