---
Delphi in a Unicode World Part I: What is Unicode, Why do you need
it, and How do you work with it in Delphi?
By: Nick
Hodges
原文链接：http://dn.codegear.com/article/38437
Abstract: This article discusses Unicode, how Delphi developers
can benefit from using Unicode, and how Unicode will be implemented in Delphi
2009.
//
Introduction
The Internet has broken down geographical barriers that enable world-wide
software distribution. As a result, applications can no longer live in a purely
ANSI-based environment. The world has embraced Unicode as the standard means of
transferring text and data. Since it provides support for virtually any writing
system in the world, Unicode text is now the norm throughout the global
technological ecosystem.
What is Unicode?
Unicode is a character
encoding scheme that allows virtually all alphabets to be encoded into a single
character set. Unicode allows com ......
Delphi in a Unicode World Part II: New RTL Features and
Classes to Support Unicode
By: Nick
Hodges
原文链接:http://dn.codegear.com/article/38498
Abstract: This article will cover the new features of the Tiburon
Runtime Library that will help handle Unicode strings.
//
Introduction
In Part I, we saw how
Unicode support is a huge benefit for Delphi developers by enabling
communication with all characters set in the Unicode universe. We saw the basics
of the UnicodeString type and how it will be used in Delphi
In Part II, we’ll look at some of the new features of the Delphi Runtime
Library that support Unicode and general string handling.
TCharacter Class
The Tiburon RTL includes a new class called TCharacter, which is found in the Character unit. It is a sealed class
that consists entirely of static class functions. Developers should not create
instances of TCharacter, but
rather merely call its st ......
此文是根据伴水老大的实例做的小修改！
以下是个人见解，如有错误请指正:)
要想跨进程访问DBGRID，貌似只能用HOOK，写一个DLL想办法注入到目标进程。注入成功后，使DLL与目标进程在同一进程空间中(其内有一些细节问题，请参见代码)，这时可以访问目标进程的VCL组件。并把VCL组件的数据通过进程通信的方式发给Sniffer进程。
如何进行注入？
可以安装一个WH_CALLWNDPROC钩子，这样当有消息在窗口函数中时，系统就会装载HOOK，即执行DLL部分。
如何发消息？
可以在DLL中设置一个自定义消息，在安装完钩子后，发送一个自定义消息至目标进程的窗口函数。
以下实例可读出另一进程的EDIT、LABEL、DBGRID等控件的值。
如何了解这个原理，跨进程读取StringGrid等控件也并非难事！
//DLL单元1
(*//
标题：窗体嗅探器
作者：王集鹄(Zswang)
博客：http://blog.csdn.net/zswang
日期：2009年3月14日
.//*)
unit Sniffer;
interface
uses Windows,DBGrids,DB;
function ExeSniffer( // 执行嗅探
AHandle: THandle; // 窗体句柄
AParam: Integer // 附加参数
): BOOL; stdcall;
imp ......
var
arrChar : array [0..4] of Char;
b : Byte;
s : string;
begin
s := 'Test';
Move(Pointer(s)^, arrChar, Length(s)); //string to array of char
ShowMessage(arrChar);
b := Ord(s[1]); //First byte string to one single byte
ShowMessage(Char(b));
end; ......
现在应用系统流行用B/S开发，早几年前可是C/S的天下呢，我现在做的某航空公司货运结算维护工作，其系统就是利用Delphi开发的C/S应用程序！在日常的维护工作中，难免要对已经做好的COM+组件进行调试，以查看具体的处理逻辑！本文就是介绍在WindowsXP环境下如何在Delphi中调试COM+组件！
第一步：记录下你希望调试的COM+组件的GUID。可通过如下方式获取。可以通过打开“控制面板”，找到“管理工具”，然后打开“组件服务”，展开“计算机”，找到“COM+应用程序”，在希望调试的COM+应用程序上右键以打开它的属性，一串类似{2F240A4F-7A70-4573-BD91-FC7AC00EB409}的值就是我们所需要的，就是我们需要的信息，将此记录值复制下来存储于某记事本文件中。
第二步：关闭欲调试的COM+组件。
第三步：打开你要调试查看的组件应用程序，转到菜单Run，点击Parameters...项，
在Local选项条中，在Host Application下的输入框内，输入C:\WINDOWS\system32\dllhost.exe (这里的C盘请使用实际的操作系统路径替代，在Win2000或Win2003当中，则输入C:\WINNT\system32\dllhost.exe) ；在Parameters下的输入� ......
DELPHI
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc :Integer;
TmpSrcAsc :Integer;
Range :Integer;
begin
KeyLen:=Length(Key);
if KeyLen = 0 then key:='Think Space';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;
Randomize;
......
最新文章 : delphi