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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
|
function TFiche_GAPDPI.TraitementFichier(RepF:string;NomF:string):boolean;
var
//xml
Action, ipp, NomPat, PrenomPat, NomJF, SexePat, CivPat : IXMLNode;
Adr1Pat, VillePat, CpPat, Tel1Pat : IXMLNode;
Datnaiss, VilNaiss, CpNaiss, SitFamPat : IXMLNode;
i : integer;
//WebServices
begin
// MessageDlg('Traitement fichier :'+RepF+'\'+NomF, mtInformation, [mbOK], 0);
XMLDoc.FileName := RepF+'\'+NomF;
XMLDoc.Active := true;
Action := GetNode(XmlDoc.DocumentElement,'ACTION');
ListBox_Pat.Items.Add(Action.NodeName + ' : '+ Action.text);
// ipp := GetNode(XMLDoc.DocumentElement,'VALEUR');
// ListBox_Pat.Items.Add(ipp.NodeName + ' : '+ ipp.text);
NomPat := GetNode(XmlDoc.DocumentElement,'NOMUSUEL');
ListBox_Pat.Items.Add(NomPat.NodeName + ' : '+ NomPat.text);
PrenomPat := GetNode(XmlDoc.DocumentElement,'PRENOM');
ListBox_Pat.Items.Add(PrenomPat.NodeName + ' : '+ PrenomPat.text);
NomJF := GetNode(XmlDoc.DocumentElement,'NOMNAISSANCE');
ListBox_Pat.Items.Add(NomJF.NodeName + ' : '+ NomJF.text);
SexePat := GetNode(XmlDoc.DocumentElement,'SEXE');
ListBox_Pat.Items.Add(SexePat.NodeName + ' : '+ SexePat.text);
// CivPat := GetNode(XmlDoc.DocumentElement,'VALEUR');
// ListBox_Pat.Items.Add(CivPat.NodeName + ' : '+ CivPat.text);
Adr1Pat := GetNode(XmlDoc.DocumentElement,'LIGNE');
ListBox_Pat.Items.Add(Adr1Pat.NodeName + ' : '+ Adr1Pat.text);
VillePat := GetNode(XmlDoc.DocumentElement,'VILLE');
ListBox_Pat.Items.Add(VillePat.NodeName + ' : '+ VillePat.text);
CpPat := GetNode(XmlDoc.DocumentElement,'CODEPOSTAL');
ListBox_Pat.Items.Add(CpPat.NodeName + ' : '+ CpPat.text);
Tel1Pat := GetNode(XmlDoc.DocumentElement,'TELEPHONE');
ListBox_Pat.Items.Add(Tel1Pat.NodeName + ' : '+ Tel1Pat.text);
Datnaiss := GetNode(XmlDoc.DocumentElement,'DATE');
ListBox_Pat.Items.Add(Datnaiss.NodeName + ' : '+ Datnaiss.text);
//
// VilNaiss := GetNode(XmlDoc.DocumentElement,'VILLE');
// ListBox_Pat.Items.Add(VilNaiss.NodeName + ' : '+ VilNaiss.text);
//
// CpNaiss := GetNode(XmlDoc.DocumentElement,'CODEPOSTAL');
// ListBox_Pat.Items.Add(CpNaiss.NodeName + ' : '+ CpNaiss.text);
//
// SitFamPat := GetNode(XmlDoc.DocumentElement,'VALEUR');
// ListBox_Pat.Items.Add(SitFamPat.NodeName + ' : '+ SitFamPat.text);
XMLDoc.Active := False;
////Préparation webservices... |
Partager