Экспорт из *.dll

[BingoBongo]

function SerialNumber(SNIndex: Integer): PChar; stdcall; external 'DbLib.dll';
function AC(ACIndex: Integer): PChar; stdcall; external 'DbLib.dll';
function LoadAddress(LAIndex: Integer): PChar; stdcall; external 'DbLib.dll';
function LoadTelephone(LTIndex: Integer): PChar; stdcall; external 'DbLib.dll';
function LoadEmail(LEIndex: Integer): PChar; stdcall; external 'DbLib.dll';
function LoadWeb(LWIndex: Integer): PChar; stdcall; external 'DbLib.dll';

так выглядит сейчас. сравнительно недавно работаю с длл. подскажите, как это можно свести в более презентабельный вид? библиотека как видите используется одна и та же, а функции в ней разные.

[Человек_Борща]

Можно вот изврашённый способ динамической загрузкой:

только новый тип пропиши:

Type 
   TCallFunc = function (aInt:integer):Pchar;

function CallDllFunc(aFuncName: string; aFuncParam: integer): PChar;
const
  CallDLL = 'DbLib.dll';
var
  DH: THandle;
  Func: TcallFunc;
begin
  DH := LoadLibrary(PAnsiChar(CallDLL));
  if DH <> 0 then
  begin
    @Func := GetProcAddress(DH, PAnsiChar(aFuncName));
    if @Func <> nil then
    begin
      Result := Func(aFuncParam);
    end
    else
    begin
      ShowMessage('Функция "' + aFuncName + '" не найдена в DLL!');
      Result := nil;
    end;
  end
  else
  begin
    ShowMessage('Не найдена DLL для загрузки.');
    Result := nil;
  end;
end;

Использование:

{
SerialNumber
AC
LoadAddress
LoadTelephone
LoadEmail
LoadWeb
}

var
   TrollFace:Pchar;
begin
TrollFace:=callDllFunc('SerialNumber',1);
If TrollFace <> nil then
begin

end;
end;

С тебя спасибо и +.

[GunSmoker]

Сообщение от BingoBongo

как это можно свести в более презентабельный вид?

Если только совсем чуть:

const
  DbLib = 'DbLib.dll';

function SerialNumber(SNIndex: Integer): PChar; stdcall; external DbLib;
function AC(ACIndex: Integer): PChar; stdcall; external DbLib;
function LoadAddress(LAIndex: Integer): PChar; stdcall; external DbLib;
function LoadTelephone(LTIndex: Integer): PChar; stdcall; external DbLib;
function LoadEmail(LEIndex: Integer): PChar; stdcall; external DbLib;
function LoadWeb(LWIndex: Integer): PChar; stdcall; external DbLib;

А так - нормально. Лучше уже некуда.

[BingoBongo]

Сообщение от Человек_Борща

Можно вот изврашённый способ динамической загрузкой:

только новый тип пропиши:

Type 
   TCallFunc = function (aInt:integer):Pchar;

function CallDllFunc(aFuncName: string; aFuncParam: integer): PChar;
const
  CallDLL = 'DbLib.dll';
var
  DH: THandle;
  Func: TcallFunc;
begin
  DH := LoadLibrary(PAnsiChar(CallDLL));
  if DH <> 0 then
  begin
    @Func := GetProcAddress(DH, PAnsiChar(aFuncName));
    if @Func <> nil then
    begin
      Result := Func(aFuncParam);
    end
    else
    begin
      ShowMessage('Функция "' + aFuncName + '" не найдена в DLL!');
      Result := nil;
    end;
  end
  else
  begin
    ShowMessage('Не найдена DLL для загрузки.');
    Result := nil;
  end;
end;

Использование:

{
SerialNumber
AC
LoadAddress
LoadTelephone
LoadEmail
LoadWeb
}

var
   TrollFace:Pchar;
begin
TrollFace:=callDllFunc('SerialNumber',1);
If TrollFace <> nil then
begin

end;
end;

С тебя спасибо и +.

мда уж. упростили. все равно спасибо.

[GunSmoker]

P.S. Подсказка: можно выписать все функции в виде

function LoadWeb(LWIndex: Integer): PChar; stdcall;

а потом сделать Search&Replace "stdcall;" -> "stdcall; external DbLib;"

[BingoBongo]

Сообщение от GunSmoker

Если только совсем чуть:

const
  DbLib = 'DbLib.dll';

function SerialNumber(SNIndex: Integer): PChar; stdcall; external DbLib;
function AC(ACIndex: Integer): PChar; stdcall; external DbLib;
function LoadAddress(LAIndex: Integer): PChar; stdcall; external DbLib;
function LoadTelephone(LTIndex: Integer): PChar; stdcall; external DbLib;
function LoadEmail(LEIndex: Integer): PChar; stdcall; external DbLib;
function LoadWeb(LWIndex: Integer): PChar; stdcall; external DbLib;

А так - нормально. Лучше уже некуда.

да я уже понял после первого варианта
тоже спасибо )

[BingoBongo]

Сообщение от GunSmoker

P.S. Подсказка: можно выписать все функции в виде

function LoadWeb(LWIndex: Integer): PChar; stdcall;

а потом сделать Search&Replace "stdcall;" -> "stdcall; external DbLib;"

а это я не понял. поиск то где вести придется ?

[Человек_Борща]

в редакторе кода. Ctrl+F никто не отменил :D

[BingoBongo]

GunSmoker )) до того популярно разрулил ситуацию, что я аж сначала не понял о чем речь)

спасибо за совет )

Человек_Борща, мде, действительно, Ctrl+F работает )