Delphi Idhttp.Get方法
作者：互联网
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
{**
* 1、检查必要条件
* 2、格式化数据
* 3、获取签名
* 4、提交接口
* 5、解析返回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
{**
* 1、检查必要条件
* 2、提交接口
* 3、解析返回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.
View Code
标签：begin,end,string,Temp,Get,Idhttp,Delphi,UpPayData,sMsg 来源： https://www.cnblogs.com/studycode/p/11124266.html