test.txt

这是一个很好的功能.可以获取到某个文件的一些很好的有用的信息.

//CurrentSheet : Pointer;
//PartIterator : TObjectHandle;
//PartHandle : Pointer;
//SchPart : TSchPart;//元器件对象。
//S : TString;//元器件器所在原理图名称。
//TempS : AnsiString;//合成提取信息的临时字符串。
//ShowHead : Boolean;//标题是否显示
//Splitter : TString;//分隔符
//SchEntityHandle : ClientTypes.TObjectHandle;//文档实体对象。
//SchDocumentEntity : TDocumentEntity;//文档对象。
//SchDocumentAddress : TDDBAddress; //抽象地址对象。
//SchAbsoluteStorageName : TString;//抽象地址字符串。
//SchFullPathString : TString;//当前原理图所在容器的完整路径名称。
//SheetOptions : TSchSheetOptions;

//I : Integer;//循环变量
//AbsoluteAddress : TString;//抽象地址字符串
//TextProperties : String; //存放数据库文本属性的字符串。
//NumberProperties : String; //存放数据库数值属性的字符串。
//DDBAddress : TDDBAddress;//抽象地址。
//DesignDatabase : TDocumentdatabase;//设计数据库。
//DocumentEntity : TDocumentEntity;

Begin


//EntityHandle :=
//ClientAPI_FindEntityByDataHandle(MessageRouter_GetState_CurrentEditorWindow);
//MessageRouter_GetState_CurrentEditorWindow 函数返回在项层的文档的窗体句柄。
//ClientApi_FindEntityByDataHandle 函数使用一个编辑器窗体句柄来返回查找返回一个实体的句
//柄。此实体能表现为设计资源管理器编辑器窗体内的一个文档。您能通过使用ClientAPI_QueryEntity
//或ClientAPI_QueryDocumentEntity 查询此实体来检查文档类型，名称等等。
//If Entityhandle = 0 Then Exit;//如果没有实体则退出。
If Entityhandle <> 0 Then showInfo('aa');

//DocumentEntity := TDocumentEntity.Create(EntityHandle);//创建一个文档实体对象。
//DocumentEntity.QueryDatabase(eGetState);//用客户端数据同步外部外部服务器数据。
//ShowInfo('Object handle = ' + IntToStr(DocumentEntity.ObjectHandle) + #13 +
//'Parent handle = ' + IntToStr(DocumentEntity.ParentHandle) + #13 +
//'Binder handle = ' + IntToStr(DocumentEntity.OwnerDesign) + #13 +
//'AEntityId = ' + IntToStr(Ord(DocumentEntity.EntityId)) + #13 +
//'Editor Kind = ' + DocumentEntity.EditorKind + #13 +
//'Document DB Id = ' + IntToStr(DocumentEntity.DocumentDBId) + #13 +
//'Full address = ' + DocumentEntity.FullAddress
//);

//SchAbsoluteStorageName := DocumentEntity.GetAbsoluteAddress;
///DDBAddress := TDDBAddress.Create('');
//DDBAddress.Import_FromParameters(SchAbsoluteStorageName);
//ShowInfo('原理图名称：' + DDBAddress.Offset.Name);
//ShowInfo('当前原理图容器的名称 : ' + DDBAddress.Offset.Path);

//CurrentSheet := PcbApi_CreateIterator(PcbApi_GetCurrentBoardHandle,eComponentObject,//元件对象
//eProcessAll,//处理所有
//eIgnoreLayer);
//CurrentSheet := SchAPI_GetCurrentSheetHandle;
//PartHandle := SchAPI_GetFirstObject(CurrentSheet);
//PartHandle := PcbApi_GetFirstObject(CurrentSheet);//查找第一个元件对象。
//SchPart := TSchPart.Create(Nil);
//SchPart.ObjectHandle := PartHandle;
//SheetOptions := TSchSheetOptions.Create(CurrentSheet);
//        SheetOptions.QueryDatabase(SCHAPITypes.eGetState);
//ShowInfo('Part名称：' + GetStringFromTextObject(SchPart.PartType));