Помогите с переводом куска кода на Delphi в C++ Builder

[alexey6522]

Всем добрый вечер! Мне нужно перевести код написанный на Delphi в С++ Builder, если есть у кого-то какие-то идеи подскажите пжл.

//Delphi

implementation

{$R *.dfm}

//Объявляем функцию подключения к библиотеке
Function OpenDLL(OpName,Psw,DevName:PChar; Baudrate: PChar; FlagOem: Integer): Integer; stdcall; far; external 'azimuth.dll' name 'OpenDLLPlus';

procedure TForm2.FormShow(Sender: TObject);
var
  Dllka: HMODULE;
  StartSeans: function(): integer;
begin
Dllka:=LoadLibrary('azimuth.dll');
If Dllka=0 then Begin
    ShowMessage('Библиотека не найдена!');
    Application.Destroy;
  end;
//Подключаем ДЛЛ
OpenDll('', 'AERF', 'COM1', '9600', 0);
StartSeans:=GetProcAddress(Dllka, 'StartSeans');
end;

[alexey6522]

Часть уже перевел

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HMODULE Dllka; /*хэндл*/
//StartSeans: function(): integer;
int __stdcall(*StartSeans)(void);/*указка на функцию типа int func(void)*/
Dllka=LoadLibrary("C:\\Documents and Settings\\spitsyn.aleksei.PS\\Рабочий стол\\Прим-08 DELPHI\\azimuth.dll");
if (Dllka == NULL)
{
ShowMessage("Библиотека не найдена!");
  Application->Destroying();
}
//Подключаем ДЛЛ
//OpenDll("", "AERF", "COM1", "9600", 0);
StartSeans = GetProcAddress(Dllka, "StartSeans");/*возможно потребуется приведение типа*/
}

А как быть с этой строкой?

Function OpenDLL(OpName,Psw,DevName:PChar; Baudrate: PChar; FlagOem: Integer): Integer; stdcall; far; external 'azimuth.dll' name 'OpenDLLPlus';

[waleri]

#define OpenDLL OpenDLLPlus
extern "C" int __stdcall OpenDLLPlus(const char* OpName, const char* Psw, const char* DevName, const char* Baudrate, int FlagOem);

Потом подключаем azimuth.lib

Мне не совсем понятно почему OpenDLL вызывается напрямую а StartSeans через LoadLibrary и GetProcAddress.

[alexey6522]

не я так придумал, а по другому не хочет работать
Попробовал эту функцию в деле

#define OpenDLL OpenDLLPlus
extern "C" int __stdcall OpenDLLPlus(const char* OpName, const char* Psw, const char* DevName, const char* Baudrate, int FlagOem);
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDLL("", "AERF", "COM3", "9600", 0); <--- если вызов функции закомментировать то программа запускается нормально

выдается ошибка
[ILINK32 Error] Error: Unresolved external 'OpenDLLPlus' referenced from C:\...\DEBUG\UNIT1.OBJ

можно и StartSeans вызвать напрямую
Function StartSeans: Integer; stdcall; far; external 'azimuth.dll' name 'StartSeans';

А как можно вызвать функцию OpenDLL через LoadLibrary может так проще будет

[FataLL]

alexey6522
Чтобы работало, надо сделать для DLL файл LIB с помощью implib и подключить его к проекту. Тогда линкер ругаться не будет. А проще, наверное, описать OpenDll как указатель и взять его GetProcAddress по аналогии с StartSeans.

[alexey6522]

А как описать OpenDll как указатель и взять его GetProcAddress по аналогии с StartSeans?

[alexey6522]

implib может проигнорить часть ф-ций из либы и их не будет видно в приложении, по этому проще?

[alexey6522]

Неужели никто не знает как переделать эту функцию

Function OpenDLLPlus(OpName,Psw,DevName:PChar; Baudrate: PChar; FlagOem: Integer): Integer; stdcall; far; external 'azimuth.dll' name 'OpenDLLPlus';

что бы её вызвать не напрямую, а через LoadLibrary и GetProcAddress по аналогии с StartSeans.
Пробовал таким вот образом, не получилось

int __stdcall(*OpenDLLPlus)(const char* OpName, const char* Psw, const char* DevName, const char* Baudrate, int FlagOem);

Вызов функции выглядел так

OpenDLLPlus("", "AERF", "COM1", "9600", 0);

программа вылетала с ошибкой.

[alexey6522]

инициализацию я сделал, устройство подключается нормально.

//Объявляем функцию подключения и инициализации DLL
typedef int __stdcall (*OpenDLLPlus)(const char* OpName, const char* Psw, const char* DevName, const char* Baudrate, int FlagOem);
OpenDLLPlus OpenDLLPlus1 = NULL;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HMODULE Dll;
Dll=LoadLibrary("C:\\MyDLL.dll");
if (Dll == NULL)
{
  ShowMessage("Библиотека не найдена!");
  Application->Destroying();
}
//Подключаем ДЛЛ
OpenDLLPlus1 = (OpenDLLPlus)GetProcAddress(Dll, "OpenDLLPlus");
OpenDLLPlus1("", "AERF", "COM3", "9600", 0);

Далее пытаюсь запросить дату из устройства

//Объявляем функцию
typedef const char* __stdcall (*GetFldStr)(const int Num, const char* Field);
GetFldStr GetFldStr1 = NULL;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{ 
....
....
const char* Date;
//Поиск имени функции в DLL
GetFldStr1 = (GetFldStr)GetProcAddress(Dll, "GetFldStr");
//Вызывая функцию передаем число 5 - это код запроса даты, если передать 6 то получим время
Date = GetFldStr1(5, Date);

На строке Date = GetFldStr1(5, Date); вылазит ошибка [BCC32 Error] Unit1.cpp(72): E2277 Lvalue required
в оригинале эта функция на Delphi выглядит таким образом и работает нормально.

Function GetFldStr(Num:Byte;Field:PChar):PChar;stdcall; far; external 'azimuth.dll' name 'GetFldStr';
 
procedure TForm2.FormShow(Sender: TObject);
var
  DataP: PChar;
begin
GetMem(DataP,255);  //Выделяем память
DataP:= GetFldStr(5, DataP);
FreeMem(DataP, 255);  //Освобождаем память

Помогите разобраться пожалуйста!

[waleri]

Насколько я понимаю, GetFldStr возвращает указатель, который переписывает тот указатель, который вы выделили, соответственно потом освобождаете не ту память.