delphi msxml CoXMLHTTP post数据

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,msxml,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;

    Memo2: TMemo;

    Button2: TButton;

    Button3: TButton;

    ComboBox1: TComboBox;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses   Httpapp;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  HttpReq : IXMLHTTPRequest;

  UserName, Password,URL,rsp : string;

  K:integer;

  idsp: IDispatch;

begin

  UserName:='POQ_FJYM';

  Password:='000000' ;

  UserName:='POQ_BT';

  Password:='000000' ;

  HttpReq := CoXMLHTTP.Create as IXMLHTTPRequest;   //CoXMLHTTPRequest       CoXMLHTTP

  URL := 'http://100.10.5.13:50000/XISOAPAdapter/MessageServlet?senderParty=&senderService=BC_HEC&receiverParty=&receiverService=&interface=SI_HEC_OUT_DOC&interfaceNamespace=http://hec.com';

  HttpReq.open('POST', URL, false, UserName, Password);

  HttpReq.setRequestHeader('Content-Type','text/xml');

  try

    HttpReq.Send(memo1.Text);

    rsp := (HttpReq.responseText);

    memo2.text:=rsp ;

   except

    on Ex:Exception do

    ShowMessage(Ex.Message);

   end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  HttpReq : IXMLHTTPRequest;

  S,UserName, Password,URL,rsp : string;

  K:integer;

  idsp: IDispatch;

begin

  UserName:='POD_FJYM';

  Password:='000000' ;

  HttpReq := CoXMLHTTP.Create as IXMLHTTPRequest;   //CoXMLHTTPRequest       CoXMLHTTP

  URL := 'http://100.100.102.4:8081/KlWmsWebService.asmx/Gather_Idx_Sku';

  HttpReq.open('POST', URL, false, UserName, Password);

  //S := HttpEncode(UTF8EnCode(memo2.Text));

  S := HttpEncode(UTF8EnCode(trim(memo2.Text)));

  HttpReq.setRequestHeader('Content-Type','application/x-www-form-urlencoded');

  try

    HttpReq.Send('dataJson='+S+'&jgbm=bvgvgh');

    rsp := (HttpReq.responseText);

    memo1.text:= HttpDecode(rsp);

   except

    on Ex:Exception do

    ShowMessage(Ex.Message);

   end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

  HttpReq : IXMLHTTPRequest;

  S,UserName, Password,URL,rsp : string;

  K:integer;

  idsp: IDispatch;

begin

  UserName:= 'POD_ZJYM';

  Password:= '000000';

  HttpReq := CoXMLHTTP.Create as IXMLHTTPRequest;   //CoXMLHTTPRequest       CoXMLHTTP

  URL :='http://100.100.46.204:8096/uploadCustomer';

  HttpReq.open('POST', URL, false,EmptyParam,EmptyParam);

  S := trim(memo2.Text);         //'dataJson='+HttpEncode(UTF8EnCode(

  //HttpReq.setRequestHeader('Content-Type','application/x-www-form-urlencoded');

  HttpReq.setRequestHeader('Content-Type','application/json');

  try

    HttpReq.Send(S);

    rsp := (HttpReq.responseText);

    memo1.text:= HttpDecode(rsp);

   except

    on Ex:Exception do

    ShowMessage(Ex.Message);

   end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

  HttpReq : IXMLHTTPRequest;

  S,UserName, Password,URL,rsp : string;

  K:integer;

  idsp: IDispatch;

begin

  HttpReq := CoXMLHTTP.Create as IXMLHTTPRequest;   //CoXMLHTTPRequest       CoXMLHTTP

  URL :='http://100.100.102.4:8081/KlWmsWebService.asmx/Gather_Idx_Sku';

  HttpReq.open('POST', URL, false, UserName, Password);

  S := 'dataJson='+HttpEncode(UTF8EnCode(trim(memo2.Text)));

  HttpReq.setRequestHeader('Content-Type','application/x-www-form-urlencoded');

  try

    HttpReq.Send(S);

    rsp := (HttpReq.responseText);

    memo1.text:= HttpDecode(rsp);

   except

    on Ex:Exception do

    ShowMessage(Ex.Message);

   end;

end;

end.