WestByte Support Forum

Code: Select all

procedure TForm1.Button2Click(Sender: TObject);
begin
TDMTestPlugIn.Create.DoMyAction('', '');
end;

Code: Select all

function TDMTestPlugIn.DoMyAction(action, parameters: WideString): WideString;
begin
myIDmInterface.DoAction('GetDownloadIDsList', '');//ЗДЕСЬ, ПРИ ОБРАЩЕНИИ К ИНТЕРФЕЙСУ, ВЫСКАКИВАЕТ ACCESS VIOLATION!
//Form1.Edit1.Text:= myIDmInterface.DoAction('GetDownloadIDsList', ''); - И ЗДЕСЬ, ЕСТЕСТВЕННО, ТОЖЕ!
end;

Code: Select all

type
  TSetupForm = class(TForm)
  ...
  private
   FPlugin: TDMTestPlugIn;
   ...
  public
    property Plugin: TDMTestPlugIn read FPlugin write FPlugin;
    ...
  end;

procedure TSetupForm.FormCreate(Sender: TObject);
begin
 FPlugin:=nil; //исходное значение
 ...
end;
   
procedure TSetupForm.FormDestroy(Sender: TObject);
begin
 FPlugin:=nil; //освобождение экземпляра интерфейса (если был выделен)
 ...
end;

Code: Select all

 var 
  SF: TSetupForm = nil;
 ...
procedure TDMTestPlugIn.PluginConfigure(params: WideString);//вызов окна конфигурации плагина
begin
 if not Assigned(SF) then
  begin
   SF:=TSetupForm.Create(nil);
   SF.Plugin:=Self; //передача в форму экземпляра интерфейса
  end;
 if SF.ShowModal = mrOK then //модальный код кнопки закрытия
  begin
   ...
  end;
  ...
end;

procedure TDMTestPlugIn.BeforeUnload;
begin
 FreeAndNil(SF);
 ...
end;

Code: Select all

procedure TSetupForm.Button1Click(Sender: TObject);
begin
 if Assigned(FPlugin) then
   PlugIn.myIDmInterface.DoAction('', '');
end;