Delphi的Lisence被破坏，无法启动！2008-09-19 16:39今天启动Delphi 7时出现这样的提示Borland license information was found,but it is not valid for delphi. 去网上搜索发现是注册文件损坏了。解决方案很简单Delphi7:1) Delete the file: C:/docum

视频为证:下载地址：http://files.cnblogs.com/gisoracle/demo.rar使用delphi开发arcgis10,Arcengine10有偿服务

<br />用WindowsAPI EnumWindows可以实现你想要的功能。<br />EnumWindows枚举所有窗口，用GetWindowText获得标题。<br />具体代码如下：<br />function EnumWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;<br />var<br />  wndTitle: array[0..255] of Char;<br />begin<br />  //获取窗口名称<br /> 

//获得一个图层的字段procedure GetFieldList(FMap: Tmap; layername: string; List: Tstringlist);var pMapXDataset : CMapXDataset; i : intege

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

【以下如未特殊说明，Delphi版本均为D7】欢迎大家补充1.导入类库不正确。典型症状为IFeatureLayer.Get_FeatureClass后要么不正确，要么为nil。版本：D7解决办法：安装D7补丁1。推荐地址：http://www.2ccc.com/article.asp?articleid=12022.Delphi下调用接口方法，不能按照属性来调用，而且，不能安全调用，经常需要O

//by gisoracle 2009.6.20ITopologicalOperator 的Union,Intersect,Difference都错误的解决办法无论是合并，求交，都会发生错误，或则返回的对象为空，明白不为空实际上，这个问题是areengine9.2的一个小bug,解决的办法是修改两个Geometry的坐标SpatialReference一致就可以了

//删除SDE栅格表function DeleteSDEimg(ImgTableName: string): Boolean;var pWorkspaceName : IWorkspaceName; pDatasetName : IDatasetName; pInFDN

//arcengine 删除影像 delphi代码 by gisoraclefunction delraster(FileName: string): boolean;var    pRasterLayer                        : IRasterLayer;    pDataset                            : IDataset;begin

//增加影像图，Filename含路径 by gisoracle,Email:gisoracle@126.comfunction openRasterFile(FileName: string): IRasterLayer;var    pRasterLayer                        : IRasterLayer;begin     if not FileExists(

     对arcgis空间数据（目前支持：ArcGIS的SHP和Personal GeoDataBase,即Accees的MDB文件）,实现单个文件或则多个文件批量转换，主要地理坐标（即经纬度坐标）和投影坐标(直角坐标系统)的相互转换（如西安80转经纬度，经纬度转西安80，北京54转经纬度，经纬度转北京54）、坐标平移，坐标换带（西安80坐标换带，北京54坐标换带），数据的转换速度快，转换精确度

 地图打印的图廓修饰，是一项非常烦人，繁琐的工作，本人推出如下工具1、        批量生成标准分幅图或行政区划，地图打印所需的图廓（或图框）整饰内容：公里网，十字丝，经纬网以及标注，四角的经纬度标注，四周的文字表示和自动填写结合表的内容。一方面标准规范，另一方大大地提高了你的工作效率，使你在打印地图中，从重复、繁杂的工作中摆脱出来。2、        系统缺省按照地形图标准设置，也提供

来自：http://www.cnblogs.com/chinacodegear/archive/2009/04/03/1428866.htmlDelphi ArcEngine 根据条件添加文本注记 function Annotation4Layer(aeMapControl: TMapControl; pLayer: ILayer; sField: string; pColor: IRgb

//删除数据图层 by gisoracle@126.comfunction deleteTable(FWorkspace: IWorkspace; DataName: string): boolean;var PEnumDataset : IEnumDataset; pDataset

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3047846我发现很多朋友在开发数据库时都使用 Delphi 自带的 ADO 组件 或 Diamond ADO，其实在 Delphi 中使用原生 ADO 接口也是十分方便和有效的。我使用原生 ADO 开发项目已有很长一段时间，也回答过一些朋友类似的问题，现在把自己的一点心得与大家分享，班门弄斧，

 showmessage(self.ADOConnection1.Version);

 How to avoid the "A class named AClassName already exists" error when using DLLs in your applicationsDescriptionIm working on a project which uses the ExpressQuantumGrid and ExpressBars. S

var ds: CMapxDataset; lyr: CMapXLayer; thm: CMapXTheme; AllOthers: CMapXRangeCategory; styl: CMapXStyle;begin lyr := Map1.Layers.Add(states.tab, 1); ds := Map1.Datasets.Add(miDataSetLayer,  Map1.Lay