摘要: A类互联网网址: 7位网络号          24位主机号               01111111.11111111.11111111.11111111 --->01... 阅读全文
posted @ 2010-11-27 16:41 覆雨翻云 阅读(4978) 评论(0) 推荐(0) 编辑
摘要: 我虽然再也没有继续像大学那样没日没夜的写计算机代码了,前几天听见我的朋友说他的公司里面老是有ip冲突,他那边工程师说只要修改了ip地址就可以上网了,可是这个男生可笨了!居然换了好多IP都被人家给占用了,求我给他写个程序,免的IP换的头疼。 那么开始吧! 首先要利用InternetGetConnectedState函数,这个函数是反应你的机器成功连网的函数,返回的是true和false 返回是tru... 阅读全文
posted @ 2010-11-27 16:36 覆雨翻云 阅读(3806) 评论(0) 推荐(0) 编辑
摘要: 好多人都抱怨delphi没有提供一个可以把任意数据放入数据库的控件,虽然说用代码实现也不难,但是有控件会更方便,这次我终于还是抽出空来做了 这么个控件,以后就可以直接拖放了。它支持把任意数据类型写入数据库,也可以从数据库读出到流,或是直接保存为文件。另外,我加了一些对常用图像的处理, 保存jpg或是gif格式的图像很方便,并且可以直接显示到image上。 unit RaDBOLE; inter... 阅读全文
posted @ 2010-11-27 16:34 覆雨翻云 阅读(4904) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.Button1Click(Sender: TObject); var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string; begin ExecuteFile := 'c:\Windows\sy... 阅读全文
posted @ 2010-11-27 16:34 覆雨翻云 阅读(1104) 评论(1) 推荐(0) 编辑
摘要: 以 JPEG 图片为例,以下代码演示了如何将一个 JPEG 图片保存为纯文本形式,并将其以图片形式读回并显示。 保存 TXT: 从 TXT 读回 JPEG: 阅读全文
posted @ 2010-11-27 16:32 覆雨翻云 阅读(1300) 评论(0) 推荐(0) 编辑
摘要: //从内存中加载DLL DELPHI版 unit MemLibrary; interface uses Windows; function memLoadLibrary(pLib: Pointer): DWord; function memGetProcAddress(dwLibHandle: DWord; pFunctionName: PChar): Pointer... 阅读全文
posted @ 2010-11-27 16:29 覆雨翻云 阅读(4191) 评论(0) 推荐(0) 编辑
摘要:     windows似乎只提供了一种启动进程的方法:即必须从一个可执行文件中加载并启动。     而下面这段代码就是提供一种可以直接从内存中启动一个exe的变通办法。     用途嘛,     也许可以用来保护你的exe,你可以对要保护的  ... 阅读全文
posted @ 2010-11-27 16:28 覆雨翻云 阅读(20111) 评论(0) 推荐(0) 编辑
摘要:   (1) idispatch是COM object的接口, 在Delphi中通常指一个OleObject.    (2) OleVariant是一种COM object兼容的Variant类型, 可以通用任何Ole Automation 类型, 他与CreateOleObject创建的idispatch兼容 1:Com+的编写:   ... 阅读全文
posted @ 2010-11-27 16:13 覆雨翻云 阅读(2670) 评论(0) 推荐(0) 编辑
摘要: 转自http://www.cnblogs.com/abchjb/articles/461725.html         软件重用是业界追求的目标,人们一直希望能够像搭积木一样随意“装配”应用程序,组件对象就充当了积木的角色。所谓组件对象,实际上就是预定义好的、能完成一定功能的服务或接口。问题是,这些组件对象如何与应用程序、如... 阅读全文
posted @ 2010-11-27 16:12 覆雨翻云 阅读(13175) 评论(0) 推荐(0) 编辑
摘要:   今天突然用到Delphi中的二维数组,本来想用二维数组来存储用户的权限去控制登陆界面后的若干菜单子项的,可是发现用数据库存储二维数组还需要经过一些转化,于是想了个笨方法,在数据库中把二维数组转换为String字符串进行存储,读出后再还原成二维数组,下面是我写的两个转化函数。 二维数组的形式如下:a[(1,1,1,1,1,1,1,1,1,1),(1,1,1,1,1,1,1,1,1,1)... 阅读全文
posted @ 2010-11-27 15:55 覆雨翻云 阅读(5747) 评论(0) 推荐(0) 编辑
摘要: delphi很早就已经可以进行三层的开发了. 但一直到现在, 网上这方面的东西太少 了. 要么太老, 甚至不完全正确.  例如: 如 何进行多表更新(提交), 很多回复还是说用ADOConnection的事务, (如果要同时更新SQL SERVER和Oracle数据库的表怎么 办). 当然也有说用SetComplete, SetAbort的. 但说的很简单, 其中的注意事项又是什么呢. ... 阅读全文
posted @ 2010-11-27 15:52 覆雨翻云 阅读(4618) 评论(1) 推荐(2) 编辑
摘要: 一年前开发了一个MIDAS的程序,最近修改服务端,可是这个服务无法注册,最后终于找到了解决办法,这个相关文章如下:(算是备份吧) (一)MIDAS是什么? Delphi中MIDAS到底是什么呢?和他相关组件是什么呢?  MIDAS(Multitiered Distributed Application Services)多层分布式应用服务。    Delphi所提出... 阅读全文
posted @ 2010-11-27 15:52 覆雨翻云 阅读(4691) 评论(0) 推荐(0) 编辑
摘要: 从Dll中导出类,想必大家首先想到的是使用bpl包。这种方式有一个不好,那就是使用者必须清楚这个包中含有那些类,也就是说必须知道类的名字——这在一定意义上是个限制,试想一种情况,使用者定义了一个底层的抽象类(abstract class),然后在此基础上定义了许多应用类(concrete class),那么,对于使用者来说,他希望在不知道具体有哪些类的情况下能使用这些类——这么说似乎有些玄,但实际... 阅读全文
posted @ 2010-11-27 15:19 覆雨翻云 阅读(2345) 评论(0) 推荐(0) 编辑
摘要: 1.VarArrayCreate procedure TForm1.Button1Click(Sender: TObject); var   V, W : Variant;   i : Integer; begin   V := VarArrayCreate([1,4], varVariant);   V[1] := 1;   V[2] := '... 阅读全文
posted @ 2010-11-26 14:42 覆雨翻云 阅读(10803) 评论(0) 推荐(0) 编辑
摘要: webwx (2006-07-06 17:41:00)  比如: var tempVr: OleVariant; begin tempVr := VarArrayCreate([1..2], varOleStr); tempVr[1] := VarArrayOf([1, 2, 3, 4, 5]); tempVr[2] := VarArrayOf([6, 7, 8, 9, 10]); en... 阅读全文
posted @ 2010-11-26 14:09 覆雨翻云 阅读(1718) 评论(0) 推荐(0) 编辑