string to utf-8 一定要处理 回车换行 为空 要不然 http 和加密 不通过
function Generate_DZ_TYZL(
ATYXML: string): WideString;
var
xml:string;
mwXML,iTYXML:string;
begin
iTYXML:=StringReplace(ATYXML,#$D#$A,'',[rfReplaceAll]);
xml:='<?xml version="1.0" encoding="gbk"?>';
xml:=xml+'<business comment="税控盘通用指令" id="SKPCOMMAND">';
xml:=xml+'<body yylxdm="1">';
xml:=xml+'<input>';
xml:=xml+'<FPXML>:FPXML</FPXML>';
xml:=xml+'</input>';
xml:=xml+'</body>';
xml:=xml+'</business>';
mwXML:=xml;
xml:=StringReplace(xml,':FPXML',EncodeString(AnsiToUtf8(ATYXML)),[rfReplaceAll]);
xml:=StringReplace(xml,#$D#$A,'',[rfReplaceAll]);
result:=StringReplace(EncodeString(AnsiToUtf8(xml)),#$D#$A,'',[rfReplaceAll]);
end;
function Generate1(
ATYXML: string): WideString;
var
xml:string;
mwXML,iTYXML:string;
begin
// iTYXML:=StringReplace(ATYXML,#$D#$A,'',[rfReplaceAll]);
iTYXML:=StringReplace(ATYXML,#13#10,'',[rfReplaceAll]);
// result:=StringReplace(EncodeString(AnsiToUtf8(iTYXML)),#$D#$A,'',[rfReplaceAll]);
result:=StringReplace(EncodeString(AnsiToUtf8(iTYXML)),#13#10,'',[rfReplaceAll]);
end;
function request(const url:string;params:TStringStream;timeout:integer;var iserror:boolean):string;
var IdHttp2:TIdHTTP;
begin
IdHttp2:=TIdHTTP.Create(nil);
try
IdHTTP2.ReadTimeout:=timeout;
// IdHTTP2.Request.ContentType:= 'application/x-www-form-urlencoded';
IdHTTP2.Request.ContentType:= 'text/html';
result:='';
try
iserror:=false;
result:=IdHTTP2.Post(url, params);
except
on e:Exception do begin
result:=e.Message;
iserror:=true;
end;
end;
finally
IdHttp2.Free;
end;
end;
【推荐】还在用 ECharts 开发大屏？试试这款永久免费的开源 BI 工具！
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步
· 理解Rust引用及其生命周期标识（下）
· 从二进制到误差：逐行拆解C语言浮点运算中的4008175468544之谜
· .NET制作智能桌面机器人：结合BotSharp智能体框架开发语音交互
· 软件产品开发中常见的10个问题及处理方法
· .NET 原生驾驭 AI 新基建实战系列：向量数据库的应用与畅想
· C# 13 中的新增功能实操
· Ollama本地部署大模型总结
· 2025成都.NET开发者Connect圆满结束
· langchain0.3教程：从0到1打造一个智能聊天机器人
· 用一种新的分类方法梳理设计模式的脉络