mmo1 save web navigate

[erdogan_ozkaya]

arkadaşlar, şu kısmın daha kıs ahalini nasıl yapabilirim ?

teşekkürler

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
        xml:='<?xml version=''1.0''?>'+
        '<mainbody>'+
        '<header>'+
        '<company>NETGSM</company>'+
        '<usercode>xxxx</usercode>'+
        '<password>xxxx</password>'+
        '<startdate>210120150101</startdate>'+
        '<stopdate>200220150101</stopdate>'+
        '</header>'+
        '</mainbody>';

        donxml:='';
        donxml:=XMLPOST('http://api.netgsm.com.tr/xmlgelenfax.asp',xml);
         // showmessage(donxml);
          mmo1.Clear;
          mmo1.Lines.Add(donxml);
           mmo1.Lines.SaveToFile('C:\GelenFaxlar.html');
        wb1.Navigate('C:\GelenFaxlar.html');
end;