相关分类: Java技术 C/C++ VB delphi
  • Xray@NET,业余写的SNIFFER

    Delphi 6 ANSI C (libpcap),第三方控件只用了Toolbar2000 因为赞叹win98下的NetXray,在想了解实现原理的时候就写了它,因为delphi pcap的cross-platform特性,相信我可以让它在linux下跑。:) 写的时候,把protocol的格式翻译成object pascal比较烦 目前可以解到TCP层...

    2008-04-11 12:27:10

  • “磁性”窗口新篇

    file://创 建军于2004.6.15 file://作 者:透明墨豆(昵称) file://QQ:33125083 file://说 明:本程序是从《“磁性”窗口》--- wujian2的文章修改的,原因是原文章不全和 file://有 错误,并且觉得有不完善的地方,如不能分辨出两窗口是否在同一个区域,不能 file://停...

    2008-04-11 12:27:09

  • COM程序编写入门(全文-1)

    COM 程序编写入门 编写:李贤敏 日期: 2004-5-2 名词解释: OLE : ( Object linking and embedding 对象的链接与嵌入) 使得服务器模块和客户模块通过标准的接口进行通讯。两个模块可以在同一台计算机或位于不同的计算机上,位置对用户来说是无关紧要的。服务器模块...

    2008-04-11 12:27:09

  • Delphi使用VB6编写的ActiveX控件???

    以下是我在VB6编写的 ActiveX控件 wjprnview.ocx,注册并导入 Delphi 5 的开发环境后,Delphi生成的wjprnview_TLB.pas文件,其没有生成Twjprnview类,也没有注册面板上,无法使用,请问有方法吗? unit wjprnview_TLB; // ********************************************...

    2008-04-11 12:27:08

  • 关于 MP3 中的 ID3V2 格式探讨。及我写的 ID3V2 读取

    前几天想作一个ID3v2读写的东西,也基本作出一个主体了. 但在测试时才发现,ID3文件格式真是混乱,每个播放器之间的存储都不禁相同! 1.WinAmp 是鼎鼎大名,但它要在每个帧字段前加一个 ''''$0'''' 不说,单单又只在URL字段前加两个 ''''$0'''' !? 而另一个问题是,我是完全按...

    2008-04-11 12:27:07

  • 建造者模式-Delphi述

    依然是java 与模式里的例子,(java 与模式 闫宏著) 以下是转为delphi的代码,这次加了注释:) unit BuilderPattern; interface type TProduct = class; //抽像建造者 规范接口 TBuilder = class(TObject) public procedure builderpart1(); virtual; abstract; procedur...

    2008-04-11 12:27:06

  • 程序快捷方式/程序删除项/EXE自删除DIY

    作者:火鸟 redbirdli@hotmail.com 每一个编程爱好者,都希望自己的作品能为大家接受和喜爱,但我们的作品大多是简单的一个EXE文件的拷贝,既不需安装也没有删除程序,让人觉得只是程序而不是产品,以下我以Delphi 为例和大家交流一下程序组快捷方式建立、添加删除程序...

    2008-04-11 12:27:05

  • 利用Delphi中的画布画树

    一直都听说delphi中画布使用简单方便。现在我就利用画布实现一个简单的树机构的图形表示。系统支持节点选择、移动、保存树、打开树等。为了实现的方便用到了递归与指针,虽然效率有点问题但是在快速解决问题还是蛮好的。 程序写的比较乱,欢迎交流:sss@pacia.com.cn...

    2008-04-11 12:27:04

  • Delphi多层开发方案比较

    方案- Midas DCOM COM ASTA RemoteObject .NET 提供者 Borland 微软 微软 http://www.astatech.com http://www.remobjects.com 微软 核心技术 COM COM COM ASTA自己的,类同Midas, 但不依赖于COM RemObjects自己的WebService技术, 不依赖于COM WebService 开发工具 D...

    2008-04-11 12:27:04

  • 对齐到网格

    var iGridSize : Integer = 16;procedure TForm1.FormPaint(Sender: TObject);var i, j : integer;begin Self.DoubleBuffered := True; for i := 0 to Self.Width do for j := 0 to Self.Height do if (j mod iGridSize = 0) and (i mod iGridSize = 0) then Self.Canv...

    2008-04-11 12:27:03

2