
Delphi
JerrySmurfs
一直使用Delphi的码农
展开
-
Delphi 调用Java WebService 传入参数为空
把引入WSDL生成的pas文件末尾,红色字体注释掉即可。initialization InvRegistry.RegisterInterface(TypeInfo(******Service), 'http://service.******.cn/', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(******Service), ''); //InvRegistry.RegisterInvokeOptions(TypeInf...原创 2021-09-13 17:43:36 · 360 阅读 · 0 评论 -
Delphi2010使用QQ邮箱发送邮件
最近在编写小程序 ,现在需要将生成的结果以电子邮件的方式发送到指定邮箱里,功能已正常实现,在这里将设置做一下记录,时间一长就容易忘!开发工具:Delphi2010邮箱:QQ邮箱一、 首先在QQ邮箱里设置, 登录邮箱后进入设置二、进入账户三、找到POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务1、将POP3/SMTP服务和IMAP/SMTP服务设置成已...原创 2020-03-29 20:00:44 · 1414 阅读 · 2 评论 -
Delphi2010连接Sqlite数据库,使用相对路径
Delphi2010 安装UniDAC4.0控件,优快云里有sqlite3.dll 可从官网(https://www.sqlite.org/index.html)下载 location := ExtractFileDir(ParamStr(0)) + '\'; conSqlite.ProviderName := 'SQLite'; conSqlite.Dat...原创 2018-11-14 15:16:15 · 1830 阅读 · 0 评论 -
Delphi2010 Edit即制内容输入
ifnot(CharInSet(Key,['0'..'9',#8])) thenkey:=#0; //数字ifnot(CharInSet(Key,['a'..'z',#8])) thenkey:=#0; //小写字母ifnot(CharInSet(Key,['A'..'Z',#8])) thenkey:=#0; //大写字母if (key = '.'...转载 2018-11-27 17:03:50 · 338 阅读 · 0 评论 -
Delphi 2010 调用WebService接口
Delphi 调用WebService接口此测试程序使用Delphi2010编写打开Delphi2010一、File-> New-> Application 新建一个工程在窗体上放置三个 Button按钮,一个ComboBox,两个Edit, 一个Memo和一个HTTPRIO二、到File-> New-> Other-> WebService...原创 2018-12-22 16:00:28 · 1917 阅读 · 0 评论