unit PayIntf_Get; interface uses SysUtils, Windows, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdHashMessageDigest, IdGlobal, IdHash, HTTPApp, DateUtils, IdHTTP, superobject, DBClient, iniFiles; type {** 输入控制 符号 * 必须输入 M * 非必须输入 O * 不可输入 - * 条件必输 C * 类型 符号 长度 示例 * 字符串 S （20） S(20) 20位长度字符串 * 整数 N （10） N(10) 10位长度整数 * 数字（带小数） N (10,2) N(10,2)整数10位，小数2位数字 } //数据结构：支付 PUpPayData = ^TUpPayData; TUpPayData = record terminalNo: string; //[C]终端编号:支付的中行MIS终端编号,当支付方式是01或02时必填 orderNo: string; //[M]订单编号:大售检票系统中的订单编号 orderAmount: string; //[M]订单金额:12位，以分为单位，好比1分=000000000001 cashAmount: string; //[C]现金支付金额:当支付方式是00或02时必填,12位，以分为单位，好比1分=000000000001 misAmount: string; //[C]MIS支付金额:当支付方式是01或02时必填,12位，以分为单位，好比1分=000000000001 salesman: string; //[O]销售员 orderTime: string; //[M]下单时间:格式：yyyyMMddHHmmss payType: string; //[M]支付方式: 00现金; 01中行MIS; 02组合支付(现金+中行MIS) merchantNo: string; //[M]商户编号:财务结算中心分配的商户编号 tellerNo: string; //[M]销售员编号 orgInfo: string; //[O]预留信息:原交易要素，用于反向交易时定位原交易 orderDetail: string; //[M]订单详情 sign: string; //[M]签名数据:使用1.3通信方式中的示例进行签名 end; PDownPayData = ^TDownPayData; TDownPayData = record return_code: string; //[M]返回状态码:通信码为SUCCESS/FAIL return_desc: string; //[M]返回信息:当return_code为FAIL时返回信息为错误缘由 ,例如:签名失败,参数格式校验错误 result_code: string; //[O]业务结果:SUCCESS/FAIL orderNo: string; //[O]售检票系统订单号:当result_code是SUCCESS才有返回 merchantOrderNo: string; //[O]财务结算中心订单号:当result_code是SUCCESS才有返回 succTime: string; //[O]订单成功时间:当result_code是SUCCESS才有返回,格式:yyyyMMddHHmmss succAmount: integer; //[O]成功金额:成功金额:当result_code是SUCCESS才有返回,12位，以分为单位，好比1分=000000000001 end; //数据结构：退票 PUpRefundData = ^TUpRefundData; TUpRefundData = record orderNo: string; //[M]订单编号:深大售检票系统中的订单编号 refundAmount: integer; //[M]退款金额:12位，以分为单位，好比1分=000000000001 end; PDownRefundData = ^TDownRefundData; TDownRefundData = record return_code: string; //[M]返回状态码:通信码为SUCCESS/FAIL return_desc: string; //[M]返回信息:当return_code为FAIL时返回信息为错误缘由,例如:签名失败/参数格式校验错误 result_code: string; //[O]业务结果:SUCCESS/FAIL orderNo: string; //[O]售检票系统订单号:当result_code是SUCCESS才有返回 refundTime: string; //[O]订单退款成功时间:当result_code是SUCCESS才有返回 refundAmount: integer; //[O]退款金额:当result_code是SUCCESS才有返回,12位，以分为单位，好比1分=000000000001 end; const L: integer = 12; //金额:12位，以分为单位，好比1分=000000000001 // Key: string = 'QAZWSXEDCTGFREDW@#$%123123'; //秘钥key须要与财务结算系统保持一致，不可随意更改 // Url_Pay: string = 'http://localhost:8080/pay/ParkingAction.createOrder.do'; // Url_Refund:string = 'http://localhost:8080/pay/ParkingAction.refundOrder.do'; procedure MyWriteLog(const mStr:string); function CheckInvalid(UpPayData: TUpPayData; var sMsg: string): boolean; function CheckInvalid_Refund(UpRefundData: TUpRefundData; var sMsg: string): boolean; function ExchangeMoney(Value: string): string; function FormatData(var UpPayData: TUpPayData; var sMsg: string): boolean; function BulidParam(nType: integer; UpPayData: TUpPayData): string; function BulidParam_Refund(nType: integer; UpRefundData: TUpRefundData): string; function ret_mymd5(const sVaule: string): string; function GetSign(var UpPayData: TUpPayData; var sMsg: string): boolean; function PostIntf(UpPayData: TUpPayData; var sJson,sMsg: string): boolean; function PostIntf_Refund(UpRefundData: TUpRefundData; var sJson,sMsg: string): boolean; function GetJsonArr(Cds_BillList: TClientDataSet): string; //提交支付接口函数 function Tkt_PayIntf(UpPayData: TUpPayData; DownPayData: TDownPayData): boolean; //提交退款接口函数 function Tkt_RefundIntf(UpRefundData: TUpRefundData; DownRefundData: TDownRefundData): boolean; implementation uses unit1; function Tkt_PayIntf(UpPayData: TUpPayData; DownPayData: TDownPayData): boolean; var sMsg,sJson: string; JO: ISuperObject; begin {** * 一、检查必要条件 * 二、格式化数据 * 三、获取签名 * 四、提交接口 * 五、解析返回Json *} Result := False; try if not CheckInvalid(UpPayData, sMsg) then begin MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; if not FormatData(UpPayData, sMsg) then begin MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; if not GetSign(UpPayData, sMsg) then begin MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; if not PostIntf(UpPayData, sJson, sMsg) then //提交接口 begin MyWriteLog('返回信息：' + sJson); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; //解析返回的Json MyWriteLog('解析Json：' + sJson); try sMsg := '解析Json错误！'; JO := SO(sJson); if UpperCase(JO.O['return_code'].AsString) = 'FAIL' then begin sMsg := '返回状态码：【' + JO.O['return_code'].AsString + ':' + JO.O['return_desc'].AsString + '】'; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; if UpperCase(JO.O['result_code'].AsString) = 'FAIL' then begin sMsg := '返回业务结果：【' + JO.O['result_code'].AsString + '】'; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; //只有为SUCCESS才返回如下信息 if UpperCase(JO.O['result_code'].AsString) = 'SUCCESS' then begin DownPayData.orderNo := JO.O['result_code'].AsString; DownPayData.merchantOrderNo := JO.O['merchantOrderNo'].AsString; DownPayData.succTime := JO.O['succTime'].AsString; DownPayData.succAmount := JO.O['succAmount'].AsInteger; sMsg := '返回业务结果：【' + JO.O['result_code'].AsString + '】'; MyWriteLog(sMsg); Result := True; end; except on e:exception do begin sMsg := '解析异常：' + e.Message; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; end; except on e:exception do begin sMsg := '接口异常[售票]：' + e.Message; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; end; end; function Tkt_RefundIntf(UpRefundData: TUpRefundData; DownRefundData: TDownRefundData): boolean; var sMsg,sJson: string; JO: ISuperObject; begin try {** * 一、检查必要条件 * 二、提交接口 * 三、解析返回Json *} Result := False; if not CheckInvalid_Refund(UpRefundData, sMsg) then begin Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; MyWriteLog('提交信息：' + BulidParam_Refund(1,UpRefundData)); if not PostIntf_Refund(UpRefundData, sJson, sMsg) then //提交接口 begin MyWriteLog('返回信息：' + sJson); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; //解析返回的Json MyWriteLog('解析Json：' + sJson); try sMsg := '解析Json错误！'; JO := SO(sJson); if UpperCase(JO.O['return_code'].AsString) = 'FAIL' then begin sMsg := '返回状态码：【' + JO.O['return_code'].AsString + ':' + JO.O['return_desc'].AsString + '】'; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; if UpperCase(JO.O['result_code'].AsString) = 'FAIL' then begin sMsg := '返回业务结果：【' + JO.O['result_code'].AsString + '】'; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; //只有为SUCCESS才返回如下信息 if UpperCase(JO.O['result_code'].AsString) = 'SUCCESS' then begin DownRefundData.orderNo := JO.O['orderNo'].AsString; DownRefundData.refundTime := JO.O['refundTime'].AsString; DownRefundData.refundAmount := JO.O['refundAmount'].AsInteger; sMsg := '返回业务结果：【' + JO.O['result_code'].AsString + '】'; MyWriteLog(sMsg); Result := True; end; except on e:exception do begin sMsg := '解析异常：' + e.Message; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; end; except on e:exception do begin sMsg := '接口异常[退票]：' + e.Message; MyWriteLog(sMsg); Application.MessageBox(Pchar(sMsg), '提示', MB_OK); Exit; end; end; end; function PostIntf(UpPayData: TUpPayData; var sJson,sMsg: string): boolean; var Temp: string; IdHttp: TIdHTTP; begin sMsg := '提交接口错误！'; sJson := ''; Result := False; Temp := g_sPayUrl + '?'; Temp := Temp + BulidParam(0, UpPayData); Temp := AnsiToUtf8(Temp); MyWriteLog('提交表单：' + Temp); IdHttp := TIdHTTP.Create(nil); try try IdHttp.HTTPOptions := IdHttp.HTTPOptions + [hoKeepOrigProtocol]; IdHttp.ProtocolVersion := pv1_1; IdHttp.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*'; IdHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)'; IdHttp.Request.ContentEncoding := 'utf-8'; IdHttp.Request.ContentType := 'text/xml;Charset=UTF-8'; //正式提交接口 sJson := IdHttp.Get(Temp); sJson := UTF8Decode(sJson); sJson := StringReplace(sJson, '\', '', [rfReplaceAll]); sJson := StringReplace(sJson, '"{"', '[{"', [rfReplaceAll]); sJson := StringReplace(sJson, '"}"', '"}]', [rfReplaceAll]); if sJson = '' then begin sMsg := '错误：接口返回数据为空！'; Exit; end; Result := True; except on e: Exception do begin sMsg := '提交接口异常:' + e.Message; MyWriteLog(sMsg); Exit; end; end; finally FreeAndNil(IdHttp); end; end; function PostIntf_Refund(UpRefundData: TUpRefundData; var sJson,sMsg: string): boolean; var Temp: string; IdHttp: TIdHTTP; begin sMsg := '提交接口错误！'; sJson := ''; Result := False; Temp := g_sRefundUrl + '?'; Temp := Temp + BulidParam_Refund(0, UpRefundData); Temp := AnsiToUtf8(Temp); IdHttp := TIdHTTP.Create(nil); try try IdHttp.HTTPOptions := IdHttp.HTTPOptions + [hoKeepOrigProtocol]; IdHttp.ProtocolVersion := pv1_1; IdHttp.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*'; IdHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)'; IdHttp.Request.ContentEncoding := 'utf-8'; IdHttp.Request.ContentType := 'text/xml;Charset=UTF-8'; //正式提交接口 sJson := IdHttp.Get(Temp); sJson := UTF8Decode(sJson); sJson := StringReplace(sJson, '\', '', [rfReplaceAll]); sJson := StringReplace(sJson, '"{"', '[{"', [rfReplaceAll]); sJson := StringReplace(sJson, '"}"', '"}]', [rfReplaceAll]); if sJson = '' then begin sMsg := '错误：接口返回数据为空！'; Exit; end; Result := True; except on e: Exception do begin sMsg := '提交接口异常:' + e.Message; MyWriteLog(sMsg); Exit; end; end; finally FreeAndNil(IdHttp); end; end; function BulidParam(nType: integer; UpPayData: TUpPayData): string; var i: integer; Temp: string; Hash: THashedStringList; begin Hash := THashedStringList.Create; try Hash.Add('terminalNo=' + UpPayData.terminalNo); Hash.Add('orderNo=' + UpPayData.orderNo); Hash.Add('orderAmount=' + UpPayData.orderAmount); Hash.Add('cashAmount=' + UpPayData.cashAmount); Hash.Add('misAmount=' + UpPayData.misAmount); Hash.Add('salesman=' + UpPayData.salesman); Hash.Add('orderTime=' + UpPayData.orderTime); Hash.Add('payType=' + UpPayData.payType); Hash.Add('merchantNo=' + UpPayData.merchantNo); Hash.Add('tellerNo=' + UpPayData.tellerNo); Hash.Add('orgInfo=' + UpPayData.orgInfo); if UpPayData.sign <> '' then begin Hash.Add('orderDetail=' + HttpEncode(UTF8Encode(UpPayData.orderDetail))); //订单明细字段须要进行URL编码 <--提交接口的时候 Hash.Add('sign=' + UpPayData.sign); end else begin Hash.Add('orderDetail=' + UpPayData.orderDetail); end; Hash.Sort; if nType = 0 then begin for i := 0 to Hash.Count-1 do begin Temp := Temp + Trim(Hash.Strings[i]) + '&'; end; Result := Copy(Temp,1,Length(Temp)-1); //去除最后一个字符"&" end else begin for i := 0 to Hash.Count-1 do begin Temp := Temp + '"' + Trim(Hash.Strings[i]) + '",'; end; Temp := StringRePlace(Temp,'=','","',[rfRePLaceAll]); Result := '{' + Copy(Temp,1,Length(Temp)-1) + '}'; //去除最后一个字符"," end; finally FreeAndNil(Hash); end; end; function BulidParam_Refund(nType: integer; UpRefundData: TUpRefundData): string; var Temp: string; begin if nType = 0 then begin Temp := 'orderNo' + UpRefundData.orderNo + '&'; Temp := Temp + 'refundAmount' + IntToStr(UpRefundData.refundAmount); Result := Temp; end else begin Temp := '{'; Temp := Temp + '"orderNo":"' + Trim(UpRefundData.orderNo) + '",'; Temp := Temp + '"refundAmount":"' + IntToStr(UpRefundData.refundAmount) + '"'; Temp := Temp + '}'; Result := Temp; end; end; function ret_mymd5(const sVaule: string): string; var mymd5: TIdHashMessageDigest5; begin try mymd5 := TIdHashMessageDigest5.Create; Result := (mymd5.AsHex(mymd5.HashValue(sVaule))); finally mymd5.Free; end; end; function GetSign(var UpPayData: TUpPayData; var sMsg: string): boolean; var Temp: string; begin Result := False; sMsg := '获取签名失败！'; try Temp := BulidParam(0, UpPayData); MyWriteLog('获取字符串：' + Temp); Temp := Temp + g_sKey; MyWriteLog('获取密钥：' + g_sKey); Temp := ret_mymd5(Temp); UpPayData.sign := LowerCase(Temp); //签名小写 sMsg := '获取签名成功！'; MyWriteLog('获取签名成功：' + UpPayData.sign); Result := True; except on e:exception do begin sMsg := '获取签名异常：' + e.Message; MyWriteLog(sMsg); Exit; end; end; end; function CheckInvalid(UpPayData: TUpPayData; var sMsg: string): boolean; begin Result := False; sMsg := '检查传入参数失败！'; try //必填项检查 if UpPayData.orderNo = '' then begin sMsg := '订单编号必须填写！'; Exit; end; if UpPayData.orderAmount = '' then begin sMsg := '订单金额必须填写！'; Exit; end; if UpPayData.orderTime = '' then begin sMsg := '下单时间必须填写！'; Exit; end; if UpPayData.payType = '' then begin sMsg := '支付方式必须填写！'; Exit; end; if UpPayData.merchantNo = '' then begin sMsg := '商户编号必须填写！'; Exit; end; if UpPayData.tellerNo = '' then begin sMsg := '销售员编号必须填写！'; Exit; end; if UpPayData.orderDetail = '' then begin sMsg := '订单明细必须填写！'; Exit; end; if (UpPayData.payType <> '00') and (UpPayData.payType <> '01') and (UpPayData.payType <> '02') then begin sMsg := '非00/01/02的支付方式！'; Exit; end; //下单时间:格式：yyyyMMddHHmmss try VarToDateTime(UpPayData.orderTime) except sMsg := '下单时间格式错误！'; Exit; end; //[C]终端编号:支付的中行MIS终端编号,当支付方式是01或02时必填 if (UpPayData.payType = '01') or (UpPayData.payType = '02') then begin if UpPayData.terminalNo = '' then begin sMsg := '中行MIS终端编号必须填写！'; Exit; end; end; //[C]现金支付金额:当支付方式是00或02时必填,12位，以分为单位，好比1分=000000000001 if (UpPayData.payType = '00') or (UpPayData.payType = '02') then begin if UpPayData.cashAmount = '' then begin sMsg := '必须填写现金金额！'; Exit; end; end; //[C]MIS支付金额:当支付方式是01或02时必填,12位，以分为单位，好比1分=000000000001 if (UpPayData.payType = '01') or (UpPayData.payType = '02') then begin if UpPayData.misAmount = '' then begin sMsg := '必须填写MIS支付金额！'; Exit; end; end; if StrToFloatDef(UpPayData.orderAmount, 0) = 0 then begin sMsg := '订单金额为零！'; Exit; end; if (StrToFloatDef(UpPayData.cashAmount, 0) = 0) or (StrToFloatDef(UpPayData.misAmount, 0) = 0) then begin sMsg := '现金和Mis支付的金额均为零！'; Exit; end; if Length(UpPayData.orderAmount) > L then begin sMsg := '订单金额长度不容许超过' + IntToStr(L) + '位数！'; Exit; end; if Length(UpPayData.cashAmount) > L then begin sMsg := '现金金额长度不容许超过' + IntToStr(L) + '位数！'; Exit; end; if Length(UpPayData.misAmount) > L then begin sMsg := 'Mis支付金额长度不容许超过' + IntToStr(L) + '位数！'; Exit; end; sMsg := '检查传入参数经过！'; Result := True; except on e:exception do begin sMsg := '检查传入参数异常：' + e.Message; MyWriteLog(sMsg); Exit; end; end; end; function CheckInvalid_Refund(UpRefundData: TUpRefundData; var sMsg: string): boolean; begin Result := False; sMsg := '检查传入参数失败！'; try //必填项检查 if UpRefundData.orderNo = '' then begin sMsg := '退单编号必须填写！'; Exit; end; if (UpRefundData.refundAmount <= 0) then begin sMsg := '退单金额必须大于零！'; Exit; end; if (UpRefundData.refundAmount > 99999) then //若未赋值，则系统默认最大整数值 begin sMsg := '必须输入退款金额！'; Exit; end; sMsg := '检查传入参数经过！'; Result := True; except on e:exception do begin sMsg := '检查传入参数异常：' + e.Message; MyWriteLog(sMsg); Exit; end; end; end; function ExchangeMoney(Value: string): string; var S,Temp: string; i: integer; begin Result := '0'; S := Value; S := FormatFloat('0.00', StrToFloatDef(S, 0)); //保留小数点两位 S := FloatToStr(StrToFloat(S) * 100); //转换为分 for i := 1 to L-Length(S) do begin Temp := Temp + '0'; end; Result := Temp + S; //格式化长度为12位数 end; function FormatData(var UpPayData: TUpPayData; var sMsg: string): boolean; begin Result := False; sMsg := '格式化数据错误！'; try UpPayData.orderAmount := ExChangeMoney(UpPayData.orderAmount); UpPayData.cashAmount := ExChangeMoney(UpPayData.cashAmount); UpPayData.misAmount := ExChangeMoney(UpPayData.misAmount); sMsg := '格式化数据成功！'; Result := True; Except on e:exception do begin sMsg := '格式化数据异常：' + e.Message; MyWriteLog(sMsg); Exit; end; end; end; procedure MyWriteLog(const mStr:string); var f: textfile; myDir,myFileName: string; FileHandle:Integer; LogType,LogDate,ModuleID: String; begin LogType := 'INFO'; LogDate := FormatDateTime('YYYY-MM-DD hh:nn:ss zzz', Now); ModuleID := ''; // if not (CanLogFile in FLogFlags) then exit; //------写入文件部分的实现--开始 myDir := ExtractFilePath(Paramstr(0)); //肯定文件名称 myFileName := FormatDateTime('"PayIntf"yyyymmdd".log"', Date); //若是可执行目录下不存在log目录建立之 if not DirectoryExists(myDir + '\log') then CreateDir(myDir + '\log'); //若是当日日志文件不存在，则建立文件并释放句柄 if not FileExists(myDir + '\log\' + myFileName) then begin FileHandle:=FileCreate(myDir + '\log\' + myFileName);//建立文件 FileClose(FileHandle);//释放句柄 end; try//try...except...statements AssignFile(f, myDir + '\log\' + myFileName); Append(f); Writeln(f, '$$'+Format('%6s',[LogType])+'$$ '+Format('%12s',[ModuleID])+'$$'+LogDate + chr(9) + mStr); Flush(f); CloseFile(f); //-----写入文件部分的实现--结束 except//try...except...statements end;//try...except...statements end; function GetJsonArr(Cds_BillList: TClientDataSet): string; var Temp, ticketType,ticketSpecies, ticketFrom,ticketNum:string; ticketPrice,ticketAmount:Integer; cds_Temp: TClientDataSet; begin {** * ******获取订单明细组合成JSON数组字符串********** * 票型 ticketType S M * 票种 ticketSpecies S M * 来源 ticketFrom S M * 票价 ticketPrice N M 以分为单位 * 数量 ticketNum S M * 金额 ticketAmount N M 以分为单位，金额=票价*数量 **} Result := ''; Temp := ''; if Cds_BillList.IsEmpty then Exit; cds_Temp := TClientDataSet.Create(nil); try try cds_Temp.Data := Cds_BillList.Data; with cds_Temp do begin First; While Not Eof do begin ticketType := FieldByName('TicketModelName').AsString; ticketSpecies := FieldByName('TicketKindName').AsString; ticketFrom := 'TicketBySell'; ticketPrice := StrToInt(ExchangeMoney(CurrToStr(FieldByName('TicketPrice').AsCurrency))); ticketNum := IntToStr(FieldByName('TicketCount').AsInteger); ticketAmount := StrToInt(ExchangeMoney(CurrToStr(FieldByName('PaySum').AsCurrency))); Temp := '{'; Temp := Temp + '"ticketType":"' + Trim(ticketType) + '",'; Temp := Temp + '"ticketSpecies":"' + Trim(ticketSpecies) + '",'; Temp := Temp + '"ticketFrom":"' + Trim(ticketFrom) + '",'; Temp := Temp + '"ticketPrice":"' + IntToStr(ticketPrice) + '",'; Temp := Temp + '"ticketNum":"' + Trim(ticketNum) + '",'; Temp := Temp + '"ticketAmount":"' + IntToStr(ticketAmount) + '"'; Temp := Temp + '},'; Next; end; end; if Temp <> '' then begin Result := '[' + Copy(Temp,1,Length(Temp)-1) + ']'; //去除最后一位的"," end; finally FreeAndNil(cds_Temp); end; except on e:exception do begin Result := ''; Exit; end; end; end; end.