综合其他

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

RSS

下级分类:

综合其他

DelphiSocketDemo

转自 http://www.anqn.com/dev/delphi/2010-01-07/a09122531-1.shtml 自己对中间有点修改，下面是代码服务端部分unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,D ...……

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

delphi执行一个外部程序，当外部程序结束后，delphi程序立即响应 ...

procedureTForm1.Button1Click(Sender:TObject);varSEInfo:TShellExecuteInfo;ExitCode:DWORD;ExecuteFile,ParamString,StartInString:string;beginExecuteFile:='c:\Windows\sy……

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

Delphi中Messagedlg用法

ifMessageDlg('WelcometomyDelphiapplication.Exitnow?',mtConfirmation,,0)=mrYesthenbeginClose;end;MessageDlg用法对话框类型：mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误对话框mti ...……

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

delphiodbc连接mysql数据库时一次运行多条SQL语句的方法

1，问题缘起某个delphi程序使用odbc驱动，通过adoConnection连接mySQL数据库。程序启动时，若数据库不存在则需要创建数据库及其中的表。建表SQL在navicat中运行无误，但在delphi程序中运行出错：Youhaveanerrorinyou ...……

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

Delphi工程选项配置

代码设置（Codegeneration）Optimization：代码优化开关。Alignedrecordfields：字对齐数据。这个编译指令能够在变量和类型化常量的字节对齐和字对齐之间进行切换，其作用是全局的。Stackframes：Windows堆栈帧。 ...……

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

Delphi中使用多线程

这些天在Indy的阻塞式Socket模型的强迫下，开始在Delphi中使用多线程。总结了一些经验，尽管非常肤浅：1、对于VCL的控件大部分VCL的控件的方法和属性是不能保证线程安全的。我粗浅的理解线程安全为如果这个函数同时 ...……

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

没事学学DELPHI~

client: 請問 indy不管是tcp還是udp 傳送訊息只有馬上接訊息的規則嗎? 有� onRead的事件可以使用嗎?當然，使用過Ping沒有？不是有個TTL嗎？當一個封包超過那個時間就會被Router丟掉，不在一定時間讀取，訊息是會不 ...……

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

使用Delphi快速开发ActiveX控件

ActiveX控件也就是一般所说的OCX控件，它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强，目标 ...……

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

delphi加载驱动的代码演示

网上看到一个可以加载驱动的源码。。。收集起来。。。 ……

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

【转】从delphi10.3到delphi10.4的改变实务

https://blog.csdn.net/pulledup/article/details/108139748……

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

Delphi 7-XE系列升级安装Indy10.6

由于低版本Indy无法满足网络技术的日益更新，如SSL/TLS请求、RawHeaders与Cookie管理等问题处理。我本身一直在用Delphi 2007，因为D2009开始底层的编码已不同，旧项目升级XE的话工程量太大，曾升级到Indy 10.2.3解 ...……

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

delphi生成网卡MAC地址

