上面的参数中,appid 和 sign中的appsecret和macno是设备的常量值,要问设备服务商给.
上面的接口要分别设置header头和请求参数.而POST提交的地址是:请求地址(图1打码部分)+接口的请求路径(
/api/external/record/getStock
).我以TNetHTTPClient控件为例来配置这个接口.
第一部从服务商那里获得appid 和appsecret后,写出sign的计算函数(sign string 签名： md5(appid+timestamp+appsecret))
IdHashMessageDigest;
function
Calcsign(appid, timestamp, appsecret:
string
):
string
;
//
MD5加密
md5: TIdHashMessageDigest5;
begin
md5 :
= TIdHashMessageDigest5.
Create
;
//
这里一定要转成小写
Result := lowercase(md5.HashstringAsHex(appid + timestamp +
appsecret));
finally
md5.Free;
end
;
end
;
然后是配置接口
procedure TForm1.Button1Click(Sender: TObject);
HttpClient: TNetHTTPClient;
Response: IHTTPResponse;
appid, timestamp, sign, url: string;
postData: TStringList;
begin
appid := '99999'; //服务商会提供
timestamp := IntToStr(DateTimeToUnix(Now, false));
sign := Calcsign(appid, timestamp, 'XXXXX'); //MD5加密.其中第三个参数服务商会提供
url := '接口的提交地址'; //这里的地址被我改掉了
HttpClient := TNetHTTPClient.Create(nil);
// header参数设置
HttpClient.CustomHeaders['appid']:= appid;
HttpClient.CustomHeaders['timestamp']:= timestamp;
HttpClient.CustomHeaders['sign']:= sign;
Httpclient.ContentType := 'application/x-www-form-urlencoded;';
// POST参数
postData := TStringList.Create;
postData.AddPair('macno', 'xxxxx');//其中第二个参数服务商会提供
postData.AddPair('goods_code', '004.202'); //要查询库存的编码.后面有跟供应商反馈需要查全部库存,所以后来第二参数就不填了,直接返回了所有物料的库存
{$IFDEF MSWINDOWS} // 检查操作系统版本为 Windows 7 (DELPHI WIn7下使用 NetHttpClient 请求HTPPS 网站 - 一曲轻扬 - 博客园 (cnblogs.com))
if (Win32MajorVersion = 6) and (Win32MinorVersion = 1) then
HttpClient.SecureProtocols := [THTTPSecureProtocol.TLS12];
{$ENDIF}
try
Response := HttpClient.Post(url, postData);
Memo1.Lines.Text := Response.ContentAsString; //把返回的数据体现出来,你也可以保存成文件.
//接下来你可能需要把数据洗一下才能使用,因为它返回的是json的格式
finally
HttpClient.Free;
postData.Free;
end;
end;
//返回的数据
{"code":1,"msg":"success","time":"1700637003","data":[{"machine_name":"xx智能刀具柜","machine_number":1,"data":[{"goods_code":"004.202","goods_name":"004.202\/涂层燕尾刀D1.0*A90*C5*D4*2F*50L\/支","stock_number":"0"}]}]}
