delphi IdHTTP1 XMLPOST
function XMLPOST(url, postdata: String): String;
var
GonderilecekVeri: TStrings;
DonecekSonuc: TStringStream;
XmlString, aa: string;
IdHTTP1: TIdHTTP;
begin
try
try
try
GonderilecekVeri := TStringList.Create;
GonderilecekVeri.Text := postdata;
XmlString := '';
DonecekSonuc := TStringStream.Create('');
IdHTTP1 := TIdHTTP.Create(nil);
IdHTTP1.HTTPOptions := [];
IdHTTP1.ReadTimeout := 30000;
IdHTTP1.Disconnect;
// Bu kodları eklediğimde de durum aynı
{
IdHTTP1.Request.ContentType := 'text/xml';
IdHTTP1.Request.AcceptEncoding := 'iso-8859-9';
IdHTTP1.Request.ContentEncoding := 'iso-8859-9';
IdHTTP1.Request.AcceptLanguage:='tr';
IdHTTP1.Request.ContentLanguage:='tr';
IdHTTP1.Request.AcceptCharSet:='iso-8859-9';
IdHTTP1.Request.CharSet:='iso-8859-9';
}
IdHTTP1.Post(url, GonderilecekVeri, DonecekSonuc);
IdHTTP1.Disconnect;
XmlString := DonecekSonuc.DataString;
result := XmlString;
except
on e: exception do
begin
// mesajpost('logyaz','xmlpost hata '+e.Message);
end;
end;
finally
begin
DonecekSonuc.Free;
GonderilecekVeri.Free;
IdHTTP1.Disconnect;
FreeAndNil(IdHTTP1);
end;
end;
except
end;
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.066119909286499 seconds