From 7f5c651cf34e557d22eb148e08abc9dce8655780 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 23 Mar 2009 14:51:13 +0000
Subject: new pluginloader library loading finished handshake missing sdk
 nearly finished

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1654 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 .../src/pluginsupport/UPluginLoader_DLL.pas        | 181 +++++++++++++++++++++
 1 file changed, 181 insertions(+)
 create mode 100644 ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas

(limited to 'ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas')

diff --git a/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas b/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas
new file mode 100644
index 00000000..b143cd2a
--- /dev/null
+++ b/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas
@@ -0,0 +1,181 @@
+{* UltraStar Deluxe - Karaoke Game
+ *
+ * UltraStar Deluxe is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; see the file COPYING. If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ *
+ * $URL: https://ultrastardx.svn.sourceforge.net/svnroot/ultrastardx/trunk/src/base/UMain.pas $
+ * $Id: UMain.pas 1629 2009-03-07 22:30:04Z k-m_schindler $
+ *}
+
+unit UPluginLoader_DLL;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses UPluginDefines, UPlugin;
+
+type
+  TPluginLoader_DLL = class
+    protected
+      PluginDir: WideString;
+    public
+      constructor Create(PluginDir: WideString);
+      procedure Browse(Dir: WideString);
+  end;
+  
+  TPlugin_DLL = class (TPlugin)
+    protected
+      hLib: THandle; //< handle of loaded library
+      Lib_Proc_Init: TUS_Plugin_Proc_Init;
+      Lib_OnChangeStatus: TUS_Plugin_OnChangeStatus;
+      
+      procedure OnChangeStatus(Status: TUS_PluginStatus); override;
+    public
+      constructor Create(Handle: TUS_Handle; Filename: WideString); override;
+      destructor Destroy; override;
+  end;
+
+const
+  {$IF Defined(MSWINDOWS)}
+    DLLExt  = '.dll';
+  {$ELSEIF Defined(DARWIN)}
+    DLLExt  = '.dylib';
+  {$ELSEIF Defined(UNIX)}
+    DLLExt  = '.so';
+  {$IFEND}
+
+implementation
+uses
+  {$IFDEF MSWINDOWS}
+  windows,
+  {$ELSE}
+  dynlibs,
+  {$ENDIF}
+  SysUtils, Dialogs,
+  UPluginManager,
+  UPlatform;
+
+{ implementation of TPluginLoader_DLL }
+constructor TPluginLoader_DLL.Create(PluginDir: WideString);
+begin
+  Self.PluginDir := PluginDir;
+  Browse(PluginDir);
+end;
+
+procedure TPluginLoader_DLL.Browse(Dir: WideString);
+  var
+    Files: TDirectoryEntryArray;
+    I: Integer;
+begin
+  Showmessage(Dir + ' - ' + DLLExt);
+  Files := Platform.DirectoryFindFiles(Dir, DLLExt, True);
+
+  for I := 0 to High(Files) do
+  begin
+    ShowMessage(Dir + Files[I].Name);
+    if (Files[I].IsDirectory) then
+      Browse(Dir + Files[I].Name + PathDelim)
+    else if (Files[I].IsFile) then
+      PluginManager.AddPlugin(TPlugin_DLL.Create(PluginManager.GetHandle, Dir + Files[I].Name));
+  end;
+end;
+
+{ implementation of TPlugin_DLL }
+constructor TPlugin_DLL.Create(Handle: TUS_Handle; Filename: WideString);
+begin
+  inherited;
+  
+  hLib := 0;
+  Lib_Proc_Init := nil;
+  Lib_OnChangeStatus := nil;
+
+  //try to load the library
+  SetStatus(psWaitingInit);
+end;
+
+destructor TPlugin_DLL.Destroy;
+begin
+
+  inherited;
+end;
+
+procedure TPlugin_DLL.OnChangeStatus(Status: TUS_PluginStatus);
+begin
+  Case Status of
+    psWaitingInit: begin
+      //we have to try to load the plugin here
+      hLib := LoadLibrary(PChar(AnsiString(Filename)));
+      if (hlib <> 0) then
+      begin
+        @Lib_Proc_Init := GetProcAddress(hLib, PChar('Proc_Init'));
+
+        If (not Assigned(Lib_Proc_Init)) then
+        begin
+          FreeLibrary(hLib);
+
+          {$IFDEF MSWINDOWS}
+          SetError('Can''t export Proc_Init procedure from library. Windows reports: ' + SysErrorMessage(GetLastError));
+          {$ELSE}
+          SetError('Can''t export Proc_Init procedure from library.');
+          {$ENDIF}
+          Exit;
+        end;
+
+        @Lib_OnChangeStatus := GetProcAddress(hLib, PChar('OnChangeStatus'));
+
+        If (not Assigned(Lib_OnChangeStatus)) then
+        begin
+          FreeLibrary(hLib);
+
+          {$IFDEF MSWINDOWS}
+          SetError('Can''t export OnChangeStatus procedure from library. Windows reports: ' + SysErrorMessage(GetLastError));
+          {$ELSE}
+          SetError('Can''t export OnChangeStatus procedure from library.');
+          {$ENDIF}
+          Exit;
+        end;  
+
+      end
+      else
+      begin
+        {$IFDEF MSWINDOWS}
+        SetError('Error loading library. Windows reports: ' + SysErrorMessage(GetLastError));
+        {$ELSE}
+        SetError('Error loading library.');
+        {$ENDIF}
+        Exit;
+      end;
+
+    end;
+
+  end;
+
+  //call plugins OnChangeStatus procedure
+  If assigned(Lib_OnChangeStatus) then
+    Lib_OnChangeStatus(Self.Handle, Status);
+
+  Self.Status := Status;
+end;
+
+end.
\ No newline at end of file
-- 
cgit v1.2.3