综合其他

OStack程序员社区-中国程序员成长平台 › 门户 › 编程›综合其他

RSS

下级分类:

综合其他

DelphiOleVariant转化成string

usesVariants;VarToStr();如果返回的是一个数组的话varUTempPoint:Pointer;UOutArr:arrayofstring;//假设返回的是1维数组有6个元素beginUTempPoint:=VarArrayLock(返回的OleVariant变量);//锁定输出变体数组tryMove( ...……

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

delphistring,pchar,char的比较

来自：http://blog.163.com/kat_/blog/static/189284269201152513331999/-------------------------------------------------------------------------------------tring和Char数组都是一块内存,其中存放连续的字符. ...……

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

Delphi窗体显示后弹出一个对话框的方法

今天要实现一个功能就是delphi窗体显示后弹出一个模式对话框，一开始就在formshow方法中加入弹出对话框的方法，没想到居然先弹出对话框而没有弹出窗体，郁闷良久，采用在formshow时发消息的方法实现该功能。后来仔细 ...……

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

Delphi使用迅雷的开放下载引擎下载

迅雷的下载貌似开放了引擎，也就是说，咱们可以写程序用迅雷的下载引擎下载文件了。下载地址http://thunderplatform.xunlei.com/不过，下载的东西，给了一个SDK和一个DLL，只要调用DLL中的相关函数，就能下载 ...……

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

删除方法申明时删除所有引用与方法体(Delphi2007)

安全删除一个函数找到方法实现,选择方法名-amp;amp;gt;鼠标右键-amp;amp;gt;Refactoring-amp;amp;gt;SafeDelete注意:方法无使用的情况下可以这样做,否则提示不可删除2,把一条语句转成方法选择一条语句-amp;amp;gt;Re ...……

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

delphi的TFileStream内存流

一、文件文本文件是以行为单位进行读、写操作的。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。二、定义FileStream:TFileStream;三、打开文件Filestream:=TFileStream.Cre ...……

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

Delphi下多显示器，将窗体显示于第二个显示器

Form1.MakeFullyVisible(screen.Monitors); withForm1 dobegin {Positionform} Top:=0; Left:=0; {Gofullscreen} BorderStyle:=bsNone; WindowState:=wsmaximized; ClientWidth:=Screen.……

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

delphi循环校验数据集

functionXXXXXFrom.CheckData(Sender:TObject):Boolean;vartmpcds:TfwClientDataset;beginResult:=False;tmpcds:=TfwClientDataset.Create(nil);trytmpcds.CopyFromDataSet(fcdsImport);……

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

DelphiControlCount和ComponentCount的区别

ComponentCount指打开的窗体所拥有的控件个数，包含所有子组件、孙组件(子组件内的子组件)如上图，Form1的ComponentCount是13，而Panel1的ComponentCount为0ControlCount指有多少个控件将自己做为父容器。只向下 ...……

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

delphiabsolute应用实例

procedureTForm1.Button1Click(Sender:TObject);var i1,i2:Integer; b:arrayofByteabsolutei1;//b在这里跟i1共用地址begin i1:=1234; i2:=MakeLong(MakeWord(b,b),MakeWord(b,b……

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

C#调用DelphiDll链接库方法及示例

每种编程语言调用DLL的方法都不尽相同，在此只对用C#调用DelphiDLL的方法进行介绍首先要搞清楚一点的是：什么是托管,什么是非托管？一般可以认为：非托管代码主要是基于win32平台开发的DLL，activeX的组件，托管代码 ...……

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

Delphi弹出Windows风格的选择文件夹对话框，还可以新建文件夹

Delphi弹出Windows风格的选择文件夹对话框，还可以新建文件夹 unitUnit2;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,FileCtrl,Buttons,shlob ...……

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

[导入]delphi的分离字符串函数split

delphi的分离字符串函数split文章来源:http://blog.csdn.net/Open2ye/archive/2006/05/08/713620.aspx……

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

delphi函数参考

