xml oluşturma

[adnansirca]

Arkadaşlar uyap sistemi için şimdiye kadar memo yardımıyla xml oluşturmaya çalışıyordum.
Fakat uyum sorunu yaşıyorum.
Bakanlığın adresinden indirdiğim dtd dosyasını xml data binding ile oluşturdum.
exchange.pas dosyası ektedir.
viewtopic.php?t=7723 linkindeki açaıklama doğrultusunda aşağıdaki kodlar ile xml dosyayı oluşturmaya çalışıyorum ancak access violation hatası alıyorum.

Kod: Tümünü seç

var
Uyap : IXMLExchangeDataType;
DosyaUst : IXMLDosyalarType;
Dosya : IXMLDosyaType;
XMLDocument :  IXMLDocument;
i:Integer;
Begin
Uyap := NewexchangeData;
for i := 0 to 50 do
 Begin
  With Uyap do begin
  With DosyaUst[i] Do Begin
    With Dosya Do
    Begin
    id := '1';
    DosyaTipi :='';
    DosyaTuru := '';
    TakipTuru := '';
    TakipYolu := '';
    TakipSekli := '';
    AlacaklininTalepEttigiHak := '';
    BK84MaddeUygulansin := '';
    KKDFUygulansin := '';
    Aciklama48e9 := '';
    DosyaBelirleyicisi :='';
    End;
  End;

 end;

End;

  XMLDocument := LoadXMLData(FormatXMLData(DosyaUst.XML));
  XMLDocument.Version := '1.0';
  XMLDocument.Encoding := '';
 
  if savedialog1.Execute then
     XMLDocument.SaveToFile(SaveDialog1.FileName+'.xml');
     XMLDocument:=nil;
end;

Yanlışlığı nerede yapıyorum. Ya da nasıl bir düzenleme yapmak gerekir.
Xml oluşturmayı bilen arkadaşların bakmasını rica edecem.
İyi çalışmalar.

[adnansirca]

Arkadaşlar aşağıdaki şekilde dosyayı oluşturabiliyorum ancak bu sefer de gerekli elemanlardan <exchangeData> <exchangeHeader versiyon="1.1" /> ve </dosya> eksik oluyor.

Kod: Tümünü seç

procedure TIcra_Main_Frm.cxButton1Click(Sender: TObject);
 var
  Data : IXMLExchangeDataType;
  Dosyalar : IXMLDosyalarType;
  Dosya : IXMLDosyaType;
  Header : IXMLExchangeHeaderType;
  XMLDocument :  IXMLDocument;
  i:Integer;
 Begin

  Dosyalar := NewexchangeData.Dosyalar;
  With DSetIcra Do
   Begin
     Close;
     open;
     Active := True;
   End;
   for i := 0 to DSetIcra.RecordCount-1 do
     Begin

       With Dosyalar.Add Do Begin

        id := DSetIcra.FieldByName('ID').AsString;
        DosyaTipi :='1';
        DosyaTuru := '';
        TakipTuru := '';
        TakipYolu := '';
        TakipSekli := '';
        AlacaklininTalepEttigiHak := '';
        BK84MaddeUygulansin := '';
        KKDFUygulansin := '';
        Aciklama48e9 := '';
        DosyaBelirleyicisi :='';
       End;
      DSetIcra.Next;
     End;
    
      XMLDocument := LoadXMLData(FormatXMLData(Dosyalar.XML));
      XMLDocument.Version := '1.0';
      XMLDocument.Encoding := 'UTF-8';
      
     if savedialog1.Execute then
   XMLDocument.SaveToFile(SaveDialog1.FileName+'.xml');
  XMLDocument:=nil;
end;

Bana bu konuda fikir vermenizi rica edecem.
İyi çalışmalar.

[dangerous]

Arkadaşlar uyap sistemi için şimdiye kadar memo yardımıyla xml oluşturmaya çalışıyordum.

Merhaba,

Bu konuda bir gelişim sağladınız mı acaba? Ben de UYAP'ın açabileceği şekilde XML dosyalarını visual basic ile oluşturmaya çalışıyorum. Yardımcı olabilir misiniz?