随笔分类 - delphi
摘要：// 事先需要安装foxit quick pdf library ,安装完成，把DebenuPDFLibraryDLL1811.pas文件添加你的项目文件内 // 把DebenuPDFLibraryDLL1811.dll动态库复制到你执行程序目录 // 执行调用指定打印机打印PDF文件var PDF
阅读全文
摘要：use Vcl.Printers, Winapi.ShellAPI；procedure TForm1.PrintDocument(const documentToPrint: string); var printCommand: string; printerInfo: string; Device
阅读全文
摘要：procedure TForm1.btn_getTokenClick(Sender: TObject); var sendData: string; url: string; ss: TStringStream; jsonData: isuperobject; begin url := 'https
阅读全文
摘要：procedure TForm1.cxButton_checkIDClick(Sender: TObject); var base64: string; token: string; host: string; postData: string; ss: TStringStream; mm: TMe
阅读全文
摘要：//由于dxCameraControl 直接拍照图片保存普遍比较大，大约3M左右，故需要压缩procedure TFormMain.capturePic(tmpStr: string); var filePathName: string; JPEGImage: TJPEGImage; begin i
阅读全文
摘要：//use qworker;procedure TForm1.doplanjob(ajob: PQJob); var APlan: PQJob; begin APlan := ajob.PlanJob; lblPlanStatic.Caption := '计划任务已执行' + IntToStr(aj
阅读全文
摘要：由于delphi项目中，有个把本地文件上传到Linux服务器的需求。 在经过讨论，准备使用sftp 的方式上传文件。后端不需要开发java服务。其他方式实现：ftp应该是可以实现,但是SFTP使用加密传输认证信息和传输的数据，所以使用SFTP相对于FTP安全。 或者使用pscp.exe DOS命令行
阅读全文
摘要：// ffmpeg.exe 在http://ffmpeg.org/download.html 可以下载对应版本，我下的是MS版本。 //简单示例，tdoscommand组件需另外安装，可以到github下载 DosCommand1.CurrentDir := ExtractFilePath(Appl
阅读全文
摘要：我使用tcomport组件 读取 欧陆达AWH-30A这款电子称的重量，通过串口连接。 //波特率设置br9600 //ControlDTR 设置成 DtrEnable //TriggersOnRxChar设置成true var portData:string; //打开串口 procedure T
阅读全文
摘要：procedure TFormTwo.Button1Click(Sender: TObject); begin if LowerCase(Edit1.Text) = LowerCase(str) then begin ShowMessage('验证码正确！'); end else begin Sho
阅读全文
摘要：Application.MainFormOnTaskbar := False; procedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.Handle, SW_HIDE); //不显示在任务栏上end; 通过上面两
阅读全文
摘要：1 procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); 2 var 3 tmp: U
阅读全文
摘要：编译选项的设置，称为“开关指令”，其中大部分值为布尔类型 一、代码生成（Code generation） 1、Optimization 优化代码，默认true 2、Stack frames 生成过程/函数的Stack frames（调试工具用），默认false 3、Pentium-safe FDIV 修正早期Pentium处理器FDIV指令集浮点运算缺陷（已过期选项，Win95以后的操作系统内部已
阅读全文
摘要：var StartTime:Integer;//由于Indy10碰到网络异常断掉，Indy超时时间无效的问题，需要安装第三方控件 OverByteICS 解决这个问题。procedure TFormPost.Button2Click(Sender: TObject); //发送overbyte 控件ICS var Data: AnsiString; AJson: TQJson; Strtemp:
阅读全文
摘要：function TForm1.getNumberFromStr(strIn: string; sFlag: string): string; var i: Integer; tempStr: string; begin tempStr := ''; if Length(strIn) = 0 then begin Result := ''; exit; ...
阅读全文
摘要：MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有（貌似XE5以上版本才有）。如果是D7的话，找第三方的库。
阅读全文
摘要：const WM_INTMSG = WM_USER + 100; WM_STRUCTMSG = WM_USER + 101; WM_GETSTRUCTMSG = WM_USER + 102; WM_TEXTMSG = WM_USER + 103; type TMyIntMessage = packed record Msg: Cardinal; WPara...
阅读全文
摘要：1 unit Unit3; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, 7 Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl...
阅读全文
摘要：type TForm13 = class(TForm) Button1: TButton; ScrollBox1: TScrollBox; procedure Button1Click(Sender: TObject); private { Private declarations } procedure myClick(sender: TObje...
阅读全文