delphi函数参考----------------------------------------------------------------------------------abort函数引起放弃的意外处理abs函数绝对值函数addexitproc函数将一过程添加到运行时库的结束过程表中addr函数 ...……

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

Delphi 获取Ip地址的方法总结

想到Windows会把系统网卡相关信息存入注册表，肯定可通过注册表读取具体ip信息。大致思路是找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards ，由NetworkCards得分支表示各个网卡 ...……

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

DELPHI动态创建窗体

//第一种方式 procedure TForm1.btn1Click(Sender: TObject); begin With TForm2.Create(Application) do Try ShowModal; finally free; end; end; //第二种方式 procedure TForm1.btn2Click(Sender: TObjec ...……

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

Delphi命名规范

参考VCL的代码，结合笔者近两年来的一些经验，可以简单总结出一套Delphi下常用的命名规范。类型定义（type）包括class、record、枚举、procedure/function变量等所有写在type下的类型定义用大写的T开头，例如TList（ ...……

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

用Delphi写Hook Dll的时候一点注意

表现是Hook的时候没问题，当Unhook的时候报内存访问错误。把ShareMem从Uses列表中去掉之后就不报错了。……

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

delphi判断文件是否在被使用中。

procedureTForm1.Button1Click(Sender:TObject);begin ifOpenDialog1.ExecutethenbeginifIsFileInUse(OpenDialog1.FileName)=truethenshowmessage('文件正在使用')elseshowmessage('文件没有使用');end;end; ...……

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

delphiFiremonkeyListBoxItem自绘

delphiFiremonkeyListBoxItem自绘ListBoxItem1的事件ListBoxItem1PaintprocedureTForm1.ListBoxItem1Paint(Sender:TObject;Canvas:TCanvas;constARect:TRectF);beginif(SenderasTListBoxItem).IsSelec……

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

《zw版·Halcon-delphi系列原创教程》Halcon分类函数013,shape模型

《zw版·Halcon-delphi系列原创教程》Halcon分类函数013,shape模型为方便阅读，在不影响说明的前提下，笔者对函数进行了简化：::用符号“**”，替换：“procedure”::用大写字母“X”，替换：“IHUntypedObjectX”:: ...……

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

Delphi写的ActiveX控件如何返回数组到Vbscript/javascript

Delphi写的ActiveX控件如何返回数组到Vbscript/javascriptDelphi/WindowsSDK/APIhttp://www.delphi2007.net/DelphiAPI/html/delphi_20061120161640191.html 各位，用VBScript调用ActiveX很容易送入一个Variant参 ...……

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

Delphi转换大小写字符（UpperCase、LowerCase）

Delphi转换大小写字符（UpperCase、LowerCase）1、UpperCase//转换成大写functionUpperCase(constS:string):string;varCh:Char;L:Integer;Source,Dest:PChar;beginL:=Length(S);SetLength(Result,L……

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

Delphi下检查SQLServer服务器当前运行状态！

Delphi下检查SQLServer服务器当前运行状态！要求：Ｄｅｌｐｈｉ下随时监控ＳＱＬＳｅｒｖｅｒ状态。１、命令提示符下可用：TELNETamp;amp;lt;SQLServerIPamp;amp;gt;1433检查。２、Ｄｅｌｐｈｉ下如何模拟实现上述功 ...……

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

Delphi的环境配置

Delphi系统安装后，有默认的配置如下：1、在菜单Tools\Options中进行全局配置：主要是：1) EnvironmentOptions（环境） Environment Variavbles:包括（系统变量SystemVariavbles/用户变量UserOverrides） ...……

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

Delphi中函数定义和声明的位置

当函数（或过程）A定义在函数（或过程）B之前，那么函数B就可以调用函数A，并且编译成功，例如下面的procedureTForm1.btn1Click(Sender:TObject);和 functionshowstr:string;unitTest;interfaceusesWindows,Messa ...……

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

Delphi内进行音量控制及静音

