ответ от плагина в приложение

[apromix]

Привет!

Приложение имеет окно с редактором TMemo. И подключает плагины при запуске. Внутри плагинов (обычные dll) находится разный текст. Его нужно выводить в TMemo, когда активируются процедуры в плагине.

Подскажите, как сделать? Спасибо

[Swarog]

Передаешь плагину указатель на процедуру через которую можно давалять строки, затем в самомо плагине вызываешь по этому указателю эту процедуру

[apromix]

Ну наверное нужен код с моей стороны, чтобы понятнее было

Код проги:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  Form1: TForm1;

procedure ShowText(GBP: PChar); stdcall; external 'a.dll';
procedure DisplayText(S: string);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowText(PChar('Текст')); // Это ShowMessage для теста
end;

// Вот как именно эту процедуру вызвать из плагина и передать ей S из плагина
procedure DisplayText(S: string);
begin
  Form1.Memo1.Text := S;
end;

end.

Код плагина:

library a;

uses SysUtils, Classes, Dialogs;

{$R *.res}

procedure ShowText(AA: PChar); stdcall;
begin
  ShowMessage(StrPas(AA)); // Это для теста,
  // а нужно вызывать процедуру из главной программы
  // DisplayText(StrPas(AA)); 
end;

exports
  ShowText;

begin
end.

[KiL0z]

Что-то в эту сторону:

type
    TFunc = procedure (S: string);

//---

procedure ShowText(DisplayText: TFunc); stdcall; external 'a.dll';
procedure DisplayText(S: string); stdcall;

//---

procedure ShowText(DisplayText: TFunc); stdcall;
begin
  DisplayText('текст');
end;

[apromix]

+1 Это действительно работает! Но как получить значение в самой dll?

library a;

uses SysUtils, Classes, Dialogs;

{$R *.res}

type TFunc = procedure (S: string);

procedure ShowText(DisplayText: TFunc); stdcall;
begin
  DisplayText('Текст');
  // А как здесь получить передаваемый текст?
end;

exports
  ShowText;

begin
end.

[Stilet]

Передаешь плагину указатель на процедуру через которую можно давалять строки, затем в самомо плагине вызываешь по этому указателю эту процедуру

Я бы лучше плагину передавал экземпляр TMemo в качестве параметра процедуры.
Или вообще - в плагине класс свой замутил бы.

Форма:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 procedure SetText(m:TMemo); external 'project2.dll';
 
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetText(Memo1);
end;

end.

ДЛЛ

library Project2;

uses
  StdCtrls,
  SysUtils,
  Classes;

{$R *.res}

procedure SetText(m:TMemo);begin m.Lines.Add(DateTimeToStr(now));end;

exports SetText;

begin
end.

Идея понятна?

[apromix]

Все как бы сводится к тому, чтобы вызвать из плагина процедуру в главной программе. Как такое сделать?

[Swarog]

library a;

uses SysUtils, Classes, Dialogs;

{$R *.res}
type TFunc = procedure (S: string);

DisplayText: TFunc;

procedure ShowText(AA: PChar); stdcall;
begin
  // а нужно вызывать процедуру из главной программы
 if assigned(DisplayText) then  DisplayText(StrPas(AA));
end;


procedure SetTextOutProc(v: TFunc);stdcall;
begin
 DisplayText := v;
end

exports
  ShowText, SetTextOutProc;

begin
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type TFunc = procedure (S: string);

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 
implementation

{$R *.dfm}
procedure ShowText(AA: PChar); stdcall; external 'project2.dll';
procedure SetTextOutProc(v: TFunc);stdcall; external 'project2.dll';

procedure TextOut (S: string);
 begin
  form1.memo1.lines.add(s);
 end;

procedure TForm1.formcreate(Sender: TObject);
begin
 SetTextOutProc(@TextOut);// может без собаки
end;


end.

как то так, принцип вроде должен быть понятен

[Stilet]

чтобы вызвать из плагина процедуру в главной программе. Как такое сделать?

Как вариант. В каждом плагине делать процедуру инициализации, которая вызывается формой. Если плагин ничего не должен делать процедура пустая, иначе наполненная чем нибудь.
Такой себе аналог DLLMain функции.

[Swarog]

Такой себе аналог DLLMain функции.

очень хороший подход, так делается R&Q есть одна функция PluginFun в нее передается указатель на структуру. структура представляет из себя массив указателей на все используемые функции, в том числе есть функция через котурую плагин отдает основной программе указатели на все свои остальные функции таким образом налаживается интерфейс