Плагины

[Zotoff]

Вообще не догоняю. Как написать модуль поддержки плагинов? Вообще не рублю. Где можно почитать про сам механизм...

[GSerg]

Описать в главной проге IPlugin.
Заставить все плагины Implements IPlugin.
Создаём плагин через CreateObject и обращаемся к нему через IPlugin.

[Zotoff]

Спасибо... но я них** не всосал =). Ниче не понял. Есть ли гений, который может написать про это статью? Или хоття бы попоятнее. Можно на русском, но жедательно с матами...

[gaidar]

Спасибо... но я них** не всосал =). Ниче не понял. Есть ли гений, который может написать про это статью? Или хоття бы попоятнее. Можно на русском, но жедательно с матами...

СТРОГОЕ ПРЕДУПРЕЖДЕНИЕ!!!

А на счет статей - иди-ка ты на www.pscode.com и там ищи в поиске plugin. Там есть множество примеров.

[gaidar]

Спасибо... но я них** не всосал =). Ниче не понял. Есть ли гений, который может написать про это статью? Или хоття бы попоятнее. Можно на русском, но жедательно с матами...

СТРОГОЕ ПРЕДУПРЕЖДЕНИЕ!!!

А на счет статей - иди-ка ты на www.pscode.com и там ищи в поиске plugin. Там есть множество примеров.

[Zotoff]

СТРОГОЕ предупреждение за флуд!!! (без обид =)

Всем спасибо, разобрался. Оказывается всего DLL нужно написать и подключить ее! Ваще рулез.

[Zotoff]

Блин =((( Ниче не понял. Что за регистраця??? Блин. Скачал исходник - он свои подключает dll`ки, а мои не хочет, говорит не зарегенные, а модуль не пашет =(((. Посмотрел по тем ссылкам, которые кинули вы... то же фигня. У меня такая проблема. Плагины не больше 50 строчек кода. Мне нужно просто выполнить его!!! И все. Блин. Что нужно. Как я понял сначало нужно объявить как объект
Dim Plugins() as Object
потом помещаю в массив все dll`ки из например папки Plugins, и объявляю их с помощью
Set Plugins(i) = CreateObject("Бла бла бла" & ".Data")
А далее... Как мне зарегистрировать dll и вообще,может я что не так? Мне нужно лишь выполнить код dll`ки и вернуть результат работы, никаких наваротов, возвращает только текст! Блин... нужно сильно...

[Zotoff]

C подключением плагина разобрался. Не пойму как выполнить код. Вот сам плагин как КлассМодуль

Код: Выделить всё

Option Explicit
Public Sub Plugin()
    Unload me
End Function

А вот Форма...

Dim arrPlugins() As Object
Private Sub Form_Load()
`код подключения плагинов...
End Sub

Private Sub Command1_Click()
arrPlugins(0).Plugin
End Sub


Не работает... Видимо вы скажите "И естесствено..." Но я не могу понять. Как заставить выполнится эту комманду??? Чтобы по нажатию кнопки вырубилась прога???

[Sebas]

Ты не правильно подключаешь плагин!

Подключать его надо через библиотеку TypeLibrary 1.0 (Добавь в рефересах)

Код: Выделить всё

    Set objTLA = New TLI.TLIApplication
    Set objTLI = objTLA.TypeLibInfoFromFile(MyFilePlugIn)
    objTLI.Register 'если Длл не зарегина
            For Each objClass In objTLI.CoClasses
                    Set objPlugIn = CreateObject(objTLI.Name & "." & objClass.Name)


[Zotoff]

Все уже сделал. Спасибо конечно за исходник. Кстати Не мог бы объяснить, веди можно проще. Я просто модуль не так назвал =)))).