随笔分类 -  Delphi

Delphi常用整理
摘要:1 基础设置 1.1 qq邮箱 在“账户” 设置中开启 “POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务” 2 获取邮箱授权码 2.1 3 创建程序 并使用 控件 TIdPOP3、TIdSMTP、TIdMessage 3.1 具体样例代码如下 idsmtp.User 阅读全文
posted @ 2022-09-07 11:17 三弄梅花 阅读(559) 评论(0) 推荐(0) 编辑
摘要:1、创建项目 2、代码 procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 阅读全文
posted @ 2021-09-02 10:55 三弄梅花 阅读(366) 评论(0) 推荐(0) 编辑
摘要:1、先要安装控件\NativeExcel310(自行下载) 2、添加单元引用 uses nexcel; 3、转换方法 function ExcelToDataSet(fileNmae:string):TClientDataSet; var od: TOpenDialog; wb: IXLSWorkb 阅读全文
posted @ 2021-08-26 11:48 三弄梅花 阅读(445) 评论(0) 推荐(0) 编辑
摘要:File- New -other 在Form上面添加控件: IdHTTPServer 并实现方法IdHTTPServer1CommandGet procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: T 阅读全文
posted @ 2021-08-16 15:33 三弄梅花 阅读(331) 评论(0) 推荐(0) 编辑
摘要:1、Json文本: {"infcode":"0","inf_refmsgid":"320000202107071540300000539098","refmsg_time":"20210707154030082","respond_time":"20210707154030221","enctype 阅读全文
posted @ 2021-08-10 09:44 三弄梅花 编辑
摘要:1、利用D10 以上自带的IdHMACSHA1 var app_secret,sha1Value,base64Value:string;signSrcString:string;bs : TIdBytes;begin appid := 'jzrhvabb71qp5yo08y9d'; time := 阅读全文
posted @ 2021-03-31 14:45 三弄梅花 阅读(350) 评论(0) 推荐(0) 编辑
摘要:总结:参多个参数就用空格分开即可。 阅读全文
posted @ 2018-07-27 16:24 三弄梅花 阅读(774) 评论(0) 推荐(0) 编辑
摘要:1、Break procedure TForm1.Button3Click(Sender: TObject);var i,j :Integer;begin Memo1.Lines.Clear; for I := 0 to 10 - 1 do begin for j := 0 to 5 - 1 do 阅读全文
posted @ 2018-07-18 15:49 三弄梅花 阅读(1714) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示