Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

wdx ActiveX

 
Post new topic   Reply to topic    Total Commander Forum Index -> Написание плагинов для Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Fri Jan 29, 2010 02:22    Post subject: wdx ActiveX Reply with quote

В развитие обсуждения Использование wdx-плагинов в скриптах решил попробовать написать свой ActiveX для работы с контентными плагинами.

Сейчас в утилитке всего полторы функции, но лишь бы начало было положено.

При обновлениях будет редактироваться ссылка в первом посте темы.

tc_wdx1.0.rar

Поехали!
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Mon Jan 16, 2012 15:45    Post subject: Reply with quote

Пример получения информации о шрифте с помощью AKFontInfo.wdx
пути поправить на свои
Code:
On Error Resume Next
Set wdx = CreateObject("tc_wdx.wdx")
If Err.Number <> 0 Then
   WScript.Echo "Please install TC_wdx!"
   WScript.Quit 1
End If
On Error GoTo 0

wdxPluginPath="c:\WINCMD\Content_wdx\AKFontInfo\AKFontInfo.wdx"
FilePath="c:\windows\fonts\arial.PFM"
f = wdx.Fields(wdxPluginPath,FilePath)

For i = 0 To Ubound(f)-1
  s=s & f(i,0) & " = " & cstr(f(i,1)) & vbCrLf
Next
MsgBox s,,FilePath
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Jan 16, 2012 16:23    Post subject: Reply with quote

Lev
А ты не мог бы как-то поподробней расписать все методы, свойства и т.п.? Ведь даже readme нет. В SCP тоже проблемы с этим.
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Mon Jan 16, 2012 17:28    Post subject: Reply with quote

Я надеялся, что выложенная версия станет затравкой для разговора о желаемых методах, свойствах и т.п., но т.к. за год было 0 вопросов-ответов + выловил глючок с некоторыми wdx-плагинами, то забросил на время.
Из методов свойств в выложенной версии, кажись только Fields и About. Проще код примера откомментировать.
Code:
On Error Resume Next
'создаём экземпляр ActiveX
Set wdx = CreateObject("tc_wdx.wdx")
'проверка на существование (зарегистрированность)
If Err.Number <> 0 Then
   WScript.Echo "Please install TC_wdx!"
   WScript.Quit 1
End If
On Error GoTo 0

'задаём путь к wdx плагину, чьи поля мы хотим получать
wdxPluginPath="c:\WINCMD\Content_wdx\exeinfo\exeinfo.wdx"
'задаём путь к файлу из которого получаем поля
'в данном случае я плагином exeinfo.wdx получаю поля из него же самого
FilePath=wdxPluginPath
'wdx.Fields - поля плагина
f = wdx.Fields(wdxPluginPath,FilePath)

For i = 0 To Ubound(f)-1
  'f(i,0) - название поля
  'f(i,1) - полученное значение поля
  s=s & f(i,0) & " = " & f(i,1) & vbCrLf
Next
MsgBox s
'About он и есть About
wdx.About


позже в невыложенной эксперементировал с
wdx.RegisteredPlugins - список зарегистрированных в тотале плагинов
wdx.PluginFields(wdxPluginPath) - названия полей плагинов и их типы
помнится, с плагинами возвращающими даты, ошибки у меня пока
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Jan 17, 2012 21:27    Post subject: Reply with quote

Lev
Без регистрации работать из под юзера не будет?
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Tue Jan 17, 2012 22:42    Post subject: Reply with quote

А бывают ActiveX работающие без регистрации?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Jan 17, 2012 23:15    Post subject: Reply with quote

Бывает авторегистрация из-под юзера.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Написание плагинов для Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group