Le but de ce didactitiel est de vous faire découvrir pas à pas, la construction d'une application pour le web avec Delphi 5/6. Il ne sera pas question ici, de faire le tour des technologies et possibilités offertes par la dernière version de l'outil de programmation, mais simplement de vous donner la marche à suivre pour créer une application portable.

unit uMainSendMail;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp;

type
  TWM = class(TWebModule)
    procedure WMDefaultAction(Sender: TObject; Request: TWebRequest;
      Response: TWebResponse; var Handled: Boolean);
  private
    { Déclarations privées}
  public
    { Déclarations publiques}
  end;

var
  WM: TWM;

implementation
{$R *.DFM}
uses uSendMailIsapi;

procedure TWM.WMDefaultAction(Sender: TObject; Request: TWebRequest;
  Response: TWebResponse; var Handled: Boolean);
Var T : TMailISAPI;
begin
  T := TMailISAPI.Create(Request);
  Try
    if T.Send = 0  then
     Response.Content:=T.ErrorsObjectHtm
    else
     if T.NextUrl<>'' then
      Response.SendRedirect(T.NextUrl)
     else
      Response.Content:=T.ShowReport;
  finally
   T.Free;
  end;
end;

end.