使用VC呼叫別人用Delphi做的動態庫訪問沖突且無法加載請問是什么原因呢？-有解無憂

因為最近要做個PC與PLC通信的軟體，因此在網上找到一個人用Delphi寫的PLC通信dll庫，應該是32位。我用VC2015寫了個MFC要呼叫這個dll發現總是提示訪問沖突，呼叫失敗。因為有其他人是寫影像處理的，環境必須要用VC 2015。但是和那個人聯系他說其他人用了是沒問題的，我因為是剛開始學這個軟體，也沒有dll原始碼，不知道問題出在哪。下面是我程式的原始碼，其他dll內函式宣告我都還沒用，只是用LoadlibraryA發現就已經失敗了。**如果有朋友能在32位（64位更好）的C++ MFC環境下解決并除錯。**

參考線內部分是我添加的，其他都是向導生成的。附件里面有呼叫的庫。
https://pan.baidu.com/s/1UB1dOh4fZ0rMauP63avGcA



// MFC-PLC21Dlg.cpp : 實作檔案

//



#include "stdafx.h"

#include "MFC-PLC21.h"

#include "MFC-PLC21Dlg.h"

#include "afxdialogex.h"



#ifdef _DEBUG

#define new DEBUG_NEW

#endif



/////////////////////////////////////////////////////////////////

HINSTANCE hinstDLL;



typedef int(_stdcall *pOpen)(int nport, int BaudRate, int DataBits, char* Parity, int StopBits, char* User);

typedef int(_stdcall *pClose)(int nport);

typedef int(_stdcall *pSetDelay)(int value);

typedef int(_stdcall *pComTrue)(int nport);

typedef int(_stdcall *pComWork)(int nport);



typedef int(_stdcall *pReadBit)(int nport, int node, char* element, int address, int Bit);

typedef int(_stdcall *pReadByte)(int nport, int node, char* element, int address, int Count, int* RxdBuffer);

typedef int(_stdcall *pReadInt)(int nport, int node, char* element, int address, int Count, int* RxdBuffer);

typedef int(_stdcall *pReadDInt)(int nport, int node, char* element, int address, int Count, int* RxdBuffer);

typedef int(_stdcall *pReadFloat)(int nport, int node, char* element, int address, int Count, float* RxdBuffer);



typedef int(_stdcall *pBitWrite)(int nport, int node, char* element, int address, int Bit, int value);

typedef int(_stdcall *pBitEWrite)(int nport, int node, char* element, int address, int Bit, int value);

typedef int(_stdcall *pEbitCancel)(int nport, int node, char* element, int address, int Bit);



typedef int(_stdcall *pWriteByte)(int nport, int node, char* element, int address, int Count, int* TxdBuffer);

typedef int(_stdcall *pWriteInt)(int nport, int node, char* element, int address, int Count, int* TxdBuffer);

typedef int(_stdcall *pWriteDInt)(int nport, int node, char* element, int address, int Count, int* TxdBuffer);

typedef int(_stdcall *pWriteFloat)(int nport, int node, char* element, int address, int Count, float* TxdBuffer);



typedef int(_stdcall *pPlcRun)(int nport, int node);

typedef int(_stdcall *pPlcStop)(int nport, int node);



typedef int(_stdcall *pBitBin)(int value, int Bitaddress);

typedef int(_stdcall *p16I_8h)(int value);

typedef int(_stdcall *p16I_8l)(int value);

typedef int(_stdcall *p8I_16I)(int valueH, int valueL);

typedef int(_stdcall *p32I_16h)(int value);

typedef int(_stdcall *p32I_16l)(int value);

typedef int(_stdcall *p16I_32I)(int valueH, int valueL);

typedef int(_stdcall *p32f_16h)(float value);

typedef int(_stdcall *p32f_16l)(float value);

typedef float(_stdcall *p16I_32f)(int valueH, int valueL);



pOpen mOpen;

pClose mClose;

pSetDelay mSetDelay;

pComTrue mComTrue;

pComWork mComWork;



pReadBit mReadBit;

pReadByte mReadByte;

pReadInt mReadInt;

pReadDInt mReadDInt;

pReadFloat mReadFloat;



pBitWrite mBitWrite;

pBitEWrite mBitEWrite;

pEbitCancel mEbitCancel;



pWriteByte mWriteByte;

pWriteInt mWriteInt;

pWriteDInt mWriteDInt;

pWriteFloat mWriteFloat;



pPlcRun mPlcRun;

pPlcStop mPlcStop;



pBitBin mBitBin;

p16I_8h m16I_8h;

p16I_8l m16I_8l;

p8I_16I m8I_16I;

p32I_16h m32I_16h;

p32I_16l m32I_16l;

p16I_32I m16I_32I;

p32f_16h m32f_16h;

