Исправлена прокси-библиотека NativeApi для 32-битной архитектуры

Author: EvilBeaver

src/OneScript.StandardLibrary/NativeApi/NativeApiKernel.cs

@@ -31,7 +31,10 @@ public static IntPtr LoadLibrary(string filename)
 
         public static IntPtr GetProcAddress(IntPtr module, string procName)
         {
-            return IsLinux ? LinuxProc(module, procName) : WindowsProc(module, procName);
+            var pointer = IsLinux ? LinuxProc(module, procName) : WindowsProc(module, procName);
+            return pointer != IntPtr.Zero
+                ? pointer
+                : throw new ApplicationException($"Function pointer for {procName} not obtained.");
         }
 
         public static bool FreeLibrary(IntPtr module)

src/OneScript.StandardLibrary/NativeApi/NativeApiLibrary.cs

@@ -39,6 +39,10 @@ public NativeApiLibrary(string filepath, string identifier, ITypeManager typeMan
                     _tempfile = Path.GetTempFileName();
                     NativeApiPackage.Extract(stream, _tempfile);
                     Module = NativeApiKernel.LoadLibrary(_tempfile);
+                    if (Module == IntPtr.Zero)
+                    {
+                        File.Delete(_tempfile);
+                    }
                 }
                 else 
                     Module = NativeApiKernel.LoadLibrary(filepath);

src/ScriptEngine.NativeApi/NativeApiProxy.cpp

@@ -326,7 +326,7 @@ DllExport int32_t GetNParams(ProxyComponent* proxy, int32_t lMethodNum)
 	return (int32_t)proxy->Component().GetNParams(lMethodNum);
 }
 
-DllExport bool ADDIN_API HasParamDefValue(ProxyComponent* proxy, int32_t lMethodNum, int32_t lParamNum)
+DllExport bool HasParamDefValue(ProxyComponent* proxy, int32_t lMethodNum, int32_t lParamNum)
 {
 	CHECK_PROXY(false);
 	tVariant variant = { 0 };
@@ -335,7 +335,7 @@ DllExport bool ADDIN_API HasParamDefValue(ProxyComponent* proxy, int32_t lMethod
 	return result;
 }
 
-DllExport bool ADDIN_API GetParamDefValue(ProxyComponent* proxy, int32_t lMethodNum, int32_t lParamNum, VariantFuncRespond respond)
+DllExport bool GetParamDefValue(ProxyComponent* proxy, int32_t lMethodNum, int32_t lParamNum, VariantFuncRespond respond)
 {
 	CHECK_PROXY(false);
 	tVariant variant = { 0 };
@@ -351,15 +351,15 @@ DllExport bool HasRetVal(ProxyComponent* proxy, int32_t lMethodNum)
 	return proxy->Component().HasRetVal(lMethodNum);
 }
 
-DllExport bool ADDIN_API CallAsProc(ProxyComponent* proxy, int32_t lMethodNum, tVariant* paParams)
+DllExport bool CallAsProc(ProxyComponent* proxy, int32_t lMethodNum, tVariant* paParams)
 {
 	CHECK_PROXY(false);
 	auto lSizeArray = GetNParams(proxy, lMethodNum);
 	bool ok = proxy->Component().CallAsProc(lMethodNum, paParams, lSizeArray);
 	return ok;
 }
 
-DllExport bool ADDIN_API CallAsFunc(ProxyComponent* proxy, int32_t lMethodNum, tVariant* paParams, VariantFuncRespond respond)
+DllExport bool CallAsFunc(ProxyComponent* proxy, int32_t lMethodNum, tVariant* paParams, VariantFuncRespond respond)
 {
 	CHECK_PROXY(false);
 	tVariant variant = { 0 };

tests/native-api.os

@@ -12,6 +12,7 @@
 
 	ВсеТесты = Новый Массив;
 
+	// TODO: сделать прогон этого теста еще и на 32-битной архитектуре, см. ошибку #1531
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыZIP");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыDLL");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойстваВнешнейКомпоненты");
@@ -125,7 +126,7 @@
 
 	юТест.ПроверитьРавенство(Строка(ТипЗнч(ВнешняяКомпонента)), Строка(Тип(ИмяВнешнейКомпоненты)));
 
-КонецПроцедуры	
+КонецПроцедуры
 
 Процедура ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыDLL() Экспорт