[D10.4 CE] IntraWeb

Version imprimable

Voir 40 message(s) de cette discussion en une page

28/12/2022, 17h53
ShaiLeTroll

une route c'est juste le terme pour désigner la combinaison URL + Verbe HTTP ( CRUD )

GET /images?name=NomImage serait la route "LoadImage"
POST /images serait la route "SaveImage" (avec un contenu et le nom en données et non en URL)

En gros, c'est juste une fonction avec paramètres, à ajouter dans le TServerMethods1, le retour serait un string (ou un TBytes si cela l'autorise)
28/12/2022, 17h54
Charly910

Actuellement dans ma page Html, j'ai par exemple :

<img src="images/ecureuil.jpeg" width="100" height="48">

c'est src que je dois modifier ?

ou est ce que je dois les charger par un loadfromfile par exemple ?

mes images sont dans le sous répertoire images de Win32/Debug

A+
Charly

Ok, et dans quoi je mets mon Get ?

(désolé d'être si nul !)

actuellement voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
  Liste : TStringList ;
begin
  Liste := TStringList.Create ;
  Liste.LoadFromFile('Index.htm')    ;
  Response.Content := Liste.text ;
  Liste.free ;
end;

28/12/2022, 17h58
ShaiLeTroll

tu peux laisser ce code HMTL comme ça

C'est dans Delphi, lors du traitement de requête que tu analyses et que tu invoques la bonne fonction.

Faudrait déjà savoir la valeur de retour autorisé, faudrait pas encodé en UTF8 une image ... je n'ai jamais fait que du SOAP ou JSON, la partie Web est assurée par Apache + Middleware, donc j'ignore ce qui est possible exactement et surtout comment.
28/12/2022, 18h00
pprem

L'exemple 4 de https://github.com/DeveloppeurPascal...ons-de-donnees est un serveur WebBroker qui retourne du texte, une base de données ou une photo selon le chemin d'appel.
28/12/2022, 18h03
pprem

Dans le cas d'utilisation de WebBroker pour de l'envoi de fichiers, on peut se contenter de le faire dans le point d'entrée par défaut en regardant l'URL appelée et en vérifiant dans l'arborescence locale si le dossier/fichier existe.
Dans le cas d'un oui, selon l'extension du fichier on envoie le bon content-type (type MIME) et ensuite le fichier concerné.

https://developer.mozilla.org/fr/doc...s/Common_types

Attention, une image est binaire, la TStringList pourrait altérer cela.

Définition du contenu de la réponse

Citation:

Utilisez la propriété ContentStream si le contenu du message de réponse peut être lu dans un flux. Par exemple, si le message de réponse doit envoyer le contenu d'un fichier, utilisez un objet System.Classes.TFileStream pour la propriété ContentStream. Comme avec la propriété Content, ContentStream peut fournir une chaîne de commandes HTML ou un autre contenu de type MIME. Si vous utilisez la propriété ContentStream, ne libérez pas le flux vous-même : L'objet réponse Web le libérera automatiquement.

Donc c'est bien plus simple, faut juste que tu analyse Request ... justement c'est via des méthodes published que tu fais tes routes, voir l'exemple de PPREM https://github.com/DeveloppeurPascal...oduleUnit1.pas
"images/ecureuil.jpeg" doit être analysé, le chemin URL doit devenir un chemin local par exemple D:\www\public\images\ecureuil.jpeg ... je te conseille de bien séparer les fichiers publics que l'on peut télécharger : Images, CSS, JS ...
Code:

1 2 3 4 5 procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.ContentType := // en fonction de l'extension de Request... cherche la propriété qui contient "images/ecureuil.jpeg" Response.ContentStream := TFileStream.Create(ImagePath + ecureuil.jpeg , fmOpenRead or fmShareDenyWrite); // Si vous utilisez la propriété ContentStream, ne libérez pas le flux vous-même : L'objet réponse Web le libérera automatiquement !!! end;

28/12/2022, 18h13
Charly910

Merci Patrick,

mais ton exemple 4 n'est qu'une application console qui démarre, arrête le serveur, ...
Pas d'image, pas de Html ?

A+
Charly
28/12/2022, 18h19
pprem

Citation:

Envoyé par Charly910

Merci Patrick,

mais ton exemple 4 n'est qu'une application console qui démarre, arrête le serveur, ...
Pas d'image, pas de Html ?

A+
Charly

c'est du web broker, tu y as accès à l'URL par défaut : http://localhost:8080

fais un clic droit sur le data module et regarde les actions, ça te donnera la liste des URL à essayer

Bonjour,

j'arrive à afficher une image dans le navigateur par :

Code:

1
2
3
4
5
6
7
8
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  // http://localhost:8080/apiGet
  Response.ContentType := 'image/jpeg';
  Response.ContentStream := tfile.OpenRead(ImagePath + 'ecureuil.jpeg');
  // L'image s'affiche depuis http://localhost:8080/
end;

et un fichier Html mais sans les images par :

Code:

1
2
3
4
5
6
7
8
9
10
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
  Liste : TStringList ;
begin
  Liste := TStringList.Create ;
  Liste.LoadFromFile('Index.htm')    ;
  Response.Content := Liste.text ;
  Liste.free ;   
end;

je vais continuer à chercher pour faire un mix des 2 !

A+
Charly

29/12/2022, 14h04
pprem

si tu as les deux tu as tout ce qu'il te faut : le HTML s'affiche dans le navigateur qui demande ensuite les images au serveur

1 pièce(s) jointe(s)

Oui, mais je n'y arrive pas !
je sais afficher une image au centre d'une page du navigateur, je sais afficher le texte d'un fichier Html mais l'image ne s'affiche pas.
Exemple :

Code:

1
2
3
4
5
6
7
8
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="fr"><head><title>Lapaille</title></head>
<body>
<p>Voici une photo : &nbsp</p>
<p><img src="ecureuil.jpeg" width="100" height="48"></p>
<p>Et un texte</p>
</body>
</html>

mais l'image :

Pièce jointe 631637
ne s'affiche pas car je ne sais pas comment l'envoyer au serveur avec mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.Content :=
  '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'+
  '<html xmlns="http://www.w3.org/1999/xhtml" lang="fr"><head><title>Lapaille</title></head>'+
  '<body>'+
  '<p>Voici une photo : &nbsp</p>'+
  '<p><img src="ecureuil.jpeg" width="100" height="48"></p>'+
  '<p>Et un texte</p>'+
  '</body>'+
  '</html>' ;
  Handled := True;
end;

Comment faire ?

A+
Charly

Faut gérer Request !
Dedans tu as l'URL, faut faire retour différent pour chaque, séparer le HTML de l'image, c'est deux requêtes successives.

et DefaultHandlerAction c'est en dernier recours, tu devrais voir dans les exemples pour avoir d'autres méthodes en remplissant Actions
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin if ContainsStr(Request.JeSaisPasLeChamp, 'Index.htm') then // evidemment faire un truc plus générique /*.htm begin Response.ContentType := 'text/html'; Response.ContentStream := tfile.OpenRead(HTMLPath + 'Index.htm'); Handled := True; end else if ContainsStr(Request.JeSaisPasLeChamp, 'ecureuil.jpeg') then // evidemment faire un truc plus générique /images/*.jpeg begin Response.ContentType := 'image/jpeg'; Response.ContentStream := tfile.OpenRead(ImagePath + 'ecureuil.jpeg'); Handled := True; end; end;
Evidemment, tu ne vas pas coder tous les fichiers ainsi, il faut bosser sur une analyse de l'URL pour calculer le fichier à renvoyer, déterminer son type (par l'extension) et son chemin selon le type aussi, faudra gérer le JS et CSS de la même façon, tout ça ce n'est que des fichiers.

30/12/2022, 11h49
Charly910

Merci, je vais regarder Request

Mais des exemples je n'en vois pas ! Ah le bon temps de l'aide de D7 avec ses exemples !

A+
Charly
30/12/2022, 11h51
ShaiLeTroll

Euh on a filé plein de lien dans le sujet, faut lire le code des liens !
En particulier ceux de PPREM, il y a beaucoup et faut tout lire, faut s'imprégner du concept Web en Delphi ... et ce n'est pas pour un débutant, faut voir que l'on refait presque soit même un équivalent de Apache.
Vouloir faire du web direct en Delphi faut connaître les principes du Web, c'est pour cela que j'ai conseillé d'utiliser un middleware PHP pour absorber par Apache toutes la partie fichier, session ... et utiliser Delphi qu'en REST.

C'est comme lorsque l'on code un server FTP via un TIdFTPServer, en Delphi, on implémente tout soi même pour le File System (on peut même utiliser une base de données à la place) ... en gros, on refait FileZilla Server.
C'est à ce niveau que ce situe le WebBroker, pour te donner une idée de la tache.
30/12/2022, 12h15
pprem

Citation:

Envoyé par ShaiLeTroll

Euh on a filé plein de lien dans le sujet, faut lire le code des liens !
En particulier ceux de PPREM.

