TWebRepose.Content avec Delphi update 3
il s'agit d'une application WEB cgi de transfert de fichier
Code:
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
