随笔分类 - Delphi
Delphi常用整理
摘要:1 基础设置 1.1 qq邮箱 在“账户” 设置中开启 “POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务” 2 获取邮箱授权码 2.1 3 创建程序 并使用 控件 TIdPOP3、TIdSMTP、TIdMessage 3.1 具体样例代码如下 idsmtp.User
阅读全文
摘要:1、创建项目 2、代码 procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
阅读全文
摘要:1、先要安装控件\NativeExcel310(自行下载) 2、添加单元引用 uses nexcel; 3、转换方法 function ExcelToDataSet(fileNmae:string):TClientDataSet; var od: TOpenDialog; wb: IXLSWorkb
阅读全文
摘要:File- New -other 在Form上面添加控件: IdHTTPServer 并实现方法IdHTTPServer1CommandGet procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: T
阅读全文
摘要:1、Json文本: {"infcode":"0","inf_refmsgid":"320000202107071540300000539098","refmsg_time":"20210707154030082","respond_time":"20210707154030221","enctype
阅读全文
摘要:1、利用D10 以上自带的IdHMACSHA1 var app_secret,sha1Value,base64Value:string;signSrcString:string;bs : TIdBytes;begin appid := 'jzrhvabb71qp5yo08y9d'; time :=
阅读全文
摘要:总结:参多个参数就用空格分开即可。
阅读全文
摘要: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
阅读全文