前言 最近在做一个Delphi的对接第三方支付的接口,接口签名机制模仿微信的签名方式,把参数按ascii码进行排序后再加上key进行md5的加密,因为调用接口的的Post里面的参数是TStrings类型的...实现方式 其实使用这个实现也非常的简单,虽然在TStrings里面没有Sort的排序,但是在TStringList里面有这个排序的,所以我们只要再建一个TStringList的变量,把值赋过去后再排序,...i: Integer; begin try //创建TStringList tmpParams := TStringList.Create; //将TStrings的数据全部存进...TStringList tmpParams.AddStrings(Params); //给TStringList进行ascii码的排序 tmpParams.Sorted := True...str; finally tmpParams.Free; end; end; ---- 上面的方法就是实现排序后的Tstrings生成的字符串,然后把这个生成的字符串进行MD5的加密,delphi
1.JCL概念JEDI代码库(JCL)由一组经过全面测试并完整记录的代码组成实用程序函数和非视觉类,可以立即在您的Delphi中重用和C++Builder项目。...安装程序会默认加载电脑所有的Delphi编译器,点击安装之前,先选择“MPL1.1License”勾选agree,然后默认安装即可,记住安装之前要关闭Delphi编译器。...当我们给一个项目开启jcldebug的时候我们需要在Delphi编辑器中选择MAPfile为“Detailed”,在Project->options->Linker中可以找到。...如果异常在应用程序的最顶层仍未被捕获,Delphi的运行时环境(VCL或FMX框架)可能会提供自己的异常处理机制。...;JCLShowList:TStringlist;implementation{EJCLException}procedureWriteExceptionLog(sLogInfo:string);varsDate
StringList使用 在Delphi中,如果程序需要动态创建大量的对象,那么我们可以利用StringList对象来管理这些动态生成的对象。...具体步骤如下: ---- 1、创建StringList对象: OBJ := TStringList.Create; 2、保存动态生成的对象: OBJ.AddObject('标识','对象名'); 3、调用生成的对象...then OBJ.Free; ---- 查询是否存在 如果在StringList里面查询某一项是否存在,我们可以用下面的例子进行: var S : TStrings; begin S := TStringList.Create...里面进行排序并查找,可以用下面的方法: procedure TForm1.FormCreate(Sender: TObject); var MyList: TStringList...; Index: Integer; begin MyList := TStringList.Create; try
RTTI是Delphi的组件能够融合到IDE中的关键。它在IDE中不仅仅是一个纯学术的过程。 由于对象都是从TObject继承下来的,因此,对象都包含一个指向它们的RTTI的指针以及几个内建的方法。...第一个地方是DELPHI的IDE,这在前面已提到过。通过RTTI,IDE就会知道你正在使用的对象和组件的任何事情。实际上,不只是RTTI,但为了这个讨论,我们只谈RTTI方面。...在观看此例子之时,建议你看看typinfo.pas中的内容(DELPHI安装目录下/source/rtl/common/TypInfo.pas); 下面的例子主要分为两部分,界面上半部分,主要演示通过rtti
这个病毒界面的开关 这个病毒的界面其实就是一个普通的delphi界面程序,它主要是由一个delphi的label控件和几个定时器组成的。 ? 这个病毒样本的具体功能如下 ?...通过下图PE加载工具我们可以很清晰的看到该tsay.exe是32位的应用程序,而且它是用Delphi语言开发的。 ?...通过下面区段信息看到这个就是一个delphi标准的区段信息,delphi的正常的区段信息是包含8个区段信息。...结合DeDe工具分析可以还原出该病毒软件其实就是默认创建的Delphi窗口程序,外加几个定时器功能的。...Delphi是一个可视化的语言类似于MFC主要用于做可视化用的,但是在启动病毒样本的时候发现没弹出任何对话框,这个就涉及到Delphi隐藏窗口的功能,它的实现原理:delphi中Form.Create创建完窗口
前言 我们做打印小票的时候除了直接对端口发送指令的方式,还有就是调用打印机驱动打印的方式,在Delphi中想要用驱动打印的方式就可以用到TPrinter类 TPrinter类介绍 TPrinter类中封装了...打印测试参数 小票输出到文件 XSysPrint.Log if PosCfg.blPrnText then begin WritePrintTxt(str); {ls := TStringList.Create
事实上Delphi中所有的元件都是从一些共同的祖先类 继承下来的,利用类的可继承性,您可以编写您自己的类元件,并把它加到Delphi的环境中去。...举例说明,我们在Delphi的可视环境下 建立一个表单窗口时,它实际上是创建了一个从TForm类中继承下的类类型。如果仔细看Delphi为您生成 的代码,你可以完全看到上面的各个规则是如何被实现的。...属性可能是Delphi的程序员接触最多的名词之一。...Delphi的属性还有个显著的特点就是,属性本身还可以是类类型,例如Font属性就是TFont类型的类。...在Delphi4 中,有一个新特性称为类补全。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G...
先上相关资源的下载吧: python4delphi: 主页: http://code.google.com/p/python4delphi/ 下载: svn checkout http://python4delphi.googlecode.com.../svn/trunk/ python4delphi-read-only 现在已支持到XE2....当然,需要在Delphi中先安装上PythonForDelphi控件包,安装不麻烦,可参考上述资料的说明文档....这样,我们就完成了Delphi传递参数到Python,Python执行完毕后将结果再返回给Delphi的演示.好了,我们可以好好利用Python,将它很好地嵌入到Delphi中了....在Delphi中写下面的代码: var PyModule: variant; ....
本次知行软件为汽车电缆行业某客户提供EDI的技术服务,是同时和三位国外贸易合作伙伴进行EDI对接,在双方的共同努力下,最终成功对接了Nexans, KSD, Delphi三位贸易合作伙伴。...不过也不是完全相同的,例如报文标准存在不同,Delphi使用的报文标准是EDIFACT,而KSD和NEXANS使用的报文标准是VDA标准,这种标准经常用于德国汽车行业。...在进行本次EDI项目实施的时候,我们按照客户要求,将项目以紧急程度分出了优先级,先进行的是Delphi项目的实施,然后进行KSD和Nexans项目的实施。...本文中,我们以Delphi的需求为主,详细聊一聊项目的需求和实施过程中遇到的问题。 项目需求 Delphi EDI项目是Delphi发起的需求。...Delphi发送的DELJIT长期需求预测,并将DELFOR中确认要货的信息作为订单处理,进行发货,发货之后将发货信息回传给Delphi,Delphi根据发货通知进行收货。
是个Delphi写的程序,无壳,程序要求把"OK"和"Cancella"按钮隐藏掉,以便看到 logo; 因为这是Delphi写的程序,所以用专业Delphi反编译工具Dark分析一下 ?
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtil...
前言 delphi7中原本自带的一个Tmediaplayer控件,但是发现有不少视频是无法播放的,于是就想到了用windowsmediaplayer来进行播放。...安装 在Delphi7中选择“Component ——Import ActiveX Control...”菜单,会弹出“Import ActiveX0”窗口。...窗口大小问题 在DELPHI中使用微软的WindowsMediaPlayer ActiveX控件的时候,如果想让控件随窗口大小一起改变, 最常用的方法就是设置控件的Align属性,但是你会发现,对于ActiveX
Delphi当年的迅速走红,是以其RAD快速开发吸引程序员的目光。这无疑是它最吸引人的优势,但同时也让人误以为delphi只是vb的高级版本,从而忽视了其面向对象的特性。...其实Pacscal发展到Delphi,已经完全具备了面向对象的所有特点:允许自定义类,类可以继承(单继承),允许方法重载/覆写,可以定义接口,类可以实现接口,允许定义静态方法(即class方法),虚方法...,抽象类...等等,对于delphi怀有偏见的朋友,你还会怀疑delphi的面向对象能力吗?
1、说明 最近加入了一个项目组,使用的开发工具是delphi6,想想又要开始搞这个工具有点小忧伤,但没办法谁让咱就是个打杂的尼。。。
{ Raw 数据包 Sender 使用:Delphi + Winsock 2 描述: 通过使用Raw sockets我们可以在internet上发送含有任意格式的数据包。
1.把WSDL的URL地址放到了HTTPRIO的WSDLLocation参数中,然后选择service和port 2.最近一个项目用到了delphi调用C#写的web服务的功能。...先测试了N次都不成功,通过跟踪发现delphi根本没传过来任何值,通过查资料发现VS2005 默认是用的 SoapDocumentProtocol而Delphi 是使用的 SoapRpcProtocol...fs, 0, fs.Length); f.Close(); f = null; return 1; } catch { return 2; } } delphi
代码演示 我们先创建一个动态链接库名称为PosPayIntf,最近几章介绍Delphi技术的都是用这个动态库,因为正好因为项目要做一个对接第三方微信支付宝的动态库。 ?
4.2.1.ComponentCreateFromXmlFile unit NativeXmlObjectStorage function Compon...