xml dosya olusturma

[argetek]

Kod: Tümünü seç

<?xml version="1.0" encoding="ISO-8859-9"?>
<MainmsgBody xmlns:sql='urn:schemas-microsoft-com:xml-sql' xmlns:updg='urn:schemas-microsoft-com:xml-updategram'>
<UserName>hasan</UserName>
<PassWord>15A5E86F-C460-454F-A229-8910BB9AD049</PassWord>
<Developer>1</Developer>
<Originator>mustafa</Originator>
<Version>xVer.2.0</Version>
<Mesgbody>TEST MESAJI</Mesgbody>
<Numbers>90533565656</Numbers>
<SDate></SDate>
<EDate></EDate>
</MainmsgBody>

şeklinde bir xml dosya olurturmam gerek arkadaslar password,user,mesgbody,number alanları bi edit nesnesinden alınıp buraya yazılacak msimsek arkadasımızın makalesine gore xml parser olusturdum ama bir turlu bu parser ile bu alana yazamadım

[t-hex]

Merhaba,

Örnek olarak verdiğiniz XML Dosyasını diskte bir yere kaydedin.

File > New >Others menüsünden XML Data Binding Wizard seçeneğini seçin.

"Schema or XML Data File" kısmında kaydettiğiniz dosyayı belirtin. Sihirbazda data türlerini olması gerektiği gibi düzenleyip kaydedin.

Projenizde XML dosyasını kullanacağınız ünitenin uses kısmına, bu oluşturduğunuz uniteyi ve ek olarakta XMLDoc, XMLIntf ünitelerini ekleyin.

Sonrası içinde örnek kod aşağıda.

Kod: Tümünü seç

var
  MainMsgBody : IXMLMainmsgBodyType;
  XMLDocument :  IXMLDocument;
begin
  MainMsgBody := NewMainmsgBody;
  MainMsgBody.UserName := 'hasan';
  MainMsgBody.PassWord := '***********************';
  MainMsgBody.Developer:=1;
  MainMsgBody.Originator := '********';
  MainMsgBody.Version:='xVer.2.0';
  MainMsgBody.Mesgbody := 'TEST MESAJI';
  MainMsgBody.Numbers:=1;
  MainMsgBody.EDate := '';
  MainMsgBody.SDate :='';
  XMLDocument := LoadXMLData(FormatXMLData(MainMsgBody.XML));
  XMLDocument.Version := '1.0';
  XMLDocument.Encoding := 'iSO-8859-9';
  XMLDocument.SaveToFile('MyXML.xml');
  XMLDocument:=nil;

Kolay gelsin