综合其他

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程›综合其他

RSS

下级分类:

综合其他

OD实验(十二)-对一个Delphi程序的逆向

运行程序界面显示的是未注册点击Help-amp;amp;gt;About点击UseRegKey这里输入注册码用PEiD看一下该程序是用Delphi6.0-7.0写的逆向：用OD打开程序右键-amp;amp;gt;查找-amp;amp;gt;所有参考文本字串然后右键-amp;amp; ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：159 | 回复：0
综合其他

Delphi解析修改Json文件，基于superobject.pas（ISuperObject）

在经过一系列的波折后，还是觉得delphi读取并修改json文件来的方便；在网络上找到一个delphi的三方库ISuperObject，添加到项目后直接引用就行；下载地址ISuperObject中几个常用的函数：function SO(consts:SOString ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：175 | 回复：0
综合其他

Delphi调用COM

unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComObj, StdCtrls, DscEdit;type TForm1 = class(TForm) ed1: TDsEdit; ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：180 | 回复：0
综合其他

用Delphi制作DLL的方法-

用Delphi制作DLL的方法文前：一本介绍电子书籍https://files.cnblogs.com/liangqihui/DelphiDLL.rar 一Dll的制作一般步骤二参数传递三DLL的初始化和退出清理四全局变量的使用五调用静态载入六调用动态载入七在DLL建 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：220 | 回复：0
综合其他

delphi中获取memo鼠标所在位置的行和列（通过EM_GETRECT消息取得Rect后，自己算一下） ...

也是看别人写的，但是不容易找到，就转发一篇delphi版本的functionGetLine(X,Y:integer):TPoint;var OldFont:HFont; Hand:THandle; TM:TTextMetric; Rect:TRect;begin Hand:=GetDC(mmotest.Handle); try ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：162 | 回复：0
综合其他

一步一步用delphi实现webservice

本文介绍的是如何用Delphi6开发WebService程序，并把服务程序放在IISWeb服务器上提供给各种客户程序调用。一编写服务程序第一步：File-----amp;amp;gt;New-----amp;amp;gt;Other------amp;amp;gt;WebServices-----am ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：161 | 回复：0
综合其他

DelphiMaskEdit用法

MaskEdit是用来建立编辑框的，但它与Edit编辑框可以输入任意字符不同，MaskEdit可以限制用户只能按照既定的输入格式输入。掩码编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入格式。在选用Ma ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：153 | 回复：0
综合其他

delphi异常捕获tryexcept语句和tryfinally语句用法

原文地址：delphi try except语句和 try finally语句用法以及区别一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!)一、异常的来源在 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：171 | 回复：0
综合其他

Delphi中的字符串（还解释了shortstring）good

一、Delphi 2009 之前的字符串（不支持Unicode）：Delphi 2009 之前的字符串分为 3 种：ShortString、AnsiString、WideString。【ShortString】ShortString是一种比较古老的Pascal字符串格式，它最多只能容纳 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：176 | 回复：0
综合其他

delphi面向对象编程思想之：对象、对象引用、对象克隆

一，示例一，理解对象的引用：我们要搞清楚进行对象赋值的两个不同概念，其一，是使用赋值操作符（：=）将一个对象的引用赋值给一个对象变量，产生的效果是这两个变量指向的是同一个对象。其二，使用Assign或AssignT ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：200 | 回复：0
综合其他

Delphi代码中嵌入ASM代码（简单明了）

前言Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：250 | 回复：0
综合其他

Delphi10.2Tokyo的新特性

Delphi10.2（Tokyo）出来一段时间了，最重要的新特性就是支持Linux的服务端。官网有详细的介绍：这里是主要的特性介绍：https://www.embarcadero.com/products/rad-studio/whats-new-in-10-2-tokyo这里是详细的更新 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：188 | 回复：0
综合其他

delphiTFile写入文本

//需要引用System.IOUtils单元procedureTForm7.Button3Click(Sender:TObject);varsFileName:string;tstream:TStreamWriter;beginMemo1.Clear;Memo1.Lines.Add(TPath.GetFileName(Application.ExeName));……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：162 | 回复：0
综合其他

DelphiDll中多线程无法使用Synchronize同步的解决方法(转)

