0

Eсть BorDebug.dll и есть unit к этой dll на С++ как переписать его под Delphi

сколько я не пытался загрузить процедуры в delphi ничего не выходит GetProcAddress всегда = NIL что я не так делаю.

procedure BorDebugLoad;
var P:Pointer;
 procedure Loc(S:LPCWSTR);
 begin
   P:= GetProcAddress(BorDebugHandle, S);
   if P<>nil then
   P:=P; // всегда NIL NULL
 end;
begin
  P:=nil;
  BorDebugHandle := SafeLoadLibrary(bordebug_dllname);

  if BorDebugHandle <> 0 then
  begin
    Loc('BorDebugRegisterFile');
    Loc('BorDebugUnregisterFile');
    Loc('BorDebugSubSectionDirOffset');
    Loc('BorDebugSubSectionCount');
    Loc('BorDebugSubSection');
    Loc('BorDebugModule');
    Loc('BorDebugModuleSegment');
    Loc('BorDebugStartSymbols');
    Loc('BorDebugNextSymbol');
    Loc('BorDebugDumpBrowserInfo');
    Loc('BorDebugSymbolCOMPILE');
    Loc('BorDebugSymbolREGISTER');
    Loc('BorDebugSymbolCONST');
    Loc('BorDebugSymbolUDT');

  end;
end;
2
  • Следует указывать имена из таблицы экспорта, типа _BorDebugRegisterFile 10 дек 2021 в 12:08
  • О!!)) это да работает 10 дек 2021 в 12:09

0

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Посмотрите другие вопросы с метками или задайте свой вопрос.