Je dois admettre que sur ce coup là rien de ce que j'ai diffusé ne montre exactement la procédure pour utiliser WebBroker en serveur de fichiers (ce qui est la base du serveur web), je ne fais que des URL dédiées à des infos différentes.

La lecture de quelques rubriques de https://docwiki.embarcadero.com/RADS...b_Broker_Index serait peut-être utile en fait. ;-)

C'est donc dans Request.URL que l'on retrouve l'URL appelée par le client et on peut en interpréter le contenu pour savoir quel fichier retourner.
https://docwiki.embarcadero.com/RADS...ify_the_Target

Si ça vous branche on peut tester mon nouveau fond vert (qui prend tout le mur) pour un p'tit Twitch dédié à WebBroker tout à l'heure ou ce week-end.
15/02/2023, 08h11
pprem

Citation:

Envoyé par Charly910

Merci Patrick,

mais ton exemple 4 n'est qu'une application console qui démarre, arrête le serveur, ...
Pas d'image, pas de Html ?

A+
Charly

Hello

Je pense qu'avec celui-ci tu as tout ce que tu voulais :mouarf:

https://vimeo.com/797513265

Le source est disponible sur https://github.com/DeveloppeurPascal...with-WebBroker

C'est aussi l'occasion pour moi d'en faire une version francophone avec moins de soucis de langue orale. Donc RDV le jeudi 9 mars à 15 heures sur Twitch pour ceux qui veulent en voir plus et tester des choses ensemble. Le replay (si tout fonctionne correctement) sera ajouté ici aussi.

(bizarrement le player de la vidéo hébergée sur Vimeo ne s'ouvre pas ici, je remplacerai avec le replay publié sur YT par Embarcadero. Pour voir la vidéo en attendant rendez-vous sur https://vimeo.com/797513265 )
15/02/2023, 16h12
Charly910

Merci Patrick,

(j'avais abandonné !!)

j'ai eu une exception EidNotASocket - Erreur de socket n° 10038 à l'ouverture mais la console s'ouvre bien et le serveur est bien démarré. Mais qu'est ce que je fais ensuite ??

A+
Charly

PS : je vais attendre le 9 mars pour en savoir plus ...
15/02/2023, 18h09
pprem

par défaut je l'avais configuré sur le port 80, si tu as déjà un truc dessus il est possible que ce soit pas démarré, sinon le serveur répond sur http://localhost une fois qu'il est démarré
16/02/2023, 09h19
Charly910

Ok je vais modifier le port.

ça veut dire quoi "répondre " (désolé d'être si nul :oops:)

A+
Charly

Voir 40 message(s) de cette discussion en une page