XMLComponent v4 et Windows2003 [Résolu]

[Jeweller]

Bonjour,
je souhaite faire fonctionner une vielle appli XMLComponents (version 4 ou 5 je sais plus excatement) sous windows2003. Lorsque je fais un PING (ou autre chose) l'appli renvoie une page xml vide et dans les logs on trouve l'erreur:

TXMLApplication.Initialize
TXMLApplication.FirstInitFromConfigFile
TXMLDocument.LoadXMLFile
Error -2146697211 on line 0, char 0 in "\\?\C:\chemin_correct\nom_appli.xml"

Le système ne trouve pas la ressource spécifiée

Pourtant toutes les configs et tous les droits semblent corrects. Le fichier existe bien et est correct apparement.
Qqn aurait une idée pour me mettre sur la piste ?

Michael

[RDM]

oui, c'est un particluarité de Windows 2003 aui nécessité un fix dans le framework.
le chemin commence par \\?\ a partir du GetModuleFileName et du coup msxml n'arrive pas à le traiter (et c'est bien le seul...)
du coup dans XMLUtils.pas fonction GetAppFileName (là ou il y a GetModulefileName) le code actuel est:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function GetAppFileName: XMLString;
const
  SQMARK = '\\?\';
  SUNC = '?\UNC\';
var
  Index: Integer;
  SResult: string;
begin
  if AppFileName <> '' then
  begin
    Result := AppFileName;
    Exit;
  end;
  SetLength(SResult, MAX_PATH);
  SetLength(SResult, GetModuleFileName(hInstance, PChar(SResult), MAX_PATH));
  Index := Pos(SUNC, SResult);
  if Index > 0 then
    Delete(SResult, Index, Length(SUNC));
  if Pos(SQMARK, SResult) = 1 then
    Delete(SResult, 1, Length(SQMARK));
  Result := SResult;
  AppFileName := Result;
end;

[Jeweller]

Ce fix est à ajouter jusqu'à quelle version du framework (6, 7 , 8 ?)?
En tout cas merci, je vais essayer ca!

Au fait, Bonne XMLRannée! ;-)