삭제를 위한 암호를 넣어 주세요

LoadLibrary()
GetProcAddress()

사용할 필요 없고요.

procedure _f_GetDriverInfo(ap:PDriverInformation); cdecl; external 'test.dll' name '__f_GetDriverInfo';

procedure TForm1.Button1Click(Sender: TObject);
var
  di: TDriverInformation;
  pdi: PDriverInformation;
  cc: Char;
begin
  pdi := @di;
  di.Product_Name[0] := 'H';
  di.Product_Name[1] := Char(0);
  _f_GetDriverInfo(pdi);
  Caption := pdi^.Product_Name;
end;
 
2017-10-16 오후 8:30:57

삭제를 위한 암호를 넣어 주세요

C++ 컴파일러에서 extern "C"를 사용하고
콜링 컨벤션을 따로 지정해주지 않으면
디폴트로 _cdecl 입니다.

그럴 경우 export 되는 네임 앞에 언더바 하나가 붙어요
그래서 위와 같이 앞부분은 C++ 네임과 동일한 네임을 쓰고
뒷부분은 name 키워드를 이용해서 언더바를 하나 붙여서
name alias를 만들어 준 겁니다. 
2017-10-16 오후 9:49:34

삭제를 위한 암호를 넣어 주세요

coding님 답변 감사드립니다.

dll마다 같은이름으로 다르게 구현된 함수들을 호출해야 해서 dll을 동적으로 호출해야 해서 작성된것이라 선언부에 바로 지정할수는 없는 상태입니다. 
2017-10-16 오후 10:37:05

삭제를 위한 암호를 넣어 주세요

function VerifyDriver(Info: PDriverInformation): Boolean;
var
  _f_GetDriverInfo : procedure(pdi : PDriverInformation); cdecl;

begin
  result := false;
  if DriverInstance = 0 then
    DriverInstance := LoadLibrary('project3.dll');
  if DriverInstance = 0 then exit;

  _f_GetDriverInfo := GetProcAddress(DriverInstance, '__f_GetDriverInfo');
  if @_f_GetDriverInfo = nil then exit;

  _f_GetDriverInfo(Info);
  PrintLog('DriverManager : [DRIVER] Product Name : %s', [Info^.Product_Name]);
  PrintLog('DriverManager : [DRIVER] Driver Name : %s', [Info^.Driver_Name]);
  FreeLibrary(DriverInstance);
end;
 
2017-10-16 오후 11:22:09

삭제를 위한 암호를 넣어 주세요

또 답변을 달아 주셨네요.한번 더 감사드립니다.
Type
 Tf_GetDriverInfo = procedure (info: PDriverInformation);

var
 _f_GetDriverInfo: Tf_GetDriverInfo;

질문에는 빠져있는데 위처럼 변수는 선언되어 있었는데 cdecl를 첨부하니 정상적으로 작동하네요.

정말 감사드립니다. 코딩님 (--)(__)(--)

 
2017-10-16 오후 11:52:16