xml post nasıl

[argetek]

arkadaslar bi siteye xml string post etmem lazım okadar denememe ragmen bir turlu beceremedim bunu bana acıklamalı olarak yada ornek kodlarla anlatacak bir arkadas varmı acaba

Kod: Tümünü seç

procedure TForm1.Button7Click(Sender: TObject);
var
s:string;
begin
s:=('c:\test1.xml');
idhttp1.Post('https://xxxx.sxxxxx.xxxx/developer/xxxxxxxx/sendgroup.asp',s,response);
end;

bu kodun neresi yanlıs acaba

[vkamadan]

Merhaba ,
MSXML kitaplığını kullanan bir sınıf var unitin adı MSXML_TLB bu uniti uses kısmına ekleyin, delphi7 ile birlikte geliyor olması lazım eğer yoksa gönderirim.

Kod: Tümünü seç

var
HTTPReq:TXMLHTTPRequest;
XMLStructe:TStringList;
DonusBilgisi:String;
begin
try
XMLStructe:=TStringList.create;
XMLStructe.LoadFromFile('c:\test1.xml');
HTTPReq:=TXMLHTTPRequest.Create(nil);
HTTPReq.open('GET','https://xxxx.sxxxxx.xxxx/developer/xxxxxxxx/sendgroup.asp',False);
HTTPReq.send(XMLStructe.Text);
DonusBilgisi := HTTPReq.responseText;
finally
XMLStructe.free;
HTTPReq.free;
end;
end;

um arım açıklayıcı olmuştur. iyi çalışmalar.

[argetek]

Merhaba ,
MSXML kitaplığını kullanan bir sınıf var unitin adı MSXML_TLB bu uniti uses kısmına ekleyin, delphi7 ile birlikte geliyor olması lazım eğer yoksa gönderirim.

Kod: Tümünü seç

var
HTTPReq:TXMLHTTPRequest;
XMLStructe:TStringList;
DonusBilgisi:String;
begin
try
XMLStructe:=TStringList.create;
XMLStructe.LoadFromFile('c:\test1.xml');
HTTPReq:=TXMLHTTPRequest.Create(nil);
HTTPReq.open('GET','https://xxxx.sxxxxx.xxxx/developer/xxxxxxxx/sendgroup.asp',False);
HTTPReq.send(XMLStructe.Text);
DonusBilgisi := HTTPReq.responseText;
finally
XMLStructe.free;
HTTPReq.free;
end;
end;

um arım açıklayıcı olmuştur. iyi çalışmalar.

sayın vkamadan kodlar gercekten acıklayıcı oldu lakin bu sozunu ettiğiniz msxml_tbl.dcu delphi7 icerisinde bulamadım eger varsa gondermenizi rica edicem

[vkamadan]

merhaba ,
http://www.polisoftonline.com/special/msxml.zip
indirebilirsiniz.
iyi çalışmalar.

[argetek]

yardımlarınız için cok teşekkur ederim bunu denicem hemen

[argetek]

sayın vkamadan yardımlarınız için çok teşekkür ederim sayenizde bir haftadır ustunde ugrastıgım bir projeyi az önce bitirdim

[vkamadan]

rica ederim,
çalışmalarınızda başarılar.

[nosedive]

Evet gerçekten XML çalışacak arkadaşlar bu post u gözden kaçırmamalılar..