unit UMute;interfaceuses MMSystem, Dialogs;Type TDeviceName = (Master, Microphone, WaveOut, Synth);function GetVolume(DN:TDeviceName) : Word ;procedure SetVolume(DN:TDeviceName; Val ...……

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

Delphi_05_Delphi_Object_Pascal_基本语法_03

继续Delphi的学习之旅，废话不多说，直接贴代码。{Delphi基本语法1、对象2、指针3、类型别名和类型转换}programDelphiObject;{$APPTYPECONSOLE}usesSysUtils;type{对象1、对象通过关键字class定义2、对象可以看成是 ...……

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

用Delphi制作网络游戏外挂

转自http://www.bianceng.cn/Programming/Delphi/200711/5418.htm……

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

DelphiforiOS开发指南(3):创建一个FireMonkeyiOS应用程序

http://cache.baiducontent.com/c?m=9d78d513d9d431a94f9d92697d60c015134381132ba1d0020fa48449e3732b4b5012e7ac2652445f93926b6671f01400b3a77d6537727beadadf893acacd933f5c8c3042710bf74005d269b8bb4732b051872c……

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

Delphi解决Utf8ToAnsi和Utf8DeCode转换编码为空的问题

//delphiDecodeUtf8Str解决系统自带UTF8解码缺陷 functionDecodeUtf8Str(constS:UTF8String):WideString; varlenSrc,lenDst :Integer; begin lenSrc :=Length(S); if(lenSrc=0)thenExit; lenDst :=Mu ...……

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

推荐一套免费跨平台的delphi哈希及加密算法库

delphi目前提供了部分哈希及加密算法。但是不是特别全，今天给大家推荐一套免费的、跨平台的算法库。https://github.com/winkelsdorf/DelphiEncryptionCompendium这套库基本上覆盖了常用的hash，cipher代码实现。有 ...……

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

（转载）将DELPHI数据库连接写进INI配置文件中

将DELPHI数据库连接写进INI配置文件中procedureTDM.DataModuleCreate(Sender:TObject);varpiececonfg:Tinifile;pathconfgstr,Providerstr,UserIDstr,Passwordstr,DataSourceStr,DatabaseNamestr:string; ...……

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

（Delphi）第一个Windows32API的窗口程序

programProject1;usesWinapi.Windows,Winapi.messages;{$R*.res}constclassName='MyDelphiWindow';//窗口类名称windowTitle='Delphi使用WindowsAPI创建的窗口';//窗口标题varcurMessage:TMs……

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

Delphi调用API函数获取Windows目录信息、获取System目录信息、获取Temp临时文件目录信 ...

varStr1,Str2:ArrayofChar;//开辟缓冲区Str3:ArrayofChar;beginGetWindowsDirectory(@Str1,256);//调用API函数获取Windows目录信息GetSystemDirectory(@Str2,256);//调用API函数获取System……

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

adoquery查询结果如何赋给一个变量(delphi和c++builder)

我用的是adoquery进行数据库查询，但是我不想把查询的结果显示出来，只是想赋给一个变量，请问我这个变量该怎样去设置呢？回复人：sunriver 回复时间：2005-6-39:11:00procedureTForm1.Button1Click(Sender:TObje ...……

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

[原创]ASP.NETMVC调用Delphi开发的Web报表打印activex组件

作者：mikel原文地址：http://www.mikel.cn最近需要做打印发货单的功能，以前用delphi的reportmachine控件做报表，功能很强大，可以设计报表并且报表文件和程序分离，优点就不多说了，这次需要连纸打印，于是想到用a ...……

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

delphi将DBGRID数据导出到EXCEL表中

先在USES中添加Comobj{功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel();}procedureCopyDbDataToExcel(Args:arrayofconst);var iCount,jCount:Integer; XLApp:Variant; Sheet:V ...……

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

delphi判断线程状态函数（使用GetExitCodeThreadAPI函数去判断线程的句柄） ...

//判断线程是否释放//返回值：0-已释放；1-正在运行；2-已终止但未释放；//3-未建立或不存在functionCheckThreadFreed(aThread:TThread):Byte;var i:DWord; IsQuit:Boolean;begin ifAssigned(aThread)then ...……

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

DelphiMessageBox

MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题， ...……

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