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字符串函数大全
uses StrUtils;
【字符串函数大全】
首部 function AnsiResemblesText(const AText, AOther: string): Boolean;
$[StrUtils.pas
功能 返回两个字符串是否相似
......
将远程控制应用于教学中，已成为目前计算机化教学的重要手段。一定有很多的网虫想了解这种网络教学方式的编程原理吧。在此我们就以一个简单的远程控制程序作为示例，说明这种网络编程的基本原理。本程序以Delphi编程为例。
其实该程序的工作机制很简单，受控方运行一个程序，用于侦听端口并接收数据包，而主控方通过� ......
Delphi和C++数据类型对照表
Delphi 字长/值域 C++
ShortInt &n ......
Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>张三</name><sex>男</sex></user>';
sh ......
