文章分类 -  Delphi 那些事儿

Delphi 实现简易语音发音（基于TTS方式）
摘要：Delphi 实现简易语音发音（基于TTS方式） uses Comobj; procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.SpVo 阅读全文
posted @ 2020-12-23 14:01 都是城市惹的祸 阅读(413) 评论(0) 推荐(0)
Delphi ADO连接MySQL
摘要：procedure TForm1.Button1Click(Sender: TObject); begin try ADOCon1.ConnectionString:=('DRIVER={MySQL ODBC 3.51 Driver};'+ 'SERVER=localhost;'+ 'DATABASE... 阅读全文
posted @ 2018-04-19 16:35 都是城市惹的祸 阅读(235) 评论(0) 推荐(0)
Delphi ADO连接SQL Server
摘要：var s: string; begin s := 'Provider=SQLOLEDB.1;User ID=%2:s;Password=%3:s;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=%1:s;Data Source=%0:s'; s := Format(s, [AHost, ADb... 阅读全文
posted @ 2018-04-19 16:32 都是城市惹的祸 阅读(383) 评论(0) 推荐(0)
Delphi 删除备份文件和日志文件的批处理文件
摘要：ClearDelphiBackFile.bat ClearLogFile.bat 阅读全文
posted @ 2018-04-19 16:28 都是城市惹的祸 阅读(185) 评论(0) 推荐(0)
Delphi 查询目录下符合条件的所有文件
摘要：procedure TfrmMain.FindAllFiles(const APath: string; AFiles, ALines: TStrings; const APropty: String; IsAddPath: Boolean); var FS: TSearchRec; FPath: String; AddPath,tmpstr,tmppath: string; b... 阅读全文
posted @ 2018-04-19 15:07 都是城市惹的祸 阅读(157) 评论(0) 推荐(0)
Delphi 判断点是否在区域内
摘要：function TfrmMain.IsInRect(points: TGpsPointManager; x, y: Double): Boolean; var iSum, iCount, iIndex: Integer; dLon1, dLon2, dLat1, dLat2, dLon: double; ALon, ALat: double; obj1, obj2: TGp... 阅读全文
posted @ 2018-04-19 15:03 都是城市惹的祸 阅读(380) 评论(0) 推荐(0)
Delphi ADO连接Oracle字符串
摘要：procedure TfrmMain.adoBeforeConnect(Sender: TObject); var s, pwd, userid, servername, dbname, dbPort: string; begin pwd := edtPasswd.Text; userid := edtUser.Text; servername := edtIp.Text; ... 阅读全文
posted @ 2018-04-19 15:01 都是城市惹的祸 阅读(465) 评论(0) 推荐(0)
Delphi 排序算法总结
摘要：在工作中，用到了排序。顺便总结了一下。以下排序的各算法，我都验证无误。 包含冒泡排序、摇动排序、梳子排序、标准插入排序、优化的插入排序、 希尔排序、标准归并排序、优化的归并排序、 标准快速排序、无递归的快速排序、随机的快速排序、中间值的快速排序、 堆排序。 阅读全文
posted @ 2018-03-29 14:53 都是城市惹的祸 阅读(490) 评论(0) 推荐(0)
Delphi7程序调用C#写的DLL解决办法
摘要：近来，因工作需要，必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索，又经过种种试验，最终证明有以下两种方法可行： 编写C#dll的方法都一样，首先在vs2005中创建一个“类库”项目TestDll， using System.Runtime.InteropServices; 阅读全文
posted @ 2018-03-29 14:50 都是城市惹的祸 阅读(138) 评论(0) 推荐(0)
Delphi 用Tchromium替换webbrowser
摘要：用惯了EmbeddedWB,不想换，但是IE内核一直存在内存泄漏问题，没办法，只有寻找替代品了。 首先，想到的是跨域，如果不能跨域，就没办法替代手上的成品。TChromium的跨域比想像中的简单，直接通过chrm.Browser.GetFrameNames(list);//list:tstringL 阅读全文
posted @ 2018-03-29 14:48 都是城市惹的祸 阅读(662) 评论(0) 推荐(0)
Delphi 数据集中文过滤
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxCusto... 阅读全文
posted @ 2018-01-31 09:41 都是城市惹的祸 阅读(332) 评论(0) 推荐(0)
Delphi 实现最小化系统托盘
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, Menus; const WM_TRAYMSG = WM_USER + 101; type TForm1 = class(TForm... 阅读全文
posted @ 2018-01-23 11:04 都是城市惹的祸 阅读(203) 评论(0) 推荐(0)
Delphi 检测键盘鼠标动作
摘要：procedure TfrmMain.Timer_LockTimer(Sender: TObject); var vLastInputInfo: TLastInputInfo; min: Int64; begin TTimer(Sender).Enabled := False; try if gGlobal.APauseByUser then Exit; ... 阅读全文
posted @ 2017-12-14 14:57 都是城市惹的祸 阅读(687) 评论(0) 推荐(0)
Delphi 随机取汉字
摘要：procedure TForm1.Button1Click(Sender: TObject); var i: Integer; s1, s2: WideString; iz1, iz2: Integer; begin s1 := ''; s2 := ''; Memo1.Lines.Clear; for i := 1 to 5000 do begin // ... 阅读全文
posted @ 2017-12-14 14:53 都是城市惹的祸 阅读(351) 评论(0) 推荐(0)