unit1.pas

能做http请求进行同步及异步返回请示页的参数

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Comobj,Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

Function XMLHTTPSTR:String;
var
result1,url:string;
xmlHttp:Olevariant;
responseText:Widestring;
begin
With Form1 do
Begin
if (Length(edit2.Text)>0) then
  begin
  xmlHttp:=CreateOleObject('MSXML2.XMLHTTP');
  xmlHttp.open('post',edit2.Text,false);
  xmlHttp.send;
   //result1:=  WideCharToString(PWideChar(responseText));
   //showmessage(xmlHttp.responseText);
  Result:=xmlHttp.responseText;
  //Result := WideCharToString(PWideChar(xmlHttp.responseText)) ;
  //Memo1.Lines.Add(xmlHttp.responseText);

  end
else
  showmessage('填写网址');
  end

end;
procedure TForm1.Button2Click(Sender: TObject);
var url_value,us_name,us_phone,us_sms_content:string;
total_len,i,start_i,end_i:integer;
begin
url_value:=XMLHTTPSTR;
//showmessage(inttostr(length(url_value)));

    for i :=1 to 3 do
    begin
      //查询到|的位置
      start_i:=pos('|',url_value);
      total_len := length(url_value);
      url_value := copy(url_value,start_i+1,total_len-start_i)  ;
      end_i:=pos('|',url_value);

      if i = 1 then us_name        := (copy(url_value,1,end_i-1)) ;
      if i = 2 then us_phone       := copy(url_value,1,end_i-1) ;
      if i = 3 then us_sms_content       := copy(url_value,1,end_i-1) ;

    end ;

      
    

    Memo1.Clear;
    //Memo1.Lines.Add(url_value);
    Memo1.Lines.Add(us_name);
    Memo1.Lines.Add(us_phone);
    Memo1.Lines.Add(us_sms_content);



end;

procedure TForm1.Button3Click(Sender: TObject);
var str,str1,str2,str3,str4,str5,user_name,us_phone,sms_content:string;
i,j:integer;
begin 
str:='|caoweijian|13798361236|测试内容|' ;
i:=length(str);
showmessage(inttostr(i));
j:=pos('|',str);
showmessage(inttostr(j));
str1:= copy(str ,j+1,i-j);
j:=pos('|',str1);
showmessage(copy(str1 ,1,j-1));


//copy(s_service_id ,0,8)


//if j<>0 then //得到的j是字符串中出现的位置，是整型
//showmessage('||'+'在第'+inttostr(j)+'个位置');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var result1,url:string;
xmlHttp:Olevariant;
responseText:Widestring;
var url_value,us_name,us_phone,us_sms_content:string;
total_len,i,start_i,end_i,j:integer;
begin
     //Timer1.Enabled := false;
    //:=j+1;
    //showmessage(inttostr(j));
    if (Length(edit2.Text)>0) then
      begin
        xmlHttp:=CreateOleObject('MSXML2.XMLHTTP');
        xmlHttp.open('post',edit2.Text,false);
        xmlHttp.send;

        url_value:=xmlHttp.responseText;
       // xmlHttp := nothing;
       // xmlHttp.free;
      end ;

      //showmessage(url_value);

      // showmessage(inttostr(pos('|0|',url_value)));


    if pos('|0|',url_value) = 0 then
    begin
       for i :=1 to 3 do
        begin
          //查询到|的位置
          start_i:=pos('|',url_value);
          total_len := length(url_value);
          url_value := copy(url_value,start_i+1,total_len-start_i)  ;
          end_i:=pos('|',url_value);

          //showmessage(url_value) ;

          if i = 1 then us_name              := copy(url_value,1,end_i-1) ;
          if i = 2 then us_phone             := copy(url_value,1,end_i-1) ;
          if i = 3 then us_sms_content       := copy(url_value,1,end_i-1) ;

          //Memo1.Lines.Add(us_name);
          //Memo1.Lines.Add(us_phone);
          //Memo1.Lines.Add(us_sms_content);
          // showmessage('test');
        end ;
          //开始发送短信
          showmessage(us_name);
          showmessage(us_phone);
          showmessage(us_sms_content);
     end



    //memo1.Clear;

end  ;

end.