+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: ایجاد xml با دلفی (/showthread.php?tid=237)
ایجاد xml با دلفی - Amin_Mansouri - 05-07-2011
برای ایجاد یک xml به طور خیلی ساده می توانید از کد زیر استفاده کنید .که به طور دلخواه برای ایجاد هر گره مقادیر خود را بین </> <> تعریف می کنید .
کد:
procedure tform1.createxml();
var
DXML:TXMLDocument;
begin
DXML:=TXMLDocument.Create(Self);
DXML.Active:=true;
DXML.XML.Text:='<?xml version="1.0" encoding="windows-1256" ?> '+
'<Ask>'+
'<systemname>'+ systemname +'</systemname>'+
' <hostname>'+ hostname+'</hostname>'+
' <Date>'+ datetostr(now)+' </Date>'+
'</Ask>';
FileName_xml:= 'options.xml';
DXML.XML.SaveToFile(ExtractFilePath(Application.ExeName)+FileName_xml);