从Delphi使用C ++ DLL时的AccessViolation

Question

尝试使用Delphi（Turbo Delphi 2006）程序中的C ++编写的DLL时，我遇到了一个奇怪的问题。

当我从命令行运行Delphi程序（见下文）时，一切正常。此外，当我从Delphi环境运行它而没有调试（CTRL + SHIFT + F9），一切都很好。但是，当使用调试（F9）运行时，我收到以下错误：

  

Project Z：\ test.exe出错   消息：'访问违规   0x00403fdf：读取地址   0x00a14e74' 。流程停止了。使用步骤   或者继续运行。

奇怪的是，在执行最后一个'结束'时会发生错误。的代码。 Delphi的CPU显示屏显示它位于'UnsetExceptionHandler'中，在'FinalizeUnits'之前的四行，更具体地说，在

  

00403FDF 3901 cmp [ecx]，eax

我在这里有些不知所措; Delphi不是我的域名（我是编写DLL的人，现在我需要提供一个使用它的示例程序）。因此，非常感谢任何有关此问题的帮助：）

这是Delphi代码：

program libiup_integration;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  WinProcs;

type
  T_F_GetError = function() : pchar; stdcall;

  T_F_SetPath = function(path: pchar) : integer; stdcall;

  T_F_GetStrat = function(date: integer;time: single;lat:  single;lon:  single) : single; cdecl;

var
  F_GetError  : T_F_GetError;
  PF_GetError : TFarProc;
  F_SetPath   : T_F_SetPath;
  PF_SetPath  : TFarProc;
  F_GetStrat  : T_F_GetStrat;
  PF_GetStrat : TFarProc;
  DLLHandle   : THandle;
  errormsg  : pchar;
  h5path    : pchar;
  h5err     : integer;
  date      : integer;
  time      : single;
  lat       : single;
  lon       : single;
  strat     : single;
  i         : integer;

begin
  DLLHandle := LoadLibrary('libiup.dll');
  if DLLHandle <> 0 then
    begin
      { construct the function pointers }
      PF_GetError := GetProcAddress(DLLHandle, 'getError');
      PF_SetPath := GetProcAddress(DLLHandle, 'setPath');
      PF_GetStrat := GetProcAddress(DLLHandle, 'getStrat');

      { If the function pointer is valid ... }
      if (PF_GetError <> nil) and (PF_SetPath <> nil) and (PF_GetStrat <> nil) then
        begin
          { Assign the function pointer to the function handle }
          @F_GetError := PF_GetError;
          @F_SetPath := PF_SetPath;
          @F_GetStrat := PF_GetStrat;

          errormsg := StrAlloc(4096);

          h5path := StrAlloc(256);
          StrCopy(h5path, 'z:\data\%Y%m.h5');
          h5err := F_SetPath(h5path);
          if h5err < 0 then
            begin
              errormsg := F_GetError();
              WriteLn(errormsg);
            end;

          for i := 1 to 10 do
            begin
              date := 4745;
              time := 12.34 + i/10;
              lat  := -35.321 + i*i;
              lon  := 115.67 - i*i;

              strat := F_GetStrat(date, time, lat, lon);
              if strat < 0. then
                begin
                  errormsg := F_GetError();
                  WriteLn(errormsg);
                end;

               WriteLn('Value returned by getStrat call no. ' + IntToStr(i) + ': ' + FloatToStr(strat));
             end;

          { and finally, delete the function pointers ...}
          PF_SetPath := nil;
          PF_GetStrat := nil;
          PF_GetError := nil;
          FreeLibrary(DLLHandle);
          WriteLn('Press ENTER to continue ...');
          ReadLn;
        end

      else
      { The function pointer was not valid, so this means that the function was not found in the dll. }
        begin
          WriteLn('Function not found');
          RaiseLastOSError;
        end;
    end

  else
  { The LoadLibrary function did not return a valid DLL handle. }
    begin
      WriteLn('DLL not loaded');
      FreeLibrary(DLLHandle);
      WriteLn('Press ENTER to continue ...');
      ReadLn;
    end;
end.

dll.h

#ifndef LIBIUP_DLL_H_
#define LIBIUP_DLL_H_
#ifdef BUILD_DLL
#define WIN32DLL_API __declspec(dllexport)
#else
#define WIN32DLL_API __declspec(dllimport)
#endif

#include "stratcalc/SimpleStratosphericColumnCalculator.h"
#include <iostream>
#include <string>
#include "boost/date_time/posix_time/posix_time.hpp"

#ifdef __cplusplus
extern "C" {            /* Assume C declarations for C++ */
#endif
    WIN32DLL_API BOOL __stdcall DllMain( HANDLE, DWORD, LPVOID);
    WIN32DLL_API  int setPath(char*);
    WIN32DLL_API  const char* getError();
    WIN32DLL_API float getStrat(int, float, float, float);
    std::string errormsg;
    SimpleStratosphericColumnCalculator* calc; 
#ifdef __cplusplus
}                       /* End of extern "C" */
#endif

#endif

dll.cpp

#ifdef BUILD_DLL
#include "windows.h"
#include "dll.h"
#include <iostream>
// different functions of this library
= new SimpleStratosphericColumnCalculator();


WIN32DLL_API BOOL __stdcall DllMain( HANDLE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
        case DLL_PROCESS_ATTACH:
            calc = new SimpleStratosphericColumnCalculator();
            break;
        case DLL_THREAD_ATTACH:
            calc = new SimpleStratosphericColumnCalculator();
            break;
        case DLL_THREAD_DETACH:
            delete calc;
            break;
        case DLL_PROCESS_DETACH:
            delete calc;
            break;
    }

    return TRUE;
}


WIN32DLL_API int setPath(char* Path)
{
    errormsg = "";
    return calc->setPath(Path);
}

WIN32DLL_API const char* getError()
{
    std::cout << errormsg << std::endl;
    return errormsg.c_str();
}

WIN32DLL_API float getStrat(int Date, float Time, float Lat, float Lon)
{
    errormsg = "";
    if (Lat < -90. || Lat > 90.)
        errormsg += "Latitude value out of bounds.\n";
    if (Lon < 0. || Lon > 360.)
        errormsg += "Longitude value out of bounds.\n";
    if (errormsg != "")
        return -1.;
    return (float)calc->getStrat(Date, Time, Lat, Lon);
}
#else
#endif

Answer 1

检查调用约定。我看到2个函数中的stdcall和一个函数中的cdecl。尝试将所有内容更改为stdcall或cdecl，看看它是否有效

Answer 2

我认为将调用DLL_THREAD_DETACH和DLL_PROCESS_DETACH。因此，您将双重删除calc对象。

...试

if ( calc != NULL )
{
    delete calc;
    calc = NULL;
}

Answer 3

使用LoadLibrary加载Dll时遇到了类似的问题。

我通过在FreeLibrary之前调用Application.ProcessMessages来解决它。