摘要：
这是一个局域网远程开机的演示程序!演示源程序下载： 点击这里下载文件: RemotePowerON.rar 阅读全文
摘要：
通过IP获取局域网MAC地址uses winsock;function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : Dword; StdCall;External 'Iphlpapi.dll' Name 'SendARP';function GetMACByIP(const Ip:string):string;varMyIp:ulong;MyMac:array[0..5] of byte;MyMacLength:ulong;ErrCode:integer;b 阅读全文
摘要：
通过IP获取局域网MAC地址uses winsock;function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : Dword; StdCall; Exte... 阅读全文
摘要：
获取本机MAC地址方法一：function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID; begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <>VER_PLATFORM_WIN32_NT then @Func := GetProcAddr 阅读全文
摘要：
获取本机MAC地址方法一：function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;... 阅读全文
摘要：
今天，2008-03-27，我疯了，因为，自2008-2-14以后的BLOG日志都没有了！ 我真的疯了，这些日志是我这些天以来用心血写的！ 我更疯了，这些日志竟是让我自已给弄没的！ 我肯定疯了，否则的话，我怎么会吃饱了没事干自已把自已的BLOG数据库给清空呢？ …… 看来，我疯了这件事是毫无疑问的了，因为，如果自已当时不是疯了的话那现在的自已肯定更疯了而且会一直疯下去，所以，为了不至于让自已一直疯下去只好让自已疯一时了！ 阅读全文
摘要：
远程开机再配合远程控制procedure TForm1.Button2Click(Sender: TObject);varvBuf:array[0..101] of char;i,j:integer;begin//包的格式很简单，在以太网包的任何位置上，//以6个FF为先导，后面跟相应MAC地址重复16次即可：for i:=0 to 5 do vBuf[i]:=char($FF);for i:=0 to 15 dobeginj:=6+i*6;vBuf[j]:=Char($00);vBuf[j+1]:=Char($13);vBuf[j+2]:=Char($D4);vBuf[j+3]:=Char( 阅读全文
摘要：
远程开机再配合远程控制procedure TForm1.Button2Click(Sender: TObject);var vBuf:array[0..101] of char; i,j:integer;begin //包的格式很简单，在以太网包的任何位置上，... 阅读全文
摘要：
//在DELPHI中用ADSI来控制IIS，检测、增加、删除虚拟目录//========================================================//本代码转自网络，是WebService开发时经常要用到的东东，感谢原作者//本人稍作修改，并将其整理，希望对大家有用//========================================================//删除虚拟目录应用程序名 function DeleteVirtualDirApp(strVirtualDir: string): Boolean;varWebSite, Web 阅读全文
摘要：
//在DELPHI中用ADSI来控制IIS，检测、增加、删除虚拟目录//========================================================//本代码转自网络，是WebService开发时经常要用到的东东，感谢原作者//本人... 阅读全文
摘要：
如何编写SMTP邮件服务器 许多时候，我想不通为什么不能直接将信件送到对方(POP或IMAP)服务器上，为什么非要通过一个莫名其妙的SMTP邮件服务器转交一次，实在不服气，如果使用UNIX，这个问题就很好解决，用sendmail就能完成递送任务，但在Windows下呢？同样的，一定也有办法饶开SMTP Server直接递送到对方的远程邮局服务器上，难得住别人，难得住我们程序员吗？分析相关协议（RFC2645,RFC821, RFC1846,RFC1939,RFC1725,RFC1730-RFC1733 etc.），我们会知道要完成直接递送其实相当简单。 首先我们看一下Email的递送过程：E. 阅读全文
摘要：
如何编写SMTP邮件服务器 许多时候，我想不通为什么不能直接将信件送到对方(POP或IMAP)服务器上，为什么非要通过一个莫名其妙的SMTP邮件服务器转交一次，实在不服气，如果使用UNIX，这个问题就很好解决，用sendmail就能完成递送任务，但在Windows下... 阅读全文
摘要：
网络上的一个实现PING功能的类，修改了部分代码。=======================================unit ping; interfaceusesWindows, SysUtils, Classes,Controls, Winsock, StdCtrls;function pingip(ip:string):string;typePIPOptionInformation = ^TIPOptionInformation;TIPOptionInformation = packed recordTTL: Byte;TOS: Byte;Flags: Byte;Option 阅读全文
摘要：
网络上的一个实现PING功能的类，修改了部分代码。=======================================unit ping; interfaceusesWindows, SysUtils, Classes, Controls, Winsoc... 阅读全文
摘要：
用Delphi实现远程屏幕抓取 ---- 在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工具，简述如下。 ---- 一、软硬件要求。 ---- Windows95/98对等网，用来监视的计算机（以下简称主控机）和被监视的计算机（以下简称受控机）都必须装有TCP/IP 协议，并正确配置。如没有网络，也可以在一台计算机上进行调试。 ---- 二、实现方法。 -- 阅读全文
摘要：
用Delphi实现远程屏幕抓取 ---- 在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多... 阅读全文
摘要：
WebSnap是DELPHI6最新的WebApplication开发架构，她以前一版本的WebBroker为基础，并加入了许多在WebBroker+InternetExpress架构中所缺少的功能。虽然说是加强，但从技术角度上来看，两者其实都被重新设计过了。以往的WebBroker+InternetExpress架构中，最大的问题是支援的功能过 于简单，例如Session, PagesManager, Servier-Side Scipt等开发Web Application必要的功能在这个架构中全部缺席。使用者常常必须靠着3rd-Party元件的支援，或自行撰写这类元件来满足专案的需求，这使得 阅读全文
摘要：
WebSnap是DELPHI6最新的WebApplication开发架构，她以前一版本的WebBroker为基础，并加入了许多在WebBroker+InternetExpress架构中所缺少的功能。虽然说是加强，但从技术角度上来看，两者其实都被重新设计过了。以往的W... 阅读全文
摘要：
要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。 不过需要注意的是，并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP，有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意：如果客户端没有通过代理服务器来访问，那么用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的值 阅读全文
摘要：
要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。 不过需要注意的是，并不是每个代理服务器都能用 Request.ServerVariables("HTTP_... 阅读全文