p32f_16l m32f_16l;

p16I_32f m16I_32f;

///////////////////////////////////////////////////////////////



// 用于應用程式“關于”選單項的 CAboutDlg 對話框



class CAboutDlg : public CDialogEx

{

public:

	CAboutDlg();



// 對話框資料

#ifdef AFX_DESIGN_TIME

	enum { IDD = IDD_ABOUTBOX };

#endif



	protected:

	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV 支持



// 實作

protected:

	DECLARE_MESSAGE_MAP()

};



CAboutDlg::CAboutDlg() : CDialogEx(IDD_ABOUTBOX)

{

}



void CAboutDlg::DoDataExchange(CDataExchange* pDX)

{

	CDialogEx::DoDataExchange(pDX);

}



BEGIN_MESSAGE_MAP(CAboutDlg, CDialogEx)

END_MESSAGE_MAP()





// CMFCPLC21Dlg 對話框







CMFCPLC21Dlg::CMFCPLC21Dlg(CWnd* pParent /*=NULL*/)

	: CDialogEx(IDD_MFCPLC21_DIALOG, pParent)

{

	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);

}



void CMFCPLC21Dlg::DoDataExchange(CDataExchange* pDX)

{

	CDialogEx::DoDataExchange(pDX);

}



BEGIN_MESSAGE_MAP(CMFCPLC21Dlg, CDialogEx)

	ON_WM_SYSCOMMAND()

	ON_WM_PAINT()

	ON_WM_QUERYDRAGICON()

	ON_BN_CLICKED(Test, &CMFCPLC21Dlg::OnBnClickedTest)

END_MESSAGE_MAP()





// CMFCPLC21Dlg 訊息處理程式



BOOL CMFCPLC21Dlg::OnInitDialog()

{

	CDialogEx::OnInitDialog();



	// 將“關于...”選單項添加到系統選單中。



	// IDM_ABOUTBOX 必須在系統命令范圍內。

	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);

	ASSERT(IDM_ABOUTBOX < 0xF000);



	CMenu* pSysMenu = GetSystemMenu(FALSE);

	if (pSysMenu != NULL)

	{

		BOOL bNameValid;

		CString strAboutMenu;

		bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX);

		ASSERT(bNameValid);

		if (!strAboutMenu.IsEmpty())

		{

			pSysMenu->AppendMenu(MF_SEPARATOR);

			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);

		}

	}



	// 設定此對話框的圖示。  當應用程式主視窗不是對話框時，框架將自動

	//  執行此操作

	SetIcon(m_hIcon, TRUE);			// 設定大圖示

	SetIcon(m_hIcon, FALSE);		// 設定小圖示



	// TODO: 在此添加額外的初始化代碼



	



	return TRUE;  // 除非將焦點設定到控制元件，否則回傳 TRUE

}



void CMFCPLC21Dlg::OnSysCommand(UINT nID, LPARAM lParam)

{

	if ((nID & 0xFFF0) == IDM_ABOUTBOX)

	{

		CAboutDlg dlgAbout;

		dlgAbout.DoModal();

	}

	else

	{

		CDialogEx::OnSysCommand(nID, lParam);

	}

}



// 如果向對話框添加最小化按鈕，則需要下面的代碼

//  來繪制該圖示。  對于使用檔案/視圖模型的 MFC 應用程式，

//  這將由框架自動完成。



void CMFCPLC21Dlg::OnPaint()

{

	if (IsIconic())

	{

		CPaintDC dc(this); // 用于繪制的設備背景關系



		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);



		// 使圖示在作業區矩形中居中

		int cxIcon = GetSystemMetrics(SM_CXICON);

		int cyIcon = GetSystemMetrics(SM_CYICON);

		CRect rect;

		GetClientRect(&rect);

		int x = (rect.Width() - cxIcon + 1) / 2;

		int y = (rect.Height() - cyIcon + 1) / 2;



		// 繪制圖示

		dc.DrawIcon(x, y, m_hIcon);

	}

	else

	{

		CDialogEx::OnPaint();

	}

}



//當用戶拖動最小化視窗時系統呼叫此函式取得游標

//顯示。

HCURSOR CMFCPLC21Dlg::OnQueryDragIcon()

{

	return static_cast<HCURSOR>(m_hIcon);

}





/////////////////////////////////////////////////////////////////////

void CMFCPLC21Dlg::OnBnClickedTest()

