il s'agit d'une application WEB cgi de transfert de fichier

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
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
...
begin
....
      {$ifdef debug}traceweb(format('RECEPTION [%s] user[%s] pas [%s] typrep
[%s]',
        [nomfich,user_in,pas_in,typrep]));
      traceweb('---------------------request.Content---------------------------------------');
      traceweb('-LEN-'+inttostr(request.ContentLength)+'-');
      traceweb('-'+(request as TCGIRequest).Content+'-');
      traceweb('---------------------CGIRequest.Content---------------------------------------');
      traceweb('-'+(request as
TCGIRequest).ReadString(request.ContentLength)+'-');
      traceweb('---------------------readclient.Content---------------------------------------');
      lenbuf := request.ContentLength;
      setlength(buf,lenbuf);
      i := request.ReadClient(buf,lenbuf);
      traceweb('readclient len '+inttostr(i));
      traceweb('readclient len '+inttostr(i)+'  lenat '+inttostr(lenbuf));
      traceweb('-FIN ---------------------request.Content---------------------------------------');
      {$endif}
NB : traceweb est une procedure qui fait une trace dabs un fichier teste

compilé avec delphi 2007 service pack3 ==> ne marche pas

meme si ContentLength est > 0
content est toujours vide

compilé avec delphi 2007 service pack2 ==> cela marche
Content est conforme à contenlength

Question 1 : quelqu'un a t'il une info

Question 2 : comment repasser au service pack 2 (mon delphi 2007 update 2
est sur une vielle machine)

Question 3: y a t'il d'autre hypothèse que le SP2 ou SP3 pour expliquer le pb

Merci