博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2008年11月7日

摘要: //当客户端断开连接时 procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); var i:integer; begin for i:=0 to sessions do begin if session[i].CHandle =Socket.S... 阅读全文

posted @ 2008-11-07 15:20 YangHe 阅读(300) 评论(0) 推荐(0)

摘要: 笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来,希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方,也就是说,它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方,也就是说,它的动作是监听以及被动接... 阅读全文

posted @ 2008-11-07 15:20 YangHe 阅读(348) 评论(0) 推荐(0)

摘要: DELPHI中使用DLL的方法以及INSTALLSHIELD中使用DLL方法 调用DLL的方法无论是DELPHI还是INSTALLSHIELD,使用过程皆一致的,即声明,载入,使用,释放。 现在先看DELPHI调用DLL的情况,在此之前先用DELPHI做个DLL,现以一个创建SQL DB... 阅读全文

posted @ 2008-11-07 09:47 YangHe 阅读(508) 评论(0) 推荐(0)

摘要: 一种常见的禁止多实例运行的方法 在DELPHI的工程文件中 program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Windows,Messages,ShellApi; {$R *.res} var HMute... 阅读全文

posted @ 2008-11-07 09:46 YangHe 阅读(257) 评论(0) 推荐(0)

摘要: 判断Exe文件是否正在运行的函数 function TForm1.exe_is_running(const exeName:String) : Boolean; //exeName:不要扩展名的Exe主文件名 var hCurrentWindow:HWnd; szText:arr... 阅读全文

posted @ 2008-11-07 09:45 YangHe 阅读(209) 评论(0) 推荐(0)

摘要: 利用消息在窗体之间传递命令 如果一个对象单元中有其他单元需要调用的Func或Proc时怎么办,利用单元的对象引用?NO.虽然此方法常见,但非最好的。现用消息传递来实现。看例如下: 现设单元Main中的有个一Func CreateTV(在树状列表中显示员工信息),子单元Epy(员工信息表)要... 阅读全文

posted @ 2008-11-07 09:44 YangHe 阅读(194) 评论(0) 推荐(0)

摘要: Delphi中的文件操作 1、Delphi中拷贝文件的几种方法 {方法一:用File stream } Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Beg... 阅读全文

posted @ 2008-11-07 09:44 YangHe 阅读(220) 评论(0) 推荐(0)

摘要: 编写定制的文件流实现文件读写加密 ---- 在Delphi中预定义了Tfilestream类,通过它可以对磁盘文件进行读写,笔者选定 Tfilestream为基类,通过对其核心的两个读、写方法进行重载,编写定制的文件流,实现 对文件的读、写进行加密。 ---- 首先,来看一下定制文件流(... 阅读全文

posted @ 2008-11-07 09:42 YangHe 阅读(313) 评论(0) 推荐(0)

摘要: 在Delphi7中用Indy开发Socket应用程序 笔者在前一段的工作中,需要开发一套简单的网络数据传输程序。由于平时常用Delphi做点开发,故此次也不例外。Delphi 7中带有两套TCP Socket组件:Indy Socket组件(IdTCPCl... 阅读全文

posted @ 2008-11-07 09:31 YangHe 阅读(1362) 评论(0) 推荐(0)