powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Подключение dll к inno setup
2 сообщений из 2, страница 1 из 1
Подключение dll к inno setup
    #38942763
Serega325
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите пожалуйста ! Не могу вызвать ф-ю из dll, написанную на с++ в inno setup

[Files]
Source: UserCr.dll; DestDir: "{app}";
Source: "d:\Database.FDB"; DestDir: "{app}" ; Flags: ignoreversion uninsremovereadonly

[code]
function User(param: boolean): boolean; external 'User@files:UserCr.dll stdcall setuponly' ;

procedure CurStepChanged(CurStep: TSetupStep);
var
FileName: String;
BOOL: Boolean;
begin
if CurStep = ssDone then
begin
FileName:=ExpandConstant('{pf64}') + '\Firebird\Firebird_2_5\aliases.conf';
SaveStringToFile(FileName, #13#10 + 'UT_DB=' + ExpandConstant('{app}') + '\Database.FDB' + #13#10, True);
FileName:=ExpandConstant('{pf32}') + '\Firebird\Firebird_2_5\aliases.conf';
SaveStringToFile(FileName, #13#10 + 'UT_DB=' + ExpandConstant('{app}') + '\Database.FDB' + #13#10, True);
BOOL:=User(true);
end;
end;

****************************Вот код dll***********************************
#include "stdafx.h"

#using <System.dll>
#using <System.data.dll>
//#using <System.Xml.dll>

using namespace System;
using namespace System::Data;
using namespace System::Data::Odbc;
using namespace System::Text;

#define BOOL bool

BOOL User(BOOL param)
{
MessageBoxA(NULL,"Hello inno setup", "Message from dll", MB_OK);
OdbcConnection * myOdbcConnection;
myOdbcConnection = new OdbcConnection
(S"Database=localhost:UT_DB;DSN=DatabaseDB;uid=SYSDBA;pwd=masterkey;Charset=WIN1251");
myOdbcConnection->Open();
OdbcCommand * myCommand;
myCommand = new OdbcCommand (S"EXECUTE PROCEDURE SP_CREATE_USER", myOdbcConnection);
myCommand->ExecuteNonQuery();
myOdbcConnection->Close();
return param;
}
**************************************************************************
Вот, что выдаёт inno setup
Cannot Import dll:C:\Users\USER\AppData\Local\Temp\is-9Q910.tmp\UserCr.dll.

функцию User экспортирую через .def файл.
...
Рейтинг: 0 / 0
Подключение dll к inno setup
    #38942769
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Подключение dll к inno setup
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]