[SOAP SERVER] Fournir des fichiers en réponse (.html, .js, .css)

**darkendorf** · 18/05/2011, 19h45

Bonjour,

j'avais commencé un WebService (isapi) sous delphi 2007 que j'ai intégré finalement dans une application stand alone SoapServer avec Delphi XE.

j'appelle le service depuis une page web et un objet javascript XmlHttpRequest.
en ISAPI, pas de problèmes, le serveur me renvoie mes pages et l'isapi traite mes demandes. Mais deux points noirs se présentent à moi maintenant :

1. IIS ne me distribue plus que mes pages web... un peu lourd pour des pages statiques.
2. XMLHttpRequest ne peut faire de requêtes cross-domain (par exemple localhost/monscript.js ne peut faire une demande à mon serveur soap en localhost:8080/ )

j'aimerais donc que mon service soap puisse répondre à une demande de page (localhost:8080/index.htm ou monscript.js)

est-ce seulement possible ?

j'arrive à traiter une demande de page spécifique grâces aux "Actions" du TWebModule, mais quand je renvoie mon fichier de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TWMMonService.WMMonServiceGetFileAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  fichier : TFileStream;
begin
  if(FileExists(vars.initDir+Request.PathInfo))then
  begin
    try
      fichier := TFileStream.Create(vars.initDir+Request.PathInfo, fmOpenRead or fmShareDenyWrite);
      Response.SendStream(fichier);
      Response.SendResponse;
      Handled:=True;
    finally
      FreeAndNil(fichier);
    end;
  end else
    Trace('fichier '+vars.initDir+Request.PathInfo+' inexistant');
end;

mon navigateur m'affiche bien le résultat mais avec un petit plus :

<html>
... ma page web ... <- ça c'est bon ^^
</html>
HTTP/1.1 200 OK
Connection: close
Content-Type: text/html; charset=ISO-8859-1
Content-Length: 0

<HTML><BODY><B>200 OK</B></BODY></HTML>

je n'en suis pas loin, mais les informations du SOAP me plantent mes .js ^^

je dois certainement passer par un autre objet, ou alors utiliser autre chose que Response.SendStream mais je pêche totalement...

un petit coup de pouce serait le bienvenu ^^

**ShaiLeTroll** · 19/05/2011, 11h18

Utilise plutôt du JSON !
Tu récupéreras des objets JS directement désérialisé depuis le message reçu
Le SOAP doit être utilisé par un client SOAP, développé en PHP ou Delphi par exemple, je ne connais pas d'utilisation en JS

Tu peux faire une indirection, ton application ISAPI reçoit l'URL

Sinon, c'est pas l'inverse dans le message ?
d'abord le texte concernant le protocole HTTP puis le code HTML ?
Tu dis que c'est bon, euh, je n'en suis pas si sûr

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
HTTP/1.1 200 OK
Connection: close
Content-Type: text/html; charset=ISO-8859-1
Content-Length: ????
 
<html>
... ma page web ... <- ça c'est bon ^^
</html>

utilise SetContentStream et non SendStream

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
     fichier := TFileStream.Create(vars.initDir+Request.PathInfo, fmOpenRead or fmShareDenyWrite);
      Response.SetContentStream(fichier);
      Response.SendResponse;

**darkendorf** · 19/05/2011, 15h11

héhé ^^

tu sais mettre le doigt ou ça fait mal !

j'ai retiré le SendMessage qui me renvoyait un complement 200 OK et avec Response.content l'ordre et bien respecté !

par contre le header reste en Content/type html, du coup mon css est rejeté par le navigateur...

du coup j'ai fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
procedure TWMMonService.WMMonServiceGetFileAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  fichier : TStringList;
begin
  Handled:=True;
  if(FileExists(vars.initDir+Request.PathInfo))then
  begin
    try
      case AnsiIndexStr(ExtractFileExt(Request.PathInfo), ['.html', '.htm', '.js', '.css', '.jpg', '.jpeg', '.png']) of
        0..1 :
          Response.SetCustomHeader('Content-Type', 'text/html');
        2 :
          Response.SetCustomHeader('Content-Type', 'text/javascript');
        3 :
          Response.SetCustomHeader('Content-Type', 'text/css');
        4..5 :
          Response.SetCustomHeader('Content-Type', 'image/jpeg');
        6 :
          Response.SetCustomHeader('Content-Type', 'image/x-png');
        else
          Response.SetCustomHeader('Content-Type', 'text/plain');
      end;
      fichier := TStringList.Create;
      fichier.LoadFromFile(vars.initDir+Request.PathInfo);
      Response.Content := fichier.Text;
    finally
      FreeAndNil(fichier);
    end;
  end else
    Trace('fichier '+vars.initDir+Request.PathInfo+' inexistant');
end;

Et là c'est l'explosion dans mon navigateur !! ma page s'affiche, les styles, puis les scripts qui requestionnent le serveur, remplissent la page... un bonheur total !!

Par contre maintenant il me faut me replonger dans les sessions... mon DataModule ne supporte actuellement pas d'être questionné par plusieurs personnes en même temps...

J'ouvre un nouveau sujet,

Merci !!

[SOAP SERVER] Fournir des fichiers en réponse (.html, .js, .css)

Web & réseau Delphi

Discussions similaires

Partager

Partager