Плагины...., Помогите разобраться что с чем есть.... Опции

[Cockney]

Всем привет!На днях заглянул в справку пилота и увидел пример плагина.....загорелся написать что-то свое,но......нифига я не разобрался как это все работает....Прошу помощи(IMG:style_emoticons/default/smile.gif)

Особенно мне интересно как передается результат в ParamStruct.Result и передача параметров из скрипта пилота в dll......заранее спасибо.....и если можно мини код вроде 2+2 в виде функции для примера)


Заранее спасибо!

Код

function Function1(AdressPS: Pointer): boolean; stdcall;
var
s :string;

  // function has only one parameter, this is Pointer to the tParamStruct structure
  ParamStruct := AdressPS;

  if ParamStruct^.WindowHandle = 0 then
    s:= 'workwindow not defined'
  else begin
    s:= 'ok, worked' + #9 + 'value, sended to plugin, returned in next element of array';
    s:= s + '/n' + ParamStruct^.ParamString;
  end;
  CopyMemory (@ParamStruct^.Result[0], @s[1], length(s));


  // return value not analized while, may be later
  Result := true;
end;

Что это за функция?и что она делает?при вызове в логе всегда пишет workwindow not defined

[DarkMaster]

В справке пилота как раз и содержится код простейшего плагина.
Привязка судя по всем у не сделана.

Сообщение отредактировал DarkMaster - 7.7.2013, 17:29

[Cockney]

В справке пилота как раз и содержится код простейшего плагина.

так я от туда и взял,нифига не пойму.....

[DarkMaster]

Привязка судя по всем у не сделана.

Вообще я имел ввиду вот этот пример:

Код

library Plugin;

uses  windows; 

type
  tInitStruct = packed record
    FunctionCount : Cardinal;
    FunctionNames : Array of Pchar;
  end;

  tParamStruct = packed record
    WindowHandle : Cardinal; // Handle of workWindow
    WindowPID    : Cardinal; // pid of process of workWindow
    Reserved     : Cardinal;
    ParamString     : Pchar; // string of parameters with substituted variables
    ParamStringOrig : Pchar; // original string of parameters
    Result : array [0..32767] of char // array for returned values
  end;

var
  ParamStruct: ^tParamStruct;  // init by UOPilot
  InitStruct :  tInitStruct;   // init by plugin, free on unload


function InitPlugin(App, Scr: integer; Var Version: Real):Pointer; stdcall;
// App: Application.Handle of UOPilot
// Scr: reserved
begin
  // check UOPilot version, if it needed
  if Version >= 2.18 then begin
    // exported function count, for UOPilot
    InitStruct.FunctionCount := 2;
    setlength (InitStruct.FunctionNames, InitStruct.FunctionCount);
    // exported function names
    InitStruct.FunctionNames[0] := 'Function1';
    InitStruct.FunctionNames[1] := 'Function2';
  end else
    InitStruct.FunctionCount := 0;

  // if exported function count = 0, then plugin will be unloaded
  Result := @InitStruct;
end;


procedure DonePlugin; stdcall;
begin
  // free memory
  setlength (InitStruct.FunctionNames, 0);
end;


// exported function example
function Function1(AdressPS: Pointer): boolean; stdcall;
var s :string;
begin
  // function has only one parameter, this is Pointer to the tParamStruct structure
  ParamStruct := AdressPS;

  if ParamStruct^.WindowHandle = 0 then
    f:= 'workwindow not defined'
  else begin
    f:= 'ok, worked' + #9 + 'value, sended to plugin, returned in next element of array';
    f:= f + '/n' + ParamStruct^.ParamString;
  end;
  CopyMemory (@ParamStruct^.Result[0], @f[1], length(f));


  // return value not analized while, may be later
  Result := true;
end;

function Function2(AdressPS: Pointer): boolean; stdcall;
begin
  Result := true;
end;


Exports
  InitPlugin,
  DonePlugin,
  Function1,
  Function2;

begin
end.

[Cockney]

его я и взял за основу,хорошо,если не привязан,как привязать?писать функцию по нахождению хендла и пихать этот хендл в структуру?

[DarkMaster]

Может просто передать его просто в качестве параметра?

[Cockney]

Может просто передать его просто в качестве параметра?

эммм,нет,тут что.то не то....даже если передавать,то как будет выглядеть?в каждом вызове функции указывать хендл?

[WKnight]

var
ParamStruct: ^tParamStruct; // init by UOPilot

function Function1(AdressPS: Pointer): boolean; stdcall;
var s :string;
begin
// function has only one parameter, this is Pointer to the tParamStruct structure
ParamStruct := AdressPS;

Заполняеися пилотом на основе привязки скрипта.

[Cockney]

Заполняеися пилотом на основе привязки скрипта.

благодарю,попробую что то накатать...

[Cockney]

а что так долго выключается пилот при подключенных плагинах?

[WKnight]

Не замечал.
При закрытии пилот ищет во всех плагинах функцию DonePlugin или _DonePlugin, если есть - выполняет ее, и выгружает библиотеку. Больше с ними ничего подозрительного не делает.

[Cockney]

Не замечал.
При закрытии пилот ищет во всех плагинах функцию DonePlugin или _DonePlugin, если есть - выполняет ее, и выгружает библиотеку. Больше с ними ничего подозрительного не делает.

не знаю,есть эта процедура(доне),на моей машине закрывается 20-50 сек.