XP环境下在Delphi中调试COM+组件
现在应用系统流行用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下的输入框内输入 /ProcessID:{GUID}，这个GUID是你希望调试的COM+组件的ID，也就是第一步操作中你记录并保存在记事本中的那串值！
第四步：在希望查看的接口代码处设置断点，运行程序（按F9），你就搭建好调试环境了！此时只要再用一个外部应用程序去调用此代码，就能看到最终效果了，
相关文档：
转自：http://www.52delphi.com/List.asp?ID=597&Page=1
核心提示：函数需要 uses Direct3D9,D3DX9; 偶然发现一个函数可以直接保存表面到文件1！所以修改了一下，函数为：...
procedure CaptureScreen(Const FileName: string);
var
BitsPerPixel: Byte;
pD3D: IDirect3D9;
pSurface: IDirect3DSurface9;
......
delphi 编写的com 对象 用php调用
的
实例
delphi:
function Tmyxml.Get_xml: WideString;
begin
Get_xml:='wo shi a lei!';
end;
function Tmyxml.Get_xmldata: WideString;
var
xmlStr:string;
begin
xmlStr := '<?xml version="1.0" & ......
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.
//
& ......
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
......
