Разработка плагинов на Delphi/ Pascal

Место, где разработчики плагинов могут поделиться своим опытом.
Post Reply
Marsel
Posts: 6
Joined: Thu 09 Mar, 2006 09:21
Contact:

GetFindData Pascal

Post by Marsel »

Если кому не трудно дайте посмотреть реализаццию функции GetFindData на Паскале(можно именно Delphi) с сигнатурой
User avatar
WARP ItSelf
Самый умный
Posts: 1011
Joined: Tue 15 Mar, 2005 23:19
Contact:

Есть ли тут еще живые плагинописатели, пишущие на Delphi/VP?

Post by WARP ItSelf »

Очень хотелось бы получить помощь в чистке/исправлении свежего plugin.pas. А то я его с нуля перестучал, очень вероятно, что где-то ошибся.
Attachments
screen.png
screen.png (16.5 KiB) Viewed 3281 times
plugin.rar
(11.03 KiB) Downloaded 368 times
User avatar
zg
zero-gravity
Posts: 6015
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 185 times
Contact:

Re: Есть ли тут еще живые плагинописатели, пишущие на Delphi

Post by zg »

WARP ItSelf wrote:Очень хотелось бы получить помощь в чистке/исправлении свежего plugin.pas. А то я его с нуля перестучал, очень вероятно, что где-то ошибся.

Code: Select all

*** C:\plugin.pas	Mon Mar 27 23:48:20 2006
--- C:\1\plugin.pas	Mon Mar 27 23:38:08 2006
*************** type
*** 1782,1789 ****
        StructSize : Integer;
        Flags : Cardinal;
        DiskMenuStrings : PPCharArray;
!       DistMenuNumbers : PIntegerArray;
!       DistMenuStringsNumber : Integer;
        PluginMenuStrings : PPCharArray;
        PluginMenuStringsNumber : Integer;
        PluginConfigStrings : PPCharArray;
--- 1782,1789 ----
        StructSize : Integer;
        Flags : Cardinal;
        DiskMenuStrings : PPCharArray;
!       DiskMenuNumbers : PIntegerArray;
!       DiskMenuStringsNumber : Integer;
        PluginMenuStrings : PPCharArray;
        PluginMenuStringsNumber : Integer;
        PluginConfigStrings : PPCharArray;
но это так, мелочь. пытался я тут с помощью этого собрать два своих старых (аж 1998 года) плагина. один даже собрал. но фар с тем, что собралось улетает в никуда. fexcept даже не срабатывает. во втором плагине было меню. тут я вообще не осилил даже сборку.
User avatar
WARP ItSelf
Самый умный
Posts: 1011
Joined: Tue 15 Mar, 2005 23:19
Contact:

Post by WARP ItSelf »

Попытка номер 2. Исправил вышеописанное, вернул пару недостающих типов данных.
Attachments
plugin.rar
(10.7 KiB) Downloaded 379 times
User avatar
HaRT
Moderator
Posts: 10806
Joined: Tue 30 Aug, 2005 17:21
Has thanked: 220 times
Been thanked: 357 times

Post by HaRT »

Прошу прощения, но может и впрямь стОит в качестве первичной проверки попытаться собрать с новым заголовочным файлом те плагины на Паскале, для которых есть нормальные исходники?

PS Сам-то я к Паскалю уже много лет даже не притрагивался...
User avatar
t-rex
Страшный и ужасный
Posts: 4910
Joined: Tue 15 Mar, 2005 16:17
Location: Tel-Aviv
Has thanked: 1 time
Been thanked: 8 times
Contact:

Post by t-rex »

HaRT wrote:Прошу прощения, но может и впрямь стОит в качестве первичной проверки попытаться собрать с новым заголовочным файлом те плагины на Паскале, для которых есть нормальные исходники?

PS Сам-то я к Паскалю уже много лет даже не притрагивался...
А где есть плагины на паскале с нормальными исходниками?
User avatar
Andrey Budko
Posts: 1203
Joined: Fri 01 Apr, 2005 14:03
Contact:

Post by Andrey Budko »

А где есть вообще плагины с нормальными исходниками?
User avatar
t-rex
Страшный и ужасный
Posts: 4910
Joined: Tue 15 Mar, 2005 16:17
Location: Tel-Aviv
Has thanked: 1 time
Been thanked: 8 times
Contact:

Post by t-rex »

Andrey Budko wrote:А где есть вообще плагины с нормальными исходниками?
Да блин, это не был наезд на Паскаль, я просто не видел вообще плагина на паскале идущего с сорцами. Тока вот зг напомнил что Вася раздавал сорцы ProxyKit зарегеным юзерам.
User avatar
[e]Bu$ter
Posts: 792
Joined: Mon 30 May, 2005 23:05
Location: Беларусь, Минск
Contact:

Post by [e]Bu$ter »

я просто не видел вообще плагина на паскале идущего с сорцами
Имеются ввиду плуги разером от 15 kb?

Просто я когда разбирался как оно там в фаре работает (так и не разобрался...) то с плугринга слил с десяток паскале\дельфовых плугов с сорцами.
User avatar
Andrey Budko
Posts: 1203
Joined: Fri 01 Apr, 2005 14:03
Contact:

Post by Andrey Budko »

Откопал свой диалоговый плуг 99 года который шарит папку. Работает как со сторым plugin.pas так и с новым от варпа.
User avatar
WARP ItSelf
Самый умный
Posts: 1011
Joined: Tue 15 Mar, 2005 23:19
Contact:

Post by WARP ItSelf »

У меня есть плагин куда больше 15к размером, но возникли вопросы с его сборкой. Кто-нибудь может напомнить мне как передать параметр типа TFarApiWindowProc. А то у меня в старых заголовочных файлах не было TFarApiWindowProc, был Pointer, там все просто. А здесь ругается он на меня, когда я туда имя функции передаю. А я что-то запамятовал, что с этим делать.
User avatar
Andrey Budko
Posts: 1203
Joined: Fri 01 Apr, 2005 14:03
Contact:

Post by Andrey Budko »

Code: Select all

function WARP_ItSelf(hDlg: THandle; Msg, Param1, Param2: Integer): Integer; stdcall;
begin
  Result := 1;
end;

Info.DialogEx(0, 0, 0, 0, 0, 0, nil, 0, 0, 0, @WARP_ItSelf, 0);
al666
Posts: 239
Joined: Mon 04 Jul, 2005 08:55
Been thanked: 1 time

Post by al666 »

t-rex wrote:Да блин, это не был наезд на Паскаль, я просто не видел вообще плагина на паскале идущего с сорцами.
Вот здесь их не меньше 30 штук:
http://plugring.farmanager.com/cgi-bin/ ... earchText=
User avatar
WARP ItSelf
Самый умный
Posts: 1011
Joined: Tue 15 Mar, 2005 23:19
Contact:

Post by WARP ItSelf »

Andrey Budko

Однако так VP посылает меня нафиг - Invalid Variable Reference. Если тип параметра сделать не TFarApiWindowProc, а Pointer, тогда такой вариант без проблем работает.

Функция у меня вот такая, конфликта не вижу пока...

function DialogHandler (Dlg : THandle; Msg : Integer; Param1 : Integer; Param2 : Integer) : Integer; stdcall;
User avatar
Andrey Budko
Posts: 1203
Joined: Fri 01 Apr, 2005 14:03
Contact:

Post by Andrey Budko »

VP... такой страны не знаю
лесом его, лесом
Post Reply

Return to “Разработка плагинов”