生成MAC地址的小工具： {*------------------------------------------------生成mac地址@[email protected]修改步长最大长度为256，必须为2的n次方长度不超过5位数----------------------------- ...……

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

（42）uniGUI for cBilder&Delphi 为 UniDBGrid 设置控件输入

（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同 ...……

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

delphi,as中的四舍五入问题

困惑我好长时间，终于在网上找到了答案，还是网络好啊！感谢网络,以下是自己写的心得,算是原创吧.写出最简单的实现，希望对和我一样的新手朋友有帮助。(写flashas时也会用到的)1.RoundTo---需要在uses中加入Math保 ...……

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

初学Delphi嵌入汇编[26]-大小写字母转换

//小写字母转大写字母functionFun1(C:Char):Char;asmsubC,32//subC,'a'-'A'{竟也可以这样写}end;//大写字母转小写字母functionFun2(C:Char):Char;asmaddC,32end;//测试procedureTForm1.Button1Click(Sender ...……

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

Delphi6Update2下载地址

https://edn.embarcadero.com/article/28405 https://www.baidu.com/link?url=5CM6vfkmNzIgMIdFHbljQmWeUOO9EyDDxgLXgp4pyhR0iCGBSP8c-IvAAuTxmImOzmbR_tZ6HpaupxKk3XAmc_amp;amp;amp;wd=amp;amp;amp;eqid=cecbda66 ...……

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

7-zip Delphi API

官网已经找不到了。这个地址比较新 https://github.com/zedalaye/d7zip 在这个基础上融合了 SevenZip.pas BUG修改版 - 20160613 - 堕落恶魔 - 博客园 https://www.cnblogs.com/hs-kill/p/3876160.html 然后再加了 ...……

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

delphi字符串处理中的怪异现象与处理

1，怪异现象：字符串相加操作不正常！以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！采用showMessage进行输出，看看结果如何？结果仍是不显示字符 ...……

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

我的Delphi也中病毒了！

前两天在网上看到一则新闻，说是现在发现一款病毒专门感染有Delphi开发环境的机器，也就是说这是一款专门针对Delphi开发人员的病毒。看到这则新闻后，内心不得不佩服病毒作者的思路，太NB了。试想一 ...……

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

Delphi strPas及磁盘阵列再认识

今天代码审核发现我很多问题：先说问题1.程序中调用了Pchar toStr方法，当时用到时好像是delphi有提示此方法就直接用了，被审核出来说可能有内存泄漏，才注意看其实现，原来是我们自己封装的，真正实现代码只有一行R ...……

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

Delphi解压缩Gzip，使用ZlibEx[转]

之前碰到用wininet下载下来的网页的源码为乱码的现象，刚开始以为是编码所致，但尝试各种解码方法之后发现，原来不是编码的问题。而是代码经过压缩了。在HTTP请求头里加上“accept-encoding: gzip, deflat”，可返回 ...……

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

delphi开源框架

delphi开源框架 https://github.com/winddriver/Delphi-Cross-Sockethttps://github.com/ezequieljuliano/DataSetConverter4Delphihttps://github.com/paolo-rossi/delphi-jose-jwthttps://github.com/grijjy/Delphi ...……

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

delphi无边框可拖动窗体

unitUFrmModless;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTFrmModeless=class(TForm)lblInfo:TLabel;btnClo……

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

颜色转换函数:从Delphi到Html

{由Delphi的颜色常数转换到Html颜色}functionHexColorToHtmlColor(c:Integer):string;varR,G,B:Byte;beginR:=cand$FF;G:=(cshr8)and$FF;B:=(cshr16)and$FF;Result:=#35+Format('……

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

用python4delphi开发一个rabbitmq应用

你可以从https://github.com/pyscripter/python4delphi下载vcl。 VCL可以支持python 2.x到3.x，只需要你修改* .inc文件！在我的示例中，我使用变量import * .py并执行它。 procedure TForm1.btnPublishClick(Sender ...……

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

《Delphi算法与数据结构》学习与感悟[7]:链表与数组的异同

首先,上一个例子,用数组也可以实现,并且更简单:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:T ...……

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

delphiIntegeroverflowDelphi中预编译指令

//TheHashingcodewastakenfromDavid'sAnswertomakethisacompleteanswer.{$IFOPTQ+}{$DEFINEOverflowChecksEnabled}{$Q-}{$ENDIF}functionCombinedHash(constValues:arrayofInteger):In……

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

DelphiXE2之FireMonkey入门(3)-关于TPosition

把FireMonkey简称为FM吧.FM的窗体继续使用Left、Top属性,但更多控件不是了.//FM控件的位置控制不再是Left、Top,取而代之的是Position属性procedureTForm1.Button1Click(Sender:TObject);beginRectangle1.Position.X: ...……

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

delphi线程教学第二节：在线程时空中操作界面（UI）

第二节：在线程时空中操作界面（UI） 1.为什么要用TThread? TThread基于操作系统的线程函数封装，隐藏了诸多繁琐的细节。适合于大部分情况多线程任务的实现。这个理由足够了吧？什么？你要用windows的线程api来实 ...……

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

Delphi 的接口机制——接口操作的编译器实现过程(2)

接口对象的内存空间假设我们定义了如下两个接口 IIntfA 和 IIntfB，其中 ProcA 和 ProcB 将实现为静态方法，而 VirtA 和 VirtB 将以虚方法实现： IIntfA = interface procedure ProcA; proce ...……

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

Delphi下一个封装较为完整的DBGrid-Excel类

unitDBGridEhToExcel;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ComCtrls,ExtCtrls,StdCtrls,Gauges,DBGridEh,ShellApi;typeTTitleCell=……

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

DelphiAndroid程序启动过程

Delphi的Android程序是原生的程序，也就是NativeActivity。那么就需要先看一下NativeActivity的原理，在AndroidManifest.xml文件里面指定入口activity为nativeactivity,这样应用程序一启动，java虚拟机这边就开一个 ...……

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

Delphi 之编辑框控件(TEdit)

TEdit 组件主要用于数据的输入和显示和编辑等操作。 AutoSelect 　　获取组件焦点。该属性只能在单行文本组件使用。值为True为选中。false则不选中。 BorderStyle 　　设置编辑框控件的外观效果。当值为bsSingle ...……

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

奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit ...

在Delphi中使用PrintDialog打印对话框的时候，这个控件有三个选项，就是PrintRang那个属性的三个选项，其中有一个选项三，让我们自定义选择页码范围来打印。但是比较蛋疼的是，这个地方选中了之后啥子效果都没有 ...……

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

Delphi Code Editor 之编辑器选项

可从Code Editor的右键菜单中选择“Properties”菜单项来查看编辑器选项。也可以从主菜单【Tools | Editor Options…】打开编辑器选项对话框。如下图：下面分别来讲述各个页面。这两个页面用于控制编辑器的 ...……

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

如果Delphi控件栏变空，什么都没有怎么办？

关闭Delphi，然后编辑注册表，删除HKEY_CURRENT_USER\Software\Borland\Delphi\7.0这个键，然后重启Delphi即可。它会重建这个键，并恢复默认设置。以前遇到过好几次这样的问题，故blog一下。 ...……

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

Delphi中基本控件之SaveDialog控件的使用总结

首先向Form窗体拖一个SaveDialog控件，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。然后双击浏览按钮添加如下代码：procedureTfoffertool.btnbrowseClick(Sender:TO ...……

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

Delphi制作QQ自动登录器源码Delphi制作QQ自动登录器源码

http://www.cnblogs.com/sunsoft/archive/2011/02/25/1964967.html以TM2009为例，检查了一下，未登录之前一个窗体，上边两个控件，登录以后，窗体捕获到一个控件，根据这个，首先找到QQ登录框，输入用户名，密码的 ...……

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

关于Delphi2010使用Indy发送邮件乱码问题的解决

原来的程序由Delphi2007升级到Delphi2010，没想到原来收发邮件正常的系统在发送中文邮件时发生了乱码，只得重新寻找解决办法，后来发现，这样构建消息可以避免乱码问题（不知道有没有其他解决办法）： withIdMess ...……

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

Delphi2010下的IndyUDP读取发送范例。

首先新建服务端。如下图所示建立工程: 代码如下： 1unitClientUnit;2interface3uses4Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,5Dialogs,StdCtrls,ExtCtrls,IdBaseComponent,I ...……

作者：菜鸟教程小白 | 时间：2022-7-18 20:09 | 阅读：24 | 回复：0