综合其他

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

RSS

下级分类:

综合其他

DelphiRegister

unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ShellAPI,TLHelp32;type TForm1=class(TForm) Button1:TButton; proced……

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

Delphi获取计算机名，IP地址，登录用户。

得到本地计算机名functionGetComputerName:AnsiString;var lpBuffer:arrayofchar; dwSize:DWORD;begin dwSize:=MAX_PATH; ifnotWindows.GetComputerName(lpBuffer,dwSize)then raiseEx……

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

delphi自动滚动到最底端scroll

自动滚动到最底端scrollUsesMSHTML;{$R*.dfm}var ScrollPos:integer=0;procedureTForm1.Button1Click(Sender:TObject);begin inc(ScrollPos,10); ifWebBrowser1.Documentamp;amp;lt;amp;amp;gt;nilthen ...……

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

pickupword'sshapesforDelphi

unitWordApp;interfaceuses Windows,Messages,Forms,SysUtils,Variants,Classes,Graphics,Controls,StdCtrls, Dialogs,ExtCtrls,types,OleCtnrs,dbtables,db,OleServer,Word2000,Office2000, ……

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

问题-delphi程序在某电脑中显示？？？问号乱码

问题现象：delphi程序在某电脑中显示？？？问号乱码问题原因：因为语言的原因。不同的国家可能显示的编码不一样。问题处理：“控制面板”amp;amp;gt;“区域和语言选项”amp;amp;gt;“区域选项”amp;amp;gt;“标准和 ...……

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

delphiFastReport安装方法

(最近记忆力真的不行了，装了很多遍，过段时间重装delphi又不记得了，又要折腾，现在先记录下来，留给下次翻)1.下载安装包，这里提供一个百度云盘共享链接，版本为fastreport5； https://pan.baidu.com/s/1zLsJBtHg ...……

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

delphi10seattle安卓服务开发(三)

delphi10里面的安卓服务有四种，上面的一篇文章里面的图有介绍。今天做一个remoteservice的例子。（里面一部分代码是抄别人的，如果不太清楚，自行恶补） remoteservice实际上就是主程序包含服务模块，另外的一个程 ...……

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

delphi中WEBBrowser网页html相互调用（一）

1、基本操作1.1、激活vardoc,url:Olevariant;beginurl:='about:blank';//或者一个有实际意义的urlWebBrowser1.Navigate2(url);//这样就激活了！end;1.2、写HTML代码vardoc:Olevariant;s:string;begindoc:=WebBrowser ...……

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

DELPHISOKET编程--使用TServerSocket和TClientSocket

本文采用delphi7+TServerSocket+TClientSocket; 笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享 ...……

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

delphi如何加上spliter分割条，任意调整大小

如题1：如何把一个panel分割成四个小的panle2：也就是如何加上spliter，分割条，任意调整大小3、如何有独立的handle使用多个总共5个为什么呢，你放4个panel然后放spliter，不行吗？？放5个不够，1、先在窗体放一个大 ...……

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

提升Delphi编程效率必须使用的快捷键(Delphi2007版本)

1. 这两个快捷键都是在代码编写过程中用到的，起提示作用，使用频率最高。 CTRL+空格：在当前光标处提示有哪些变量、函数可以使用。这个功能对于无法准确写出函数名非常有用，你不需要去记住每个函数的名字，只 ...……

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

DELPHI美化界面（2009开始TPanel增加了ParentBackGround）

1.透明问题。要重新调整界面确实很麻烦，以前用DELPHI开发的界面都很土，和WEB真是没办法比。（我以前用的是DELPHI7），现在回想起来，DELPHI难做的原因是：没有透明控件。所有控件都是不透明的，并且大部分控件就是 ...……

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

delphiFormat用法

转载至：http://www.delphifans.com/infoview/Article_731.htmlFormat是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：functio ...……

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

Delphi获取其它进程窗口句柄的3种方法

本文主要跟大家介绍Delphi中获取其它进程的窗口句柄，在Delphi中获取其它进程的窗口句柄，绝大部分人首先想到的会使用：FindWindow或者用GetWindow来遍历查找，如：handle:=FindWindow(nil,PChar('窗口的标题'));或 ...……

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