具体原因可以参考这篇文章“DLL/ActiveForm中的线程同步处理”www.delphibbs.com/keylife/iblog_show.asp。事实上，经试验可以在dll工程文件中加入以下语句：Application.Initialize;ifApplication.Handle=0thenbegi ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：138 | 回复：0
综合其他

Delphi编写菜单权限设置的一个方法《LceMeaning》

以下本人在DelphiXE2进行编写并通过unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.Com ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：143 | 回复：0
综合其他

delphi将图片存储到sqlserver2005

sqlserver2005字段类型为image delphi使用的单元为jpeg,db,dbtables;delphi存储图片代码片段procedureTForm1.btnPostClick(Sender:TObject);var lMemoStream:TMemoryStream; jpg:TJpegImage;begin lMemoStream ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：143 | 回复：0
综合其他

DelphiADOConnection连接

unitUnit_DM;interfaceusesSysUtils,Classes,DB,ADODB,inifiles,windows,forms,controls; typeTDM=class(TDataModule)ADOConn:TADOConnection;DS_BomFind:TDataSource;Qry_BomFind:TADOQuery;procedure……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：160 | 回复：0
综合其他

Delphi事件的广播

原文地址：Delphi事件的广播转作者：MondaySoftware明天就是五一节了，辛苦了好几个月，借此机会应该尽情放松一番。可是想到Blog好久没有写文章，似乎缺些什么似的。这几个月来在项目中又增长了许多经验，学到许多 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：164 | 回复：0
综合其他

Delphi与C/C++数据类型对照表

Delphi数据类型C/C++ShorInt8位有符号整数charByte8位无符号整数BYTE,unsignedshortSmallInt16位有符号整数shortWord16位无符号整数……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：167 | 回复：0
综合其他

Delphi之标签组件(TLabel组件)

标签组件是比较常用的组件，现在来看看标签组件的常用的基本属性： Align 它的作用是和窗体对齐，对齐的方式有alNone,alTop,alBottom,alLeft,alRight,alClient,alCustom.Alignment 它的作用是标签文本显示的位 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：172 | 回复：0
综合其他

判断当前进程是否以管理员权限运行（AllocateAndInitializeSid后，用CheckTokenMember ...

在Win7下（Vista以上的...）有时某些操作就是会让人郁闷开启了UAC的话，得以管理员权限运行才不会出现Accessisdenied。。。但是，程序又不是非得什么时候都用那破管理员权限的总不能在manifest里加权限，然后用户运 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：195 | 回复：0
综合其他

delphixe10.4新功能介绍

原链接此文为使用DeepL机翻并进行了略微的调整。在10.4中，我们重新实现了代码完成和其他功能，这是IDE十年来最重要的变化之一。什么是CodeInsight首先是一些背景。如果你对CodeInsight很熟悉，请跳过前面……Code ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：500 | 回复：0
综合其他

Delphi导出数据至Excel的7种方法

一;delphi快速导出excelusesComObj,clipbrd;functionToExcel(sfilename:string;ADOQuery:TADOQuery):boolean;constxlNormal=-4143;vary:integer;tsList:TStringList;s,filename:string;aSheet:Vari……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：157 | 回复：0
综合其他

禁止Delphi2010检测新版本

启动Delphi2010后,Delphi2010总会提示下载更新包,而对于D版用户来说,这个功能可能反而带来麻烦,那么有解决办法吗?答案是肯定的. Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Cod ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：150 | 回复：0
综合其他

delphijson生成和解析

delphijson生成和解析使用DELPHI自带的JSON类。 usesSystem.JSON;procedureTForm1.Button1Click(Sender:TObject);//解析JSONbeginvarjo:TJSONObject:=TJSONObject.ParseJSONValue('{amp;quot;nameamp;quot;:amp;quo ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：142 | 回复：0
综合其他

[Delphi]检查URL是否有效的函数

