加载中
Delphi 赋

DELPHI者,经典开发工具、美奂美仑之开发环境也。 盖论DELPHI其身世,实为神界之神物,后借宝蓝公司之手,于1990年代,现于江湖。 DELPHI一出江湖,码农爱之,企业爱之。一时间,风雨雷动,群...

2018/03/30 23:09
65
CategoryPanelGroup1 动态绘制 及 按钮 点击 

CategoryPanelGroup1 动态绘制 及 按钮 点击 procedure TFormMain.CategoryButtons1AfterDrawButton(Sender: TObject; const Button: TButtonItem; Canvas: TCanvas; Rect: TRect; State: T...

01/13 09:25
98
C#- App.config 的使用

using System; using System.Collections.Generic; using System.Data.SqlClient; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Configuration; usin...

2019/12/09 15:57
80
SHFileOperation的用法

//删除文件或者文件夹 bool DeleteFile(char * lpszPath) { SHFILEOPSTRUCT FileOp={0}; FileOp.fFlags = FOF_ALLOWUNDO | //允许放回收站 FOF_NOCONFIRMATION; //不出现确认对话框 FileOp.p...

2019/10/10 16:27
42
使用SHFileOperation删除文件

使用SHFileOperation删除文件 今天使用SelectDirectory选择文件夹,用SHFileOperation来删除文件夹,一直都报错,蛋疼了老半天,原来是SelectDirectory之后就将当前目标设为SelectDirectory...

2019/10/10 16:20
4
Delphi 控件大全

https://t00y.com/dir/1041485-3049764-93c76d

2019/09/24 10:02
640
DataSetToJson JsonToDataSet

function _DataSetToJson(ADataset: TDataSet): string; // 不含字段类型 部分, 数据均按 字符串格式返回 // [{"CityId":"18","CityName":"西安"},{"CityId":"53","CityName":"广州"}] var L...

2019/06/12 08:46
141
动态字节数组的转换 Tbytes String、ANSIString及TBytes之间的转换

一、string转为ansistring 1、直接赋值 (有警告) 2、ansistring()类型强制转换。(无警告) 二、ansistring 转为string 1、直接赋值 (有警告) 2、string()类型强制转换。(无警告) 三、...

2019/06/12 07:17
478
icsftp test

procedure TForm1.Button1Click(Sender: TObject); var t: cardinal; sm: TMemoryStream; begin t := gettickcount; sm := TMemoryStream.Create; sm.LoadFromFile('c:\0001.jpg'); ftp.Host...

2019/05/14 11:23
19
Delphi 下 用 ImageEN 进行图像纠偏

// 仅获取文件夹 内的 文件 function GetFiles(Path, ext: string): TStringList; var Rec: TSearchRec; Lst: TStringList; begin if Path[Length(Path)] <> '\' then Path := Path + '\'; ...

2019/03/27 17:09
55
// 阿里云短信接口 (未测试 非原创 来自 qq 群)

// 阿里云短信接口 unit uAliyunSms; { Author: MarkWu Q Q: 77910086 } interface uses Classes, SysUtils, uSMSIntf, IdHTTP, flcHash, EncdDecd; type TAliYunSms = class(TInterface......

2019/01/14 15:04
61
在delphi里的RichEdit指定光标到某行某列

在delphi里的RichEdit指定光标到某行某列 procedure GotoRowCol(Row, Col : Integer; RichEdit : TRichEdit); var TextLen, i : Integer; begin if Row > RichEdit.Lines.Count then Exit; T...

2018/11/15 21:55
751
Delphi读取和写入utf-8编码格式的文件

读取UTF-8格式的文件内容 function LoadUTF8File(AFileName: string): string; var ffileStream:TFileStream; fAnsiBytes: string; S: string; begin ffileStream:=TFi......

2018/10/31 10:38
1.1K
Ehlib 单元格 图像绘制 代码

// 绘制 BMP 格式图像 procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); var bmp : TBitmap;...

2018/10/31 10:32
43
ehlib 修改 使指示区背景色 和 数据区 背景色一致

对ehlib 显示效果不够满意,而做的调整 修改这个过程: procedure TCustomDBGridEh.DrawIndicatorCell(ACol, ARow: Longint; AreaCol, AreaRow: Longint; ARect: TRect; AState: TGridDrawS...

2018/09/26 06:56
66
收邮件 下载附件

uses IdMessage, IdMessageParts, IdAttachment, IdGlobalProtocols, ...; procedure SaveAttachmentsFromFile(FileName: String) var IdMessage: TIdMessage; MsgPart: TidMessagePart; Hea...

2018/09/22 10:06
107
获取桌面路径

Function SHGetSpecialFolderLocation(hwndOwner: HWND; nFolder: Integer; var ppidl: PItemIDList): HResult; stdcall; Function SHGetPathFromIDList(pidl: PItemIDList; pszPath: PChar)...

2018/09/13 12:55
56
Zeosdbo 连接 Mysql

之前发的 搜 不到了,为了方便,再补发如下: ZConnection1.Protocol := 'mysql-5'; ZConnection1.ControlsCodePage := cGET_ACP; ZConnection1.ClientCodepage := 'utf8'; ZConnection1.Aut...

2018/08/27 10:02
112
AlphaControls 对 NoteBook 非首页未开启皮肤问题解决

AlphaControls 是 著名的 Delphi 第三方皮肤组件,使用非常方便,只需加一个 TsSkinManager 组件,再指定所用皮肤名,即可对 Delphi 开发的程序进行美化。但使用中发现有一个组件 NoteBook, ...

2018/08/23 09:00
48
Delphi访问网络共享文件夹

var NetResource: TNetResource; Result: cardinal; // ... NetResource.dwType := RESOURCETYPE_DISK; NetResource.lpLocalName := nil; NetResource.lpRemoteName := '\\192.168.0.100\dir...

2018/07/28 15:47
232

没有更多内容

加载失败,请刷新页面

返回顶部
顶部