procedure TForm1.Button1Click(Sender: TObject);
var
Url :string;
resstring :TStringStream;
response :string;
ResponseStr : string;
SSLopen :TIdSSLIOHandlerSocket;
reqstr :TStringStream;
tempstr, tempstr2, sjc :string;
begin
try
IdHTTP1 :=TIdHTTP.Create(nil);
IdHTTP1.Request.ContentType :='application/json';
resstring := TStringStream.Create('');
reqstr := TStringStream.Create('');
SSLopen := TIdSSLIOHandlerSocket.Create(IdHTTP1);
IdHTTP1.IOHandler := SSLopen;
IdHTTP1.ReadTimeout :=50000;
// IdHTTP1.Request.Connection :='Keep-Alive';
try
Url := 'https://api.acewill.net/user/account';
sjc :=Gettimestamp; //时间戳
tempstr :='cno%3D15862536136&appid=dp0DjvD81zqwJlOzxGfPjMJ&appkey=329cad81ebabce4b1a6203a202959fb3&v=2.0&ts='+Gettimestamp+'';
tempstr2 := MD5Print(MD5String(tempstr)); //生成sig签名
tempstr:='req={"cno":"15862536136"}&appid=dp0DjvD81zqwJlOzxGfPjMJ&v=2.0&ts='+Gettimestamp+'&sig='+tempstr2+'&fmt=JSON';
//以流的方式提交参数
resstring.Position :=0;
reqstr.WriteString(tempstr);
IdHTTP1.Post(Url,reqstr,resstring);
except
on e : Exception do
begin
ShowMessage(e.Message);
end;
end;
ResponseStr := resstring.DataString;
ResponseStr := UTF8Decode(ResponseStr);
Memo1.Text := ResponseStr;
finally
IdHTTP1.Free;
resstring.Free;
reqstr.Free;
end;
end;
var
Url :string;
resstring :TStringStream;
response :string;
ResponseStr : string;
SSLopen :TIdSSLIOHandlerSocket;
reqstr :TStringStream;
tempstr, tempstr2, sjc :string;
begin
try
IdHTTP1 :=TIdHTTP.Create(nil);
IdHTTP1.Request.ContentType :='application/json';
resstring := TStringStream.Create('');
reqstr := TStringStream.Create('');
SSLopen := TIdSSLIOHandlerSocket.Create(IdHTTP1);
IdHTTP1.IOHandler := SSLopen;
IdHTTP1.ReadTimeout :=50000;
// IdHTTP1.Request.Connection :='Keep-Alive';
try
Url := 'https://api.acewill.net/user/account';
sjc :=Gettimestamp; //时间戳
tempstr :='cno%3D15862536136&appid=dp0DjvD81zqwJlOzxGfPjMJ&appkey=329cad81ebabce4b1a6203a202959fb3&v=2.0&ts='+Gettimestamp+'';
tempstr2 := MD5Print(MD5String(tempstr)); //生成sig签名
tempstr:='req={"cno":"15862536136"}&appid=dp0DjvD81zqwJlOzxGfPjMJ&v=2.0&ts='+Gettimestamp+'&sig='+tempstr2+'&fmt=JSON';
//以流的方式提交参数
resstring.Position :=0;
reqstr.WriteString(tempstr);
IdHTTP1.Post(Url,reqstr,resstring);
except
on e : Exception do
begin
ShowMessage(e.Message);
end;
end;
ResponseStr := resstring.DataString;
ResponseStr := UTF8Decode(ResponseStr);
Memo1.Text := ResponseStr;
finally
IdHTTP1.Free;
resstring.Free;
reqstr.Free;
end;
end;