delphi中间件

摘要： 1、网页打开速度突然变慢，彻底杀毒，没有发现。再查看进程，一开始只有rundll32.exe耗cpu资源90%以上，每结束一次进程，网页打开就快些，但需要不断的结束，第一次郁闷！！后来，这个进程不见了，又出来了另外一个进程explorer.exe，耗cpu资源90%以上，结束后桌面，任务栏全无。（后来有经验了：可以按下Ctrl+Alt+Del组合键，出现“Windows安全”对话框，单击“任务管理器”按钮，在任务管理器窗口中选中“应用程序”选项卡，单击“新任务”，在弹出的“创建新任务”的对话框中，输入你想要打开的软件的路径和名称即可。你还可以在正在运行的软件上，选择“文件→打开”，在“打开”对 阅读全文

摘要： （1）ARP欺骗原理：局域网内，一个中了ARP木马的电脑，把自己伪装成路由器，告诉所有的电脑“我是路由器”，结果局域网中的电脑相信了他，他就可以随意的把改装过的网络数据送给所有电脑，在这个数据里可以插入能盗号的程序其他木马等。（2）可为什么总是掉线呢？中木马的电脑伪装自己的路由器，暂时把真正的路由器给“忽悠”了骗了大家，真的路由过一会“醒了”大家又重新回到真路由的怀抱中，这个网络切换的过程中就会掉线。ARP攻击越强烈掉线越频繁，说明两个真假路由在不断得切换。（4）企业网络遭受ARP攻击的危害？1.单个计算机被入侵2.整个企业网络被入侵渗透3.内部敏感数据被大量破坏或者窃取4.影响工作进程或者效 阅读全文

摘要： system单元几个内存处理方法1.Move - 移动内存块 var Source,Dest: string;begin Source := '123456789'; Dest := '---------'; Move(Source[5], Dest[3], 4); ShowMessage(Dest); {--5678---}end;2.System.New、System.Dispose - 为某个指针申请和释放内存 Type TMyRec = record {定义结构} name: string[8]; age : Word; end; PMyRec = ^T 阅读全文

摘要： struntils单元的几个字符串处理方法1.dupestring方法var s: string;begin s := 'Delphi'; s := DupeString(s,3); ShowMessage(s); //DelphiDelphiDelphiend;2.trim,trimlelf,trimright方法3.rightstr,leftstr方法var ss,s: string;begin ss := 'CodeGear Delphi 2007'; s := RightStr(ss,4); ShowMessage(s); {2007} s := Lef 阅读全文

摘要： system单元的几个字符串处理方法1.insert方法var ss,s: WideString;begin ss := '万一的博客'; s := ' Delphi '; Insert(s, ss, 4); ShowMessage(ss); {万一的 Delphi 博客}end;2.delete方法var s: string;begin s := 'Delphi 2007'; Delete(s, 2, 4); ShowMessage(s); {Di 2007}end;3.copy方法var ss,s: string;begin ss := &# 阅读全文

摘要： 一，ping 它是用来检查网络是否通畅或者网络连接速度的命令。作为一个生活在网络上的管理员或者黑客来说，ping命令是第一个必须掌握的DOS命令，它所利用的原理是这样的：网络上的机器都有唯一确定的IP地址，我们给目标IP地址发送一个数据包，对方就要返回一个同样大小的数据包，根据返回的数据包我们可以确定目标主机的存在，可以初步判断目标主机的操作系统等。下面就来看看它的一些常用的操作。先看看帮助吧，在DOS窗口中键入：ping/?回车，。所示的帮助画面。在此，我们只掌握一些基本的很有用的参数就可以了（下同）。 -t表示将不间断向目标IP发送数据包，直到我们强迫其停止。试想，如果你使... 阅读全文

摘要： 1.DLL 工程单元代码library Project2;uses Windows, Messages;const MY_MSG = WM_USER + 101;{$R *.res}procedure LoadDLL(const AHandle: Pointer); stdcall;begin PostMessage(THandle(AHandle),MY_MSG,11,22);end;exports LoadDLL;beginend.2.主程序代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, 阅读全文

摘要： Delphi服务程序注册与卸载uses winsvc;function InstallService(ServiceName, DisplayName, FileName: string): boolean;varSCManager,Service: THandle;Args: pchar;beginResult := False;SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);if SCManager = 0 then Exit;try Service := CreateService(SCManager, //句柄 P 阅读全文

摘要： //替换字符串列表中字符串procedure StringsReplace(var S : TStrings; OldPattern, NewPattern: string; Flags: TReplaceFlags);var i : integer; tmpstr : string;begin for i := 0 to S.Count -1 do begin tmpstr := S[i]; s[i] := StringReplace(tmpstr, OldPattern, NewPattern, Flags); end;end; //分割字符串，从网上搜索的也很好使function Spl 阅读全文

摘要： 在delphi中嵌入腳本語言--(譯)RemObjects Pascal Script使用說明(1)(譯)2007年11月27日 星期二 00:26 翻譯這篇文章源於我的一個通用工資計算平台的想法，在工資的計算中，不可避免的需要使用到自定義公式，然而對於自定義公式的實現，我自己想了一些，也在網上搜索了很多，解決辦法大致有以下幾種： 1. 自己寫代碼去解析公式。這種方法的缺點是，解析的代碼很難實現，如果公式的功能比較完整，如增加條件判斷或自定義函數。不亞於實現了一個簡單的語言編譯囂... 阅读全文