自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(9)
  • 收藏
  • 关注

原创 CentOS中kdevtmpfsi病毒

CentOS中kdevtmpfsi病毒,几日的查杀,最终失败!

2021-12-06 18:04:15 1411

原创 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 358

原创 Flutter App Run卡在Running Gradle task 'assembleDebug'...

Flutter App Run卡在Running Gradle task 'assembleDebug'...

2020-04-08 14:25:21 67170 24

原创 Delphi2010使用QQ邮箱发送邮件

最近在编写小程序 ,现在需要将生成的结果以电子邮件的方式发送到指定邮箱里,功能已正常实现,在这里将设置做一下记录,时间一长就容易忘!开发工具:Delphi2010邮箱:QQ邮箱一、 首先在QQ邮箱里设置, 登录邮箱后进入设置二、进入账户三、找到POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务1、将POP3/SMTP服务和IMAP/SMTP服务设置成已...

2020-03-29 20:00:44 1398 2

原创 关于Windows10的KB4489907补丁

4月8日,更新了KB4489907安全补丁,电脑使用开始变慢,一开始不知道问题在哪儿,开始找各种系统优化,问题依然没有解决,最后准备重做系统了,想起来最近更新了补丁,于是卸载了补丁,电脑反应慢的问题解决了。这个补丁是Adobe Flash的补丁。...

2019-04-09 17:15:25 483

原创 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 1914 1

转载 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 337

原创 Delphi2010 设置断点无效的问题

断点无效的问题一直困扰着,今天再次查找了资料,找到原来是一项设置的问题 project -> option -> Delphi compiler -> linking -> Debug information 将这项设置设为True即可。...

2018-11-18 17:52:42 2190 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 1828

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除