客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
前言： 1、公司delphi7开发的传统软件还活得好好的，但是大家都知道delphi早已经日落西山了，现在成了后进、追随者。细细算了已经6、7不用了。新的delphixe7呢，没有时间成本去适应和研究。 由于大量使用了第3方的组件和控件，想升级估计是吃力不讨好的事情... 2、保留原有代码，开发新功能可调用远程主机（云主机）的REST ful风格的api,使用Json交换数据。这样就赶上了新潮流，复活了。
由于网上搜索了很多次，发现符合需求的文章很少，这里记录下来，授人以鱼吧。
以下是关键代码： （1）msxml,SuperObject（第3方,delphi7不自带）, EncdDecd 的引用 （2）XMLHttpRequest的使用： //提交会员开卡信息
procedure TFormMakeCard.btnOKClick(Sender: TObject);
var
url: string;
resultJson,paramsJson: ISuperObject;
begin
if (CheckInput) then
begin
HttpReq := CoXMLHTTPRequest.Create;
//两种提交请求的方式：Get和Post,Get是通过URL地址传递参数如果是中文需要转码，需要添加时间戳 Post不需要添加时间戳
//get url := 'http://localhost:5269/api/webmemberapi/NewMemberRegister?timestamp='+inttostr(Windows.GetTickCount);
url := 'http://localhost:5269/api/webmemberapi/NewMemberRegister?';
HttpReq.open('Post', url, False, EmptyParam, EmptyParam);
//http post
HttpReq.setRequestHeader('Accept', 'application/json');
HttpReq.setRequestHeader('Content-Type', 'application/json');
//请求主体
try
paramsJson:= GetMemberEntity();
Memo1.Lines.Clear;
memo1.Text := paramsJson.AsString();
HttpReq.send(paramsJson.AsString());
resultJson:=SO(HttpReq.responseText);
if (resultJson<>nil) then
begin
showmessage(resultJson.S['Message']);
//发卡成功，如果有照片或者签名则执行上传
if (resultJson.B['Success']=true) then
begin
if (mbPhoto) then
begin
url := 'http://localhost:5269/api/webmemberapi/UploadMemberImage?';
HttpReq.open('Post', url, False, EmptyParam, EmptyParam);
//http post
HttpReq.setRequestHeader('Accept', 'application/json');
HttpReq.setRequestHeader('Content-Type', 'application/json');
paramsJson:=SO();
paramsJson.S['ImageFileContent']:= BitmapToString(ImageMemberPhoto.Picture.Bitmap);
paramsJson.S['ImageCategory']:='头像';
paramsJson.S['MemberCardNo']:=self.edtCardNo.Text;
HttpReq.send(paramsJson.AsString());
resultJson:=SO(HttpReq.responseText);
end;
if (mbSign) then
begin
url := 'http://localhost:5269/api/webmemberapi/UploadMemberImage?';
HttpReq.open('Post', url, False, EmptyParam, EmptyParam);
//http post
HttpReq.setRequestHeader('Accept', 'application/json');
HttpReq.setRequestHeader('Content-Type', 'application/json');
paramsJson:=SO();
paramsJson.S['ImageFileContent']:= BitmapToString(ImageMemberSign.Picture.Bitmap);;
paramsJson.S['ImageCategory']:='签名';
paramsJson.S['MemberCardNo']:=self.edtCardNo.Text;
HttpReq.send(paramsJson.AsString());
resultJson:=SO(HttpReq.responseText);
end;
end;
end;
except
on Ex:Exception do
showmessage(Ex.Message);
end;
end;
end;
//XMLHttpRequest实例化 HttpReq := CoXMLHTTPRequest.Create; // Post或者Get //这是请求的主体 HttpReq.send(paramsJson.AsString()); //把服务器返回的Json字符串反序列化成一个SuperObject对象。 resultJson:=SO(HttpReq.responseText); using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
namespace Com.Aidpoint.MemberApi.Models
{
/// <summary>
/// Action返回值实体
/// </summary>
public class ApiActionResult
{
public bool Success
{
get;
set;
}
public string Message
{
get;
set;
}
public object Result
{
get;
set;
}
}
}
if (resultJson<>nil) then end (3)Josn包含base64编码的图片: //位图文件转Base64字符串 function TFormMakeCard.BitmapToString(img:TBitmap):string; var ms:TMemoryStream; ss:TStringStream; s:string; begin ms := TMemoryStream.Create; img.SaveToStream(ms); ss := TStringStream.Create(''); ms.Position:=0; EncodeStream(ms,ss);//将内存流编码为base64字符流 s:=ss.DataString; ms.Free; ss.Free; result:=s; end; url := 'http://localhost:5269/api/webmemberapi/UploadMemberImage?'; HttpReq.open('Post', url, False, EmptyParam, EmptyParam); //http post HttpReq.setRequestHeader('Accept', 'application/json'); HttpReq.setRequestHeader('Content-Type', 'application/json'); paramsJson:=SO(); paramsJson.S['ImageFileContent']:= BitmapToString(ImageMemberPhoto.Picture.Bitmap); paramsJson.S['ImageCategory']:='头像'; paramsJson.S['MemberCardNo']:=self.edtCardNo.Text; HttpReq.send(paramsJson.AsString()); resultJson:=SO(HttpReq.responseText);
(4)服务器端的web api public ApiActionResult NewMemberRegister([FromBody]MemberDTO memberDTO)
{
//初始化返回值
var result = new ApiActionResult()
{
Success = false,
Result = null,
Message = "操作失败。"
};
if (memberDTO != null)
{
try
{
using (MemberEntities db = new MemberEntities())
{
var dbEntity = CheckMemberExists(memberDTO, db);
if (dbEntity==null)
{
//插入会员表
var entity = DTO2Entity.ConvertToEntityObject<会员表>(memberDTO) as 会员表;
db.AddTo会员表(entity);
//生成储值流水--w:误收,d:积分兑换礼品,f:发新卡,c:储值,q:取款,j:积分消费记录
var detailRec = new 会员储值流水表();
detailRec.会员卡号 = memberDTO.卡号;
detailRec.储值标志 = "f";
detailRec.充值金额 = memberDTO.开卡额.Value;
detailRec.新卡 = "Y";
db.AddTo会员储值流水表(detailRec);
try
{
db.SaveChanges();
result.Success = true;
result.Result = entity;
result.Message = string.Format("操作成功。新发会员卡[{0}],开卡金额:{1}。", entity.自编号, entity.开卡额);
}
catch (Exception ex)
{
var exx = ex.InnerException == null ? ex : ex.InnerException;
throw new Exception(exx.Message);
}
}
else
{
result.Success = false;
result.Result = null;
result.Message = string.Format("卡号[{0}]已经存在。发卡门店[{1}],持卡人:{2}。",dbEntity.自编号,dbEntity.发行分店编号,dbEntity.姓名);
}
}
}
catch (Exception ex)
{
var exx = ex.InnerException == null ? ex : ex.InnerException;
result.Success = false;
result.Result = exx;
result.Message = string.Format("操作异常,异常消息：{0}。", exx.Message);
}
}
return result;
}
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论