Проблема с dll

[Кольша]

Все привет.
Вообщем пишу программу, в ней реализовал plugin систему.
Но при подключение и вызове методов из dll вылазиют нелепые ошибки.
Суть в том, что одна dll может быть подключена несколько раз, и функции могут быть вызваны в одно и тоже время.
Некоторые части программы.
Типы:

type
  TPluginInfo = record
    Name: pchar;
    Version: pchar;
    Author: pchar;
    About: pchar;
    ForBoard: pchar;
  end;
  TInitParams = record
    Owner: Integer;
    ProcLog: procedure(const s: string);
    IPointer: Pointer;
    NewAdProc: function(const Ad: Tad; const IPointer: Pointer): boolean;
    Page: pchar;
  end;

  PlugInExecute = procedure;
  PlugInGetAds = procedure(const PageN:integer);
  PlugInInit = procedure(const Params: TInitParams);
  PlugInGetInfo = function: TPluginInfo;

  TPlugIn = class
    Info: TPluginInfo;
    Loaded: boolean;
    Address: Integer;
    GetAds: PlugInGetAds;
    GetInfo: PlugInGetInfo;
    Init: PlugInInit;
    Execute: PlugInExecute;
  end;

Подключение:

function LoadPlugin(const FN: string): TPlugIn;
var
  FileName: string;
begin
  Result := TPlugIn.Create;
  Result.Loaded := false;
  if FileExists(FN) then
    FileName := FN
  else if FileExists(ExtractFileDir(paramstr(0)) + '\' + FN) then
    FileName := ExtractFileDir(paramstr(0)) + '\' + FN
  else
    exit;
  try
    Result.Address := LoadLibrary(pchar(FileName));
    if Result.Address = 0 then
      exit;
  except
    exit;
  end;
  @Result.GetInfo := GetProcAddress(Result.Address, 'GetInfo');
  if (@Result.GetInfo = nil) then
    exit;
  @Result.Execute := GetProcAddress(Result.Address, 'Execute');
  if (@Result.Execute = nil) then
    exit;
  @Result.Init := GetProcAddress(Result.Address, 'Init');
  if (@Result.Init = nil) then
    exit;
  @Result.GetAds := GetProcAddress(Result.Address, 'GetAds');
  if (@Result.GetAds = nil) then
    exit;
  Result.Loaded := true;
end;

Инит:

  if FindFirst(ExtractFileDir(paramstr(0)) + '\' + PluginsDirName + '\*' +
    PlugInsExt, faAnyFile, SR) = 0 then
  begin
    repeat
      r.Expression := '(' + StringReplace(SR.Name, PlugInsExt, '',
        ReplaceFlags) + ')';
      if (SR.Attr <> faDirectory) and (r.Exec) then
      begin
        PlugIn := LoadPlugin(ExtractFileDir(paramstr(0)) + '\' + PluginsDirName
          + '\' + SR.Name);
        Params.Owner := HInstance;
        Params.ProcLog := Log;
        Params.Page := pchar(self.Link);
        Params.NewAdProc := NewAd;
        Params.IPointer := Pointer(self);
        result := true;
        PlugIn.Init(Params);
        PlugIn.Info := PlugIn.GetInfo;
        // tray('Plugin: ' + PlugIn.Info.Name + ' loaded.' + cl + 'Info: ' +
        // PlugIn.Info.About + ' . ' + cl + 'Ver: ' + PlugIn.Info.Version + cl +
        // 'Author: ' + PlugIn.Info.Author, 'PlugIn Info');
        r.Free;
        exit;
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
    r.Free;
  end;

Все это дело вызывается в динамическом потоке.

[Кольша]

Может кто посоветует свой вариант реализации системы плагинов?

[Человек_Борща]

Через Interface.

[Slym]

нелепые ошибки. из за ProcLog: procedure(const s: string);

а интерфейсы тоже при stringах не помогут

[eval]

TPlugIn = class
Info: TPluginInfo;
Loaded: boolean;
Address: Integer;
GetAds: PlugInGetAds;
GetInfo: PlugInGetInfo;
Init: PlugInInit;
Execute: PlugInExecute;
end;

и зачем дублировать данные

[phomm]

Сей труд изучен http://www.gunsmoker.ru/2008/12/1.html ?

[Кольша]

eval, я что то не увидел, где я продублировал?
Человек_Борща, можно на примере?
Мне нужно инициализировать плагин, и вызвать из него одну процедуру с передачей ей следующие параметры:

    ProcLog: procedure(const s: string);
    IPointer: Pointer;
    NewAdProc: function(const Ad: Tad; const IPointer: Pointer): boolean;
    Page: pchar;
   PageN:integer;

Посмотрел исходники, не пойму как добавить и вызвать новую функцию(процедуру).
Получается ее надо добавлять в шаблон IPlugin?

[Человек_Борща]

а интерфейсы тоже при stringах не помогут

При widestring'ах им пофигу string'и.

[northener]

Сообщение от Человек_Борща

При widestring'ах им пофигу string'и.

Почему пофигу?

[Человек_Борща]

Почему пофигу?

Потому что WideString(он же BSTR), это системный тип данных, и этим типом данных управляет системный менеджер(от ОС который) памяти а не программный.
Почему так.... читаем далее тут.