Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Как запускать процедуру из DLL 


DJ X   (2002-03-10 17:12) [0]

Как запускать процедуру из DLL, если имя DLL можно узнаь только в процессе загрузки формы???



Иван Шихалев   (2002-03-10 17:20) [1]

LoadLibrary
GetProcAddress



DJ X   (2002-03-10 17:31) [2]

Поподробней, PLEASE!



McSimm   (2002-03-10 17:37) [3]

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

function TWorkFlowForm.InitializePlugin(FileName: String): Boolean;
var
I, LibHandle: Integer;
RegisterProc: TRegisterPlugin;
Plugin: TBasePlugin;
Panel: TPanel;
mItem, mAction: TMenuItem;
begin
Result := False;
LibHandle := LoadLibrary(Pchar(FileName));
if LibHandle = 0 then Exit;

// Load the registration procedure
RegisterProc := GetProcAddress(LibHandle, RegiserPluginProcedureName);
if not Assigned(RegisterProc) then Exit;

// register the plugin
Plugin := RegisterProc;
if Plugin = nil then Exit;

for I := 0 to Plugins.Count - 1 do
if TBasePlugin(Plugins[I]).PluginID = Plugin.PluginID then
begin
Plugin.Free;
Exit
end;

// Add to popup menu
mItem := TMenuItem.Create(TrayPopup);
mItem.Caption := Plugin.PluginShortName;
mItem.SubMenuImages := Plugin.ImageList;
TrayPopup.Items.Insert(2,mItem);
for I := 0 to Plugin.Actions.ActionCount - 1 do
begin
mAction := TMenuItem.Create(TrayPopup);
mAction.Action := Plugin.Actions[I];
mItem.Add(mAction)
end;

// initialize the plugin
Panel := TPanel.Create(Self);
with Panel do
begin
Visible := False;
Parent := StatePage;
BevelOuter := TBevelCut(bvNone);
BevelInner := TBevelCut(bvLowered);
Align := alClient
end;
Plugin.Initialize(Panel);
Plugin.CommandStarted := OnPluginCommandStarted;
Plugin.CommandStoped := OnPluginCommandStoped;
Plugin.PluginMessage := OnPluginMessage;
// Plugin.ActionUsedInShedule := IsActionUsedInShedule;
Plugins.Add(Plugin);
ListView.AddItem(Plugin.PluginShortName, Plugin);
// FPluginHandles.Add(IntToStr(LibHandle));
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
14-80691          Zerul                 2002-02-10 00:50  2002.03.25  
*.iso - hto uto takoe i shem ego edyt?


7-80694           andey                 2001-12-20 19:28  2002.03.25  
подскажите кто знает


4-80730           dimich                2002-01-25 13:21  2002.03.25  
Текущая раскладка клавиатуры


1-80593           Jackson               2002-03-11 11:09  2002.03.25  
TFileStream


1-80614           BDRON                 2002-03-11 18:09  2002.03.25  
Упаковка/распоковка файлов