DELPHI
文章平均质量分 67
sun280
这个作者很懒,什么都没留下…
展开
-
\t\tSOCKS5源码
Socks5Proxy.pasunit Socks5Proxy;{Write By Wenjinshan.}interfaceuses Windows, SysUtils, Classes, ExtCtrls, ScktComp, Forms, StdCtrls,winsock ,MYNMUDP,math;const //MAXurl=255; VER=#5; IsServer=$原创 2013-08-28 20:18:37 · 333 阅读 · 0 评论 -
BCB和Delphi的互用
BCB和Delphi互用是很方便的。特别是在BCB中使用Delphi程序,有时候几乎什么都不用改就可以使用。众多C++程序员一直希望Borland公司能够将VCL用C++改写,就现在地情况来看这个愿望很难有实现的一天。我不知道Borland公司是否有修改的打算,但BCB和Delphi互用的这一特性一直是Borland公司引以为傲的一点之一。从其员工的文章中就可以看出这一点。这也是使用BCB和Del原创 2013-08-28 20:25:57 · 277 阅读 · 0 评论 -
Java与Delphi交叉DES加解密的问题
何为交叉加解密? ——Java加密、Delphi解密,或 Delphi加密、Java解密。 近日,手头上当前的项目进展到优化、完善阶段,其中一点是需要增强服务端与客户端通信的安全性,考虑采用对报文进行DES加密的方法来实现。 服务端是Java编写的,客户端是Delphi编写的,原以为两端各自coding完进行个联调就OK了,结果发现同样的明文、密钥通过Delphi、Java所产生的密文是不同原创 2013-08-28 20:26:15 · 187 阅读 · 0 评论 -
Using COFF C object files with Delphi X2
Using COFF C object files with Delphi X2 Introduction People who develop software with Delphi and want to link extraneous object files are happy with Embarcadero for two reasons: the first one is beca原创 2013-08-28 20:26:22 · 309 阅读 · 0 评论 -
关于在Delphi中链接VC的obj文件(XE2以上版本)
实际上老久之前,应该在Delphi中就可以链接使用Obj文件了吧,我用的第一个Delphi版本是D7,我记得他就可以了。至于再往前追述,就不晓得初始来源是哪个版本了。不过对于以前的版本的链接obj只能是OMF这个格式,这个格式是很早很早之前定义的一个文件格式,之后微软都转向了COFF这种格式了,也就是说VC编译出来的OBJ文件都是COFF格式。所以,以前要在Delphi中使用obj就要多走几步路程原创 2013-08-28 20:26:24 · 179 阅读 · 0 评论 -
RAD Studio XE2 – Setting it up for a Mac (step-by-step illustrated guide) | Reinvent The Wheel
RAD Studio XE2 – Setting it up for a Mac (step-by-step illustrated guide) September 3, 2011 by Simon Stuart | 34 Comments With Delphi XE2 now available for everyone to enjoy, I figured it’s time I原创 2013-08-28 20:26:26 · 281 阅读 · 0 评论 -
DELPHI 线程类
Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。 线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程,即所谓的主线程。同时还可以有多个子线程。当原创 2013-08-28 20:27:37 · 207 阅读 · 0 评论 -
Remote Debugger - Delphi Programming
Delphi 2010 is not able to load debug informations from remote files by default. You need to apply updates 4 & 5 to fix this. Take a look on the release notes for this issue : [[1]] The following i原创 2013-08-28 20:29:23 · 197 阅读 · 0 评论 -
Delphi使用Python来解码邮件 - garfieldtom - 博客园
估计很多人和我一样,在使用Indy的时候都会受不了众多的Bug,不得不边使用边修改。近来一直使用Indy来收发邮件,从D7到D2007再到D2010,后来直接从SVN中检出一个最新版本来,让人惊喜的是新版本中修复了一些Bug,让人沮丧的是新版本中又重新引入了一些新的Bug,唉,锻炼人啊。前几天简单看了一下Python,测试了一下发现Python对邮件的处理简直简练至极!并且接收和解码上也胜In原创 2013-08-28 20:30:55 · 364 阅读 · 0 评论 -
Delphi分割字符串的函数--ExtractStrings
Delphi分割字符串的函数--ExtractStringsUnit ClassesSyntaxExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;WhiteSpace 参数指定每个子串开头被忽略的字符s。Content 参数原创 2013-08-28 20:20:52 · 162 阅读 · 0 评论 -
delphi脚本解释器比较
Delphi由于RTTI功能有限因此,如果需要执一些动态脚本函数,比较麻烦(尽管D2009提供了一些反射功能)。由此催生了不少的第三方脚本解释器VCL控件。 比较出名的脚本解释器为TMS Scripter、FastScript(FastReport用到)、Remobjects PascalScript、PaxScripter。 下面比较上述脚本解释器的一些优点和缺点。原创 2013-08-28 20:20:56 · 295 阅读 · 0 评论 -
执行网页中的函数
执行网页中的函数 tmpf := 'currID = getNextID(currID)'+#13#10; Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmpf,'JavaScript'); 调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常原创 2013-08-28 20:21:05 · 184 阅读 · 0 评论 -
2011年6月20日
干掉360保险箱VB/VC/delphi 源码VB 源码:Option Explicit Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function ZwDuplicateOb原创 2013-08-28 20:21:27 · 235 阅读 · 0 评论 -
Delphi接口编程
基于Delphi的接口编程入门 基于Delphi的接口编程入门 为什么使用接口? 举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构中,我们需要的只是一个共通的卖票原创 2013-08-28 20:25:52 · 248 阅读 · 0 评论 -
Delphi的位操作以及嵌入式汇编
Delphi的位操作以及嵌入式汇编 Delphi的位操作 每个学习C的朋友都会被告之C是“中级语言”,其位操作非常方便,而Pascal之流只适用于教学。但是Delphi中提供了一组位操作,可别以过去对Pascal的态度看Delphi。 * 按位的逻辑操作: Delphi中的AND、OR、NOT可不仅仅只对逻辑表达式有作用,它们还可以操作数; AND:按位与,如:1 AND原创 2013-08-28 20:25:55 · 228 阅读 · 0 评论 -
C语言代码套用在Delphi编程中(C++Builder(VC++)与 Delphi)
Delphi适合用来开发应用程序,但是有时侯一些底层的东西可以直接使用C语言来开发.我在公司经常开发跟硬件相关的项目,而很多硬件的SDK包是用C来写的.这个时候我一般把它们转换成Delphi(PASCAL)语法的代码. 一:将C语言的程序编译成DLL供Delphi调用.这种方法过于简单,而且需要额外带一个DLL文件,所以不在本文的讨论范围之内. 二:直接转换C语言代码到DELPHI代码原创 2013-08-28 20:25:50 · 269 阅读 · 0 评论 -
Delphi XE中String、ANSIString、TBytes之间的转换
Delphi XE中String、ANSIString、TBytes之间的转换 一、string转为ansistring1、直接赋值 (有警告)2、ansistring()类型强制转换。(无警告) 二、ansistring 转为string 1、直接赋值 (有警告)2、string()类型强制转换。(无警告) 三、string 转为Tbytes 1、bytes:= bytesof(str原创 2013-08-28 20:25:48 · 997 阅读 · 0 评论 -
\t\t使用INDY的IdMappedPortTCP控件实现动态的HTTP代理服务器
在工作中,需要一个时间控制条件非常复杂的代理服务器,因此只能自编。从网络中找到一些用ServerSocket和ClientSocket开发的代理服务器源代码,比较复杂。因此想用INDY控件组中的IdMappedPortTC开发代理服务器。DELPHI附带例子演示的是一个静态的代理,比如例中的www.borland.com,而实际应用中需要的却一个动态的代理。本文即介绍如何使用INDY的IdMapp原创 2013-08-28 20:18:39 · 423 阅读 · 0 评论 -
\t\tHook TStream类的copyfrom,大大提高效率
Hook TStream类的copyfrom,大大提高效率此文原创,转载请注明出处作者:二娃之前关于这遍博文的内容我曾发表在盒子论坛内,现在利用这段时间好好写下来,以备大家一起来来研究,我在用Remobjects做服务端项目时,发现Remobject服务端代码有一个执行的瓶颈,它用到很多TStream类的copyfrom这个成员函数,这个Copyfrom在整个客户端挤占了1/3的耗时.打个比方,c原创 2013-08-28 20:19:12 · 204 阅读 · 0 评论 -
\t\tIndy 的 ReadTimeOut 设置失效?
最近在做MMS彩信接口程序,因为不使用Java平台,运营商所提供的Java版的MMS开发包无用,只好按照通信协议用indy直接连接服务端发送拼装好的数据封包来做处理。为了将自己程序发出的封包和使用java开发包发出的数据包做对比,使用indy做了一个简单的tcpserver来接收发出的封包数据做保存。发现设置的ReadTimeOut设置无效,到了设置的超时时间仍然会处于阻塞状态,只有连接断开才可以原创 2013-08-28 20:19:32 · 283 阅读 · 0 评论 -
Delphi分割字符串的函数--ExtractStrings
Delphi分割字符串的函数--ExtractStringsUnit ClassesSyntaxExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;WhiteSpace 参数指定每个子串开头被忽略的字符s。Content 参数原创 2013-08-28 20:20:49 · 263 阅读 · 0 评论 -
delphi脚本解释器比较
Delphi由于RTTI功能有限因此,如果需要执一些动态脚本函数,比较麻烦(尽管D2009提供了一些反射功能)。由此催生了不少的第三方脚本解释器VCL控件。 比较出名的脚本解释器为TMS Scripter、FastScript(FastReport用到)、Remobjects PascalScript、PaxScripter。 下面比较上述脚本解释器的一些优点和缺点。原创 2013-08-28 20:20:54 · 248 阅读 · 0 评论 -
webbrowser部分用法
1.获得网页中变量值 htm中 var currID=123 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID原创 2013-08-28 20:20:58 · 204 阅读 · 0 评论 -
webbrowser部分用法
1.获得网页中变量值 htm中 var currID=123 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID原创 2013-08-28 20:21:01 · 248 阅读 · 0 评论 -
执行网页中的函数
执行网页中的函数 tmpf := 'currID = getNextID(currID)'+#13#10; Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmpf,'JavaScript'); 调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常原创 2013-08-28 20:21:03 · 202 阅读 · 0 评论 -
用Delphi从内存流中判断图片格式
图片的格式很多,一个图片文件的后缀名并不能说明这个图片的真正格式什么,那么如何获取图片的格式呢?我想到了几个简单但有效的方法,那就是读取图片文件的文件头标识。我们知道各种格式的图片的文件头标识识不同的,因此我们可以通过判断文件头的标识来识别图片格式。 我对各种格式的图片文件头标识进行了分析,不仅查找资料,也用十六进制编辑器察看过图片的文件头,以下是我收集、分析的结果,供大家参考。1.JPE原创 2013-08-28 20:21:07 · 177 阅读 · 0 评论 -
用Delphi从内存流中判断图片格式
图片的格式很多,一个图片文件的后缀名并不能说明这个图片的真正格式什么,那么如何获取图片的格式呢?我想到了几个简单但有效的方法,那就是读取图片文件的文件头标识。我们知道各种格式的图片的文件头标识识不同的,因此我们可以通过判断文件头的标识来识别图片格式。 我对各种格式的图片文件头标识进行了分析,不仅查找资料,也用十六进制编辑器察看过图片的文件头,以下是我收集、分析的结果,供大家参考。1.JPE原创 2013-08-28 20:21:09 · 177 阅读 · 0 评论 -
2011年6月20日
{put this declaration in your interface section}function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow';本函数在delphi里面好像没有定义原创 2013-08-28 20:21:23 · 209 阅读 · 0 评论 -
2011年6月20日
现在的杀软云安全功能太招人厌了,杀毒能力上不去,搞些噱头,把我们机子上一些正常的程序也上传了,相信大家都头疼不已。其原理是比较md5,那么,如果,杀软不能访问我们的程序,它就不可能去作比较了,也就是说,以独占方式打开程序,就可以达到阻止“云安全”的目的。以下是delphi版代码 program createfile; uses Windows, SysUtils;原创 2013-08-28 20:21:25 · 201 阅读 · 0 评论 -
Windows7新的Taskbar 在 Delphi 2010 中的编程应用
Windows7新的Taskbar 在 Delphi 2010 中的编程应用 一提到Taskbar相关,首先就想到ITaskBarList不同版本接口.到shlobj单元一看,果然增加了ITaskbarList3,ITaskbarList4两个新版本的接口.老办法CreateComObject(CLSID_TaskbarList)就行了.返回的是一个ITaskBarList接口.看具体的操作系统原创 2013-08-28 20:25:46 · 224 阅读 · 0 评论 -
现有 Delphi2007 项目迁移的注意事项
随着 Embarcadero 8 月 25 号发布 RAD Studio 2009 (Tiburon) 以来(Tiburon 的 RTM 日期可能要延后到 9 - 10 月),随着 Tiburon 全面支持 Unicode,现有的 Delphi / C++ Builder 项目要迁移到 Unicode 下应该注意些什么也成为大家最为关心的问题。Tiburon 对 Unicode 的支持不仅仅是将原原创 2013-08-28 20:26:08 · 223 阅读 · 0 评论