05 2022 档案

解决delphi indy10下 utf8码转换的问题
摘要：用delphi2010调试一个以前的程序，因为以前的程序是delphi7下编写的，大家都知道delphi7下的用的是indy9，后面的主流版本都是用indy10啦。 所以以前用的 Temp1 := UTF8Decode(Temp);Temp1 := Utf8ToAnsi(Temp);Temp1 := 阅读全文
posted @ 2022-05-23 14:54 朱颂东 阅读(415) 评论(0) 推荐(0)
Delphi TServerSocket 发送消息之前检查客户端是否仍处于连接状态
摘要：TServerSocket：如何在发送消息之前检查ListView上的特定客户端是否仍处于连接状态？ 无需检查连接。如果客户端实际上已断开连接，则在触发处理程序Connections[]时，该客户端将不再位于服务器列表中OnTimer。您应该为OnClientDisconnect分配了处理程序，以T 阅读全文
posted @ 2022-05-20 19:26 朱颂东 阅读(382) 评论(0) 推荐(0)
delphi @ 与 ^ 运算符
摘要：@ 与 ^ 运算符//例1：procedure TForm1.Button1Click(Sender: TObject);varstr: string;p: Pointer;beginp := @str; //变量 str 的地址p := @Form1; //变量 Form1 的地址p := @TF 阅读全文
posted @ 2022-05-19 22:24 朱颂东 阅读(473) 评论(0) 推荐(0)
delphi 圆形头像
摘要：procedure TfraItem.circleImage;var Bmp: TBitmap; Rhandle: HRGN; filename:string;begin Bmp := TBitmap.Create; Bmp.Assign(Image1.Picture.Graphic); Rhand 阅读全文
posted @ 2022-05-19 10:34 朱颂东 阅读(179) 评论(0) 推荐(0)
delphi RichView的使用介绍
摘要：delphi RichView的使用介绍 RichView 组件 由 9 个组件模块组成，分别是： 1、TRVStyle：主要是定义RICHVIEW样式，定义后，其它RIHCVIEW都可以引用此样式。 2、TRichView ：主要用于显示文本，图像，等等 3、TRichViewEdit： 主要用于 阅读全文
posted @ 2022-05-19 09:15 朱颂东 阅读(513) 评论(0) 推荐(0)
richview 添加表格
摘要：richview 添加表格procedure TForm1.mitInserttable1Click(Sender: TObject);var table: TRVTableItemInfo; r, c: Integer;begin table := TRVTableItemInfo.CreateEx(4, 3, RichV 阅读全文
posted @ 2022-05-19 09:07 朱颂东 阅读(59) 评论(0) 推荐(0)