//获得文件路径和名称 by yl landgis@126.com yanleigis@21cn.com
procedure GetPathFileName(pFeatureLayer: IFeatureLayer; var Path, FileName: widestring); var pFeatureClass : IFeatureclass;
begin
pFeatureLayer.Get_FeatureClass(pFeatureClass); GetPathFileName(pFeatureClass, Path, FileName);
end;
//获得文件路径和名称 by yl landgis@126.com yanleigis@21cn.com
procedure GetPathFileName(pFeatureClass: IFeatureclass; var Path, FileName: widestring); overload; var
pWorkspace : IWorkspace; pDataset : IDataset; begin //DataType := GetDataType(pFeatureLayer); pWorkspace := GetWorkspace(pFeatureClass); pWorkspace.Get_PathName(Path); pDataset := pFeatureClass as IDataset; pDataset.Get_BrowseName(FileName);
end;