Le but de ce didactitiel est de vous faire découvrir pas à pas, la construction d'une DLL ISAPI avec Delphi 5/6/7. 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 DLL ISAPI..
| Action Sans producteur (producer) de page |
|
Vous pouvez également coder des actions qui n'utilisent pas de
producteur. Pour illustrer le principe, nous allons créer une
nouvelle action qui aura pour but d'afficher une image en guise
de Logo du service.
Clic droit dans le WebModule, Editeur d'action
|
|
Nous appelons cette action GetLogo et nous laissons la
propriété
Default := False
Double clic sur l'événement OnAction et voici le code
de l'action qui affiche une image, sans Producteur.
|
|
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
Jpg : TJpegImage;
P : TMemoryStream;
Begin
Jpg := TJpegImage.Create;
Try
// Charge l'image
Jpg.LoadFromFile('c:\inetpub\wwwroot\lesite\images\logo.jpg');
P := TMemoryStream.Create;
// Place l'image dans un stream
Jpg.SaveToStream(P);
P.Position := 0;
Response.ContentType := 'image/jpeg';
// Affecte le stream à la réponse renvoyé au navigateur
Response.ContentStream := P;
Response.SendResponse;
// On ne libère pas le stream, qui sera libéré par Response
Finally
Jpg.Free;
end;
End;
|
|
Tutoriels Suite
|