{

	// TODO: 在此添加控制元件通知處理程式代碼

	hinstDLL = LoadLibraryA("S7200_PPI.dll");

	if (hinstDLL)

	{

		mOpen = (pOpen)GetProcAddress(hinstDLL, "S7200ComOpen");

		mClose = (pClose)GetProcAddress(hinstDLL, "S7200ComClose");

		mSetDelay = (pSetDelay)GetProcAddress(hinstDLL, "S7200SetDelay");

		mComTrue = (pComTrue)GetProcAddress(hinstDLL, "S7200ComTrue");

		mComWork = (pComWork)GetProcAddress(hinstDLL, "S7200ComWork");



		mReadBit = (pReadBit)GetProcAddress(hinstDLL, "S7200BitRead");

		mReadByte = (pReadByte)GetProcAddress(hinstDLL, "S7200ByteRead");

		mReadInt = (pReadInt)GetProcAddress(hinstDLL, "S7200WordRead");

		mReadDInt = (pReadDInt)GetProcAddress(hinstDLL, "S7200DwordRead");

		mReadFloat = (pReadFloat)GetProcAddress(hinstDLL, "S7200FloatRead");



		mBitWrite = (pBitWrite)GetProcAddress(hinstDLL, "S7200BitWrite");

		mBitEWrite = (pBitEWrite)GetProcAddress(hinstDLL, "S7200BitEWrite");

		mEbitCancel = (pEbitCancel)GetProcAddress(hinstDLL, "S7200EbitCancel");



		mWriteByte = (pWriteByte)GetProcAddress(hinstDLL, "S7200ByteWrite");

		mWriteInt = (pWriteInt)GetProcAddress(hinstDLL, "S7200WordWrite");

		mWriteDInt = (pWriteDInt)GetProcAddress(hinstDLL, "S7200DwordWrite");

		mWriteFloat = (pWriteFloat)GetProcAddress(hinstDLL, "S7200FloatWrite");



		mPlcRun = (pPlcRun)GetProcAddress(hinstDLL, "S7200PlcRun");

		mPlcStop = (pPlcStop)GetProcAddress(hinstDLL, "S7200PlcStop");



		mBitBin = (pBitBin)GetProcAddress(hinstDLL, "DecBitBin");

		m16I_8h = (p16I_8h)GetProcAddress(hinstDLL, "Int16ToInt_8h");

		m16I_8l = (p16I_8l)GetProcAddress(hinstDLL, "Int16ToInt_8l");

		m8I_16I = (p8I_16I)GetProcAddress(hinstDLL, "Int8ToInt16");

		m32I_16h = (p32I_16h)GetProcAddress(hinstDLL, "Int32ToInt_16h");

		m32I_16l = (p32I_16l)GetProcAddress(hinstDLL, "Int32ToInt_16l");

		m16I_32I = (p16I_32I)GetProcAddress(hinstDLL, "Int16ToInt32");

		m32f_16h = (p32f_16h)GetProcAddress(hinstDLL, "Float32ToInt_16h");

		m32f_16l = (p32f_16l)GetProcAddress(hinstDLL, "Float32ToInt_16l");

		m16I_32f = (p16I_32f)GetProcAddress(hinstDLL, "Int16ToFloat32");



		AfxMessageBox(L"S7200_PPI.dll已成功載入！");

	}

	else

	{

		AfxMessageBox(L"沒找到S7200_PPI.dll！");

		SendMessage(WM_CLOSE);

	}

}

////////////////////////////////////////////////////////////////////

uj5u.com熱心網友回復：

是否DLL 缺少什么依賴庫？　Depends 查看下

uj5u.com熱心網友回復：

哦哦，那我看一下depends。大佬我還想請教一個問題，就是我只是用Loadlibrary加載了dll，都還沒呼叫里面的函式，這種情況就已經訪問沖突，會是指標的問題嗎？

uj5u.com熱心網友回復：

參考 1 樓 zgl7903的回復:

是否DLL 缺少什么依賴庫？　Depends 查看下

uj5u.com熱心網友回復：

LoadLibrary會加載DLL依賴的庫以及執行DLL的入口函式，如果只是LoadLibrary就例外，那DLL可能有BUG
VS的除錯選單中有個例外捕捉功能，可以開啟WIN32的C0000005，這樣例外時會彈窗，點擊重試會定位到代碼處，看看呼叫堆疊可能會有些幫助
__try __except 可以捕捉 SEH例外

uj5u.com熱心網友回復：

嗯嗯，那我試試，太謝謝你了

uj5u.com熱心網友回復：

1.這個建議先重新生成一個MFC空專案，該空專案就直接簡單增加一條陳述句LoadLibrary(...)，看看是否失敗？
2.另外不建議自己采用MFC撰寫做PLC監控專案的做法，非常麻煩，建議用工業監控組態軟體，例如iSeez，如果專案要求不高，軟體才幾百元

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/28741.html

標籤：進程/線程/DLL

上一篇：采用IOCP進行TCP編程，為什么建立Socket的時候需要添加完成埠，關閉Socket的時候需要不需要洗掉完成埠？

下一篇：exe 依賴A.DLL B.DLL AB都依賴各自的C.DLL 沖突怎么辦