functionCheckUrl(url:string):boolean;varhSession,hfile,hRequest:hInternet;dwindex,dwcodelen:dword;dwcode:arrayofchar;res:pchar;beginifpos('http://',lowercase(url)……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：141 | 回复：0
综合其他

Delphi启动数据库连接属性对话框

有时候需要客户端进行服务器连接配置，自己写配置窗体，总不如直接使用系统提供的使用方便快捷例子一：//此例子有个坏处不管用户点了确定还是取消，均返回值procedureTForm1.Button1Click(Sender:TObject);varconnSt ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：136 | 回复：0
综合其他

delphi微信(WeChat)多开源代码

在网上看到一个C++代码示例：原文地址：http://bbs.pediy.com/thread-217610.htm觉得这是一个很好的调用windowsapi的示例，故将其转换成了delphixe8 源码下载:OpenNewWechat下面给出所用到的windowsapi定义unituWin ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：150 | 回复：0
综合其他

delphi注册热键方法（一）

useswindows,menus;.....//声明HotKey_Key:Word;HotKey_Shift:Word;procedureWMHotKey(varmsg:Tmessage);messageWM_HOTKEY;......functionShiftStateToWord(Shift:TShiftState):Word;beginif……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：132 | 回复：0
综合其他

Delphi记录Record和字符串String相互赋值

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typePUpData=^TUpData;TUpData=recorda1:arrayofch……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：148 | 回复：0
综合其他

DELPHI---返回某月有多少天,是星期几

今天有要求想返回一个月有多少天,在网上找了找,用以下的函数可以实现. ; 比较可以学习和借鉴的地方是MonthDays和IsLeapYear函数的实现:)); 判断是否为润年:;闰年的计算方法：公元纪年的年数可以被四整除，即 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：137 | 回复：0
综合其他

DELPHI如何封装http.sys

DELPHI如何封装http.syshttp.sys是windows操作系统内核级实现的支持高并发的http通讯协议，是为了https而开发。思路：windows操作系统将HTTP.SYS通讯协议封装在httpapi.dll动态库里面。任何开发语言通过加载此动态库 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：134 | 回复：0
综合其他

Delphi3DGlscene安装

GLScene开源库Delphi基于提供OpenGL的3D框架。由GLScene组件，您可以轻松地创建和渲染你的3D幕后。令人奇怪的是，。对于这样一个很好的开源库。该网络无法找到完整的安装说明，甚至GLScene身的官方文档也是不完整的 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：156 | 回复：0
综合其他

咏南中间件和开发框架全面支持DELPHI10.3.2

咏南中间件和开发框架全面支持DELPHI10.3.2 易博龙公司2019年7月12日发布了RADSTUDIO10.3.2正式版本。咏南中间件自2019年7月14日始，中间件、CS框架、WEB框架、WEBAPP框架，原生APP框架，全面支持DELPHI10.3.2。 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：163 | 回复：0
综合其他

利用Delphi编写Socket通信程序

一、Delphi与Socket计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：158 | 回复：0
综合其他

Delphi正则表达式Delphi正则表达式起步

目录基本用法转义字符边界临界匹配匹配模式选项安装步骤：Delphi正则表达式起步基本用法：withregdobeginSubject:=str;//要进行操作的字符串RegEx:=str1;//要被替换的子字符串Replacement:=str2;//被替换成的字符 ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：166 | 回复：0
综合其他

TMsgThread,TCommThread--在delphi线程中实现消息循环

http://delphi.cjcsoft.net//viewthread.php?tid=635在delphi线程中实现消息循环……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：196 | 回复：0
综合其他

Delphi中滚动文字的应用

1.添加一个Timer控件，Interval属性设置为20。2.添加一个Label控件，Name为labMessage。3.在Timer的OnTimer事件添加如下代码：procedureTForm1.Timer2Timer(Sender:TObject);beginlabMessage.Left:=labMessage.Left- ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：205 | 回复：0
综合其他

[转载红鱼儿]delphi实现微信开发（2）接入微信公众号平台

先要学习一下接入的资料，在这里，因为原理都在，所以一定要认真阅读，然后，利用Delphi实现一个对应函数，然后申请微信公众平台接口测试帐号。functionCheckSignature(constsignature,timestamp,nonce,token:string ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：267 | 回复：0
综合其他

Delphi自定义消息应用及delphi托盘实现

Delphi自定义消息应用及delphi托盘实现interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms，Dialogs,StdCtrls，shellapi;const WindowsMessage=WM_USER+101 ;procedureUserP ...……

作者：菜鸟教程小白 | 时间：2022-7-18 19:45 | 阅读：282 | 回复：0