Разработка плагинов на Delphi/ Pascal
GetFindData Pascal
Если кому не трудно дайте посмотреть реализаццию функции GetFindData на Паскале(можно именно Delphi) с сигнатурой
- WARP ItSelf
- Самый умный
- Posts: 1011
- Joined: Tue 15 Mar, 2005 23:19
- Contact:
Есть ли тут еще живые плагинописатели, пишущие на Delphi/VP?
Очень хотелось бы получить помощь в чистке/исправлении свежего plugin.pas. А то я его с нуля перестучал, очень вероятно, что где-то ошибся.
- Attachments
-
- screen.png (16.5 KiB) Viewed 3325 times
-
- plugin.rar
- (11.03 KiB) Downloaded 375 times
- zg
- zero-gravity
- Posts: 6035
- Joined: Tue 15 Mar, 2005 17:36
- Location: riga
- Been thanked: 185 times
- Contact:
Re: Есть ли тут еще живые плагинописатели, пишущие на Delphi
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;
- WARP ItSelf
- Самый умный
- Posts: 1011
- Joined: Tue 15 Mar, 2005 23:19
- Contact:
Попытка номер 2. Исправил вышеописанное, вернул пару недостающих типов данных.
- Attachments
-
- plugin.rar
- (10.7 KiB) Downloaded 385 times
- t-rex
- Страшный и ужасный
- Posts: 4910
- Joined: Tue 15 Mar, 2005 16:17
- Location: Tel-Aviv
- Has thanked: 1 time
- Been thanked: 8 times
- Contact:
А где есть плагины на паскале с нормальными исходниками?HaRT wrote:Прошу прощения, но может и впрямь стОит в качестве первичной проверки попытаться собрать с новым заголовочным файлом те плагины на Паскале, для которых есть нормальные исходники?
PS Сам-то я к Паскалю уже много лет даже не притрагивался...
- Andrey Budko
- Posts: 1203
- Joined: Fri 01 Apr, 2005 14:03
- Contact:
- Andrey Budko
- Posts: 1203
- Joined: Fri 01 Apr, 2005 14:03
- Contact:
- WARP ItSelf
- Самый умный
- Posts: 1011
- Joined: Tue 15 Mar, 2005 23:19
- Contact:
У меня есть плагин куда больше 15к размером, но возникли вопросы с его сборкой. Кто-нибудь может напомнить мне как передать параметр типа TFarApiWindowProc. А то у меня в старых заголовочных файлах не было TFarApiWindowProc, был Pointer, там все просто. А здесь ругается он на меня, когда я туда имя функции передаю. А я что-то запамятовал, что с этим делать.
- Andrey Budko
- Posts: 1203
- Joined: Fri 01 Apr, 2005 14:03
- Contact:
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);
Вот здесь их не меньше 30 штук:t-rex wrote:Да блин, это не был наезд на Паскаль, я просто не видел вообще плагина на паскале идущего с сорцами.
http://plugring.farmanager.com/cgi-bin/ ... earchText=
- WARP ItSelf
- Самый умный
- Posts: 1011
- Joined: Tue 15 Mar, 2005 23:19
- Contact:
Andrey Budko
Однако так VP посылает меня нафиг - Invalid Variable Reference. Если тип параметра сделать не TFarApiWindowProc, а Pointer, тогда такой вариант без проблем работает.
Функция у меня вот такая, конфликта не вижу пока...
function DialogHandler (Dlg : THandle; Msg : Integer; Param1 : Integer; Param2 : Integer) : Integer; stdcall;
Однако так VP посылает меня нафиг - Invalid Variable Reference. Если тип параметра сделать не TFarApiWindowProc, а Pointer, тогда такой вариант без проблем работает.
Функция у меня вот такая, конфликта не вижу пока...
function DialogHandler (Dlg : THandle; Msg : Integer; Param1 : Integer; Param2 : Integer) : Integer; stdcall;
- Andrey Budko
- Posts: 1203
- Joined: Fri 01 Apr, 2005 14:03
- Contact: