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;
Delphi IdHTTP1 XMLPOST

相关推荐

评论
