导航

随笔分类 -  Delphi

Using Semaphores in Delphi, Part 2: The Connection Pool

摘要：Abstract: Semaphores are used to coordinate multiple threads and processes. That semaphores provide multiple threads with simultaneous access to a sha 阅读全文

posted @ 2023-01-23 11:29 wissly 阅读(508) 评论(0) 推荐(0)

Delphi 关于RichEdit URL 颜色相关总结

摘要：一、代码改变字体大小和颜色 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 sNickName, sstr: string; 4 begin 5 sstr := '改变颜色的字符串 !'; 6 sNickName := '用户1：' 阅读全文

posted @ 2022-04-27 10:35 wissly 阅读(476) 评论(0) 推荐(0)

DBEditEh/Edit 文本框内容空白时加上提示文字,输入内容时提示文字不显示

摘要：当文本框没有输入内容且输入焦点不在文本框时，显示提示文字：“请输入帐号”当文本框得到输入焦点时提示文字不显示 unit SkinHintEdit; interface uses Windows,Classes,Controls,SysUtils,Messages,StdCtrls,Forms, Gr 阅读全文

posted @ 2021-11-28 11:25 wissly 阅读(218) 评论(0) 推荐(0)

关于TIdTCPClient的几种方法

摘要：关于TIdTCPClient的几种方法 收藏 其实Indy比较简单，但是可以提供的方法太多了。我找了很久，才搞明白。 比方说这个读取缓冲区的数据，就有很多种方法。相对于TTcpClient的几种方法来说，TIdTCPClient确实提供了多种选择，不仔细研究真的容易糊涂（其实我比较喜欢用Curren 阅读全文

posted @ 2021-08-23 20:47 wissly 阅读(420) 评论(0) 推荐(1)

关于 indy Idhttp Post数据抛异常 connection closed Gracefully

摘要：delphi 使用indy -idHttp 控件post 数据时 会报connection closed Gracefully这个异常的问题。 网上找了很多方法最多的就是 修改: MyHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6 阅读全文

posted @ 2021-01-04 11:50 wissly 阅读(863) 评论(0) 推荐(0)

delphi 给 Timage 加上滚动条方法

摘要：delphi Timage 加上滚动条的方法 1:将 Timage 放入 TScrollBox内，即 [1]设image1.parent:= ScrollBox1; [2]在Object Inspector中将 Timage 拖到 TScrollBox上，使之成为子结点 [3]先拖一个TScroll 阅读全文

posted @ 2020-08-26 19:43 wissly 阅读(510) 评论(0) 推荐(0)

CODE128不同编码方式之间的混合编码

摘要：众所周知，CODE128码广泛用于企业内部、物流系统之中，然而，对于该类条码，却又有着不同种类的细分（主要分为以下四种：code128A，code128B，code128C，ean128）。 主要区别如下： code128A：标准数字和大写字母,控制符,特殊字符 code128B：标准数字和大写字母 阅读全文

posted @ 2020-06-03 11:29 wissly 阅读(2236) 评论(0) 推荐(0)

Delphi使程序的窗口出现在最前面并激活

摘要：在写程序的时候经常碰到这样的需求，如何使处于后台的程序出现在最前面并得到输入焦点？我在网上搜索了很多次，大致搜到的答案如下：一、最小化的恢复最小化if (IsIconic(Handle)) then ShowWindow(Hanlde, SW_RESTORE)二、使用BringToFront 三、使 阅读全文

posted @ 2019-11-20 19:43 wissly 阅读(1895) 评论(0) 推荐(0)

Delphi Record To Stream

摘要：type TUserInfo = record sUserId,sUserName:String; iUserCount:integer; end; procedure TForm1.Button1Click(Sender: TObject); var fStream:TMemoryStream; fUserRec,sUserDD:TUserInfo; sDataText:... 阅读全文

posted @ 2019-01-19 18:00 wissly 阅读(381) 评论(0) 推荐(0)

用idhttp打开网页或下载文件时如何显示进度

摘要：在它的workbegin work事件中写代码 procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin ProgressBar 阅读全文

posted @ 2013-11-27 22:48 wissly 阅读(491) 评论(0) 推荐(0)