Delphi键盘APIGetKeyState、GetAsyncKeyState-获取键盘/按键值Key的状态

Delphi键盘APIGetKeyState、GetAsyncKeyState-获取键盘/按键值key的状态1、GetKeyState作用：检索指定虚拟密钥的状态。状态指定该键是向上、向下还是切换（每次按该键时交替打开、关闭）。原型：SHORTGetKeyState(in ...……

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

Delphi中如何获取TDateTimePicker控件的属性值

参考资料:http://www.delphipages.com/forum/showthread.php?t=103412vardtpDate:TDateTimePicker;begindtpDate.Format:='yyyy-MM-dd';ShowMessage('时间:'+FormatDateTime('yyyy-MM-dd',dtpDate.Date)……

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

Delphi在线程中如何使用TClientSocket组件并自动检测该组件

在线程中如何使用TClientSocket组件并自动检测该组件的事件？我想在一个线程中动态创建一个TClientSocket组件，并要求该组件能够自动检测Socket事件（例如OnRead、OnError），如何实现？------解决方案------------- ...……

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

Delphi基础Write写入结构体到文件

programWriteStruct;{$APPTYPECONSOLE}usesSysUtils;//写入结构体typeTCustomer=recordID:string;Code:string;Name:string;end;varCustomers:arrayo……

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

DELPHI的split函数的各种实现方法（转）

一、单字符functionsplit(s,s1:string):TStringList;beginResult:=TStringList.Create;whilePos(s1,s)amp;amp;gt;0dobegin Result.Add(Copy(s,1,Pos(s1,s)-1)); Delete(s,1,Pos(s1,s));end;Result.Add ...……

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

delphiif...else...语句和函数参数传递

1if语句对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。条件用布尔表达式建立，句子中的条件部分可以是一系列条件（用and、or、not等布尔操作符联接起来），if语 ...……

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

delphiaction学习

procedureTEditAction.UpdateTarget(Target:TObject);beginif(SelfisTEditCut)thenEnabled:=(GetControl(Target).SelLengthamp;amp;gt;0)andnotGetControl(Target).ReadOnlyelseif(SelfisTEdi……

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

Delphi初浅入门笔记之九：多媒体编程二(媒体播放器控件篇)

媒体播放器控件unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,MPlayer,StdCtrls,ExtCtrls;type TForm1=class(TForm) ……

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

使用delphi开发多层应用（十八）使用Basic4android访问RTC服务的二进制流(照片) ...

上次写了b4a通过xmlrpc访问rtc的远程服务，有网友询问如何通过b4a访问RTCweb的二进制流，例如如何下载服务器上的照片，其实访问二进制流和访问字符串类似，不同的地方是，由于是通过http协议，对于二进制流， ...……

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

delphiWebBrowser的使用方法详解（五）-难点释疑

http://blog.csdn.net/xtfnpgy/article/details/15809635网页代码：amp;amp;lt;SELECTid=fyonchange=TouchRefresh(1)name=fyamp;amp;gt;amp;amp;lt;OPTIONselectedvalue=15amp;amp;gt;每頁顯示15筆amp;amp;lt;/OPTIO ...……

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

Delphi试题51道

Delphi试题51道1.dbExpress组件访问数据库是通过哪种方式与特定的数据库连接的？（C）A.BDEB.其他三项都不是C.DbExpress自己的数据库连接DLLD.ODBC2.在try语句中使用多个except语句可以处理多个不同的异常情况。（A ...……

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

Apollo，Python，Delphi与Oracle之间的神话关系

在希腊历史上Delphi曾被认为是世界的中心，Apollo杀死Python后将其据为己有，在其神庙上刻有Oracle，曰：Γνωθιδεαυτόν（认识你自己自身关怀，Cognosceteipsum,Connais-toi toi-même）。Borland公司 ...……

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

delphiRTTI四获取类属性列表

delphiRTTI四获取类属性列表 GetPropList(btn1.ClassInfo,tkAny,PropList) PropCount:=GetTypeData(btn1.ClassInfo).PropCount;……

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

Delphi使用Indy、ICS组件读取网页

使用Indy10中TIdHTTP的例子：代码usesIdHttp;...functionHttpGet(constUrl:string;varHtml:string):Boolean;varHttpClient:TIdHTTP;beginResult:=False;HttpClient:=TIdHTTP.Create(nil);……

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

delphi程序向另一个可执行程序发消息（使用GetForegroundWindow;找出当前操作系统中活 ...

functionFindWindowThroughWindowText(WindowText:string):THandle;var hCurrentWindow:THandle; cnt:Integer; WindowTitle:arrayofChar;begin Result:=INVALID_HANDLE_VALUE;//返回值预设为无效……

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

Delphi直接实现分享图片功能

procedureTCustomCameraViewDoc.ShareTextClick(Sender:TObject);varFSharingService:IFMXShareSheetActionsService;begininherited;//分享照片TPlatformServices.Current.SupportsPlatformService(……

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

Delphi10.1.2berlin开发跨平台APP的几点经验

1.ios不允许app有退出功能，所以不能调用Application.Terminate.2.info.plist文件的自定义：info.plist文件是由info.plist.TemplateiOS.xml生成的，如果需要定制info.plist内容，则修改info.plist.TemplateiOS.xml即 ...……

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

Delphi中滚动文字的应用1.添加一个Timer控件，Interval属性设置为20。 ...

2.添加一个Label控件，Name为labMessage。3.在Timer的OnTimer事件添加如下代码：procedureTForm1.Timer2Timer(Sender:TObject);beginlabMessage.Left:=labMessage.Left-1;iflabMessage.Left+labMessage.Width=0t ...……

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

DelphiXE4Upate1更新升级记录.

一直没时间,这两天折腾了一下升级了. 其实也可能修了老bug引入新bug.呵呵.看看Emb都修了什么吧. 我干脆是重新安装的.虽然官方也有一个单独的update.exe. 从这些bug列表里我选了一些和Firemonkey有关的.其实这些bu ...……

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

Delphi下调用有返回值的存储过程

StorPro:=TADOStoredProc.Create(nil); 然后定义存储过程的名字和输入参数：StorPro.ProcedureName:=ProName;StorPro.Parameters.clear;StorPro.Close;StorPro.Parameters.CreateParameter('as_gh',ftString,pdInpu ...……

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

delphi自定义函数声明

如果需要让别的单元可以调用，可以新建一个公共单元并在interface部分,var声明如下。unitUnit_common;interfaceuses SysUtils;//如有必要还可添加其它单元名。var functionmytest(i:integer):string;implement ...……

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

如何分析一个已有的Delphi项目源代码

分析一个已有的Delphi项目，应该从以下入手（按先后顺序）：1.编译条件，包括自定义的Condition以及inc文件里的标识2.主项目文件dpr，因为窗体的windows消息循环只是程序的一部分，可稍后启动。3.各个单元的initiali ...……

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

Delphi实现任务栏多窗口图标显示（使用WS_EX_APPWINDOW风格）

usesWindows;typeTfrmLogin=class(TForm)end;implementation{$R*.dfm}procedureTfrmLogin.FormCreate(Sender:TObject);beginSetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTY……

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

《zw版·delphi与halcon系列原创教程》zw版_THImagex控件函数列表

《zw版·delphi与halcon系列原创教程》zw版_THImagex控件函数列表Halcon虽然庞大，光HALCONXLib_TLB.pas文件，源码就要7w多行，但核心控件就是两个：THImagex，图像数据控件，v11版，包括488个函数和子程序THOperato ...……

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

【Delphi】zz获取本月第一天和最后一天的最简单的写法

procedureTForm1.FormCreate(Sender:TObject);varfirstDay,lastDay:TDateTime;beginfirstDay:=StrToDate(FormatDateTime('yyyy-mm-1',Now));(*本月第一天*)lastDay:=IncMonth(firstDay)-1;……

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

DELPHI中的记录类型【存储方式和变体记录】(record)

一、DELPHI中记录的存储方式在DELPHI中，我们用record关键字来表明一个记录，有时候，我们还会看到用packedrecord来声明的记录，这二者的区别就在于存储方式的不同。在windows中，内存的分配一 ...……

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