Delphi Örnek Kod

uses ZlibHigh, ZLibObj, IdMultipartFormData, IdTCPClient, IdHTTP;

function Post(Url: string; sData: AnsiString = ''): string;
var
  S: string;
  ST, STC: TStringStream;
  PostData: TIdMultiPartFormDataStream;
begin
  PostData := TIdMultiPartFormDataStream.Create;
  PostData.addFormField('XML', trim(sData));
  S := Form1.IdHTTP1.Post(trim(Url), PostData);
  FreeAndNil(PostData);

  (* Gelen cevap datası eğer zip formatında gelirse *)
  if Form1.IdHTTP1.Response.ContentType = 'application/x-gzip' then
  begin
    STC := TStringStream.Create(S);
    ST := TStringStream.Create('');
    ZlibDecompressStream(STC, ST);
    ST.Position := 0;
    Result := ST.DataString;
    FreeAndNil(ST);
    FreeAndNil(STC);
  end else Result := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
var sXML: String;
begin
  sXML := '<?xml version="1.0" encoding="ISO-8859-9"?>'+
          '<KurumCELL>'+
          ' <Oturum>'+
          '   <Eposta>domain@domainadi.com</Eposta>'+
          '   <Kullanici>kullaniciadi</Kullanici>'+
          '   <Parola>sifre</Parola>'+
          '   <KulID></KulID>'+
          ' </Oturum>'+
          ' <Islem>KullaniciListe</Islem>'+
          '</KurumCELL>';
  ShowMessage(Post('http://www.kurumcell.com/XML/xml.php', sXML));
end;