c++ builder OPC通讯 源代码

c++ builder 与OPC服务器通讯（西门子） 建立连接，读写数据

// This is a part of the Active Template Library.
// Copyright （C） 1996-1998 Microsoft Corporation
// All rights reserved.
//
// This source code is only intended as a supplement to the
// Active Template Library Reference and related
// electronic documentation provided with the library.
// See these sources for detailed information regarding the
// Active Template Library product.

#ifndef __ATLbase_H__
	#error atlimpl.cpp requires atlbase.h to be included first
#endif

/////////////////////////////////////////////////////////////////////////////
// Minimize CRT
// Specify DllMain as EntryPoint
// Turn off exception handling
// Define _ATL_MIN_CRT
#ifdef _ATL_MIN_CRT
/////////////////////////////////////////////////////////////////////////////
// Startup Code

#if defined（_WINDLL） || defined（_USRDLL）

// Declare DllMain
extern “C“ BOOL WINAPI DllMain（HANDLE hDllHandle DWORD dwReason LPVOID lpReserved）;

extern “C“ BOOL WINAPI _DllMainCRTStartup（HANDLE hDllHandle DWORD dwReason LPVOID lpReserved）
{
	return DllMain（hDllHandle dwReason lpReserved）;
}

#else

// wWinMain is not defined in winbase.h.
extern “C“ int WINAPI wWinMain（HINSTANCE hInstance HINSTANCE hPrevInstance LPWSTR lpCmdLine int nShowCmd）;

#define SPACECHAR   _T（‘ ‘）
#define DQUOTECHAR  _T（‘\“‘）


#ifdef _UNICODE
extern “C“ void wWinMainCRTStartup（）
#else // _UNICODE
extern “C“ void WinMainCRTStartup（）
#endif // _UNICODE
{
	LPTSTR lpszCommandLine = ::GetCommandLine（）;
	if（lpszCommandLine == NULL）
		::ExitProcess（（UINT）-1）;

	// Skip past program name （first token in command line）.
	// Check for and handle quoted program name.
	if（*lpszCommandLine == DQUOTECHAR）
	{
		// Scan and skip over subsequent characters until
		// another double-quote or a null is encountered.
		do
		{
			lpszCommandLine = ::CharNext（lpszCommandLine）;
		}
		while（（*lpszCommandLine != DQUOTECHAR） && （*lpszCommandLine != _T（‘\0‘）））;

		// If we stopped on a double-quote （usual case） skip over it.
		if（*lpszCommandLine == DQUOTECHAR）
			lpszCommandLine = ::CharNext（lpszCommandLine）;
	}
	else
	{
		while（*lpszCommandLine > SPACECHAR）
			lpszCommandLine = ::CharNext（lpszCommandLine）;
	}

	// Skip past any white space preceeding the second token.
	while（*lpszCommandLine && （*lpszCommandLine <= SPACECHAR））
		lpszCommandLine = ::CharNext（lpszCommandLine）;

	STARTUPINFO StartupInfo;
	StartupInfo.dwFlags = 0;
	::GetStartupInfo（&StartupInfo）;

	int nRet = _tWinMain（::GetModuleHandle（NULL） NULL lpszCommandLine
		（StartupInfo.dwFlags & STARTF_USESHOWWINDOW） ?
		StartupInfo.wShowWindow : SW_SHOWDEFAULT）;

	::ExitProcess（（UINT）nRet）;
}

#endif // defined（_WINDLL） | defined（_USRDLL）

/////////////////////////////////////////////////////////////////////////////
// Heap Allocation

#ifndef _DEBUG

#ifndef _MERGE_PROXYSTUB
//rpcproxy.h does the same thing as this
int __cdecl _purecall（）
{
	DebugBreak（）;
	return 0;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     142590  2002-02-01 16:00  opcclientbcb6\atlbase.h

     文件     143886  2002-02-01 16:00  opcclientbcb6\atlcom.h

     文件       4934  2002-02-01 16:00  opcclientbcb6\atlimpl.cpp

     文件         96  2000-03-14 11:24  opcclientbcb6\atlprj.cpp

     文件     443836  2012-03-19 12:22  opcclientbcb6\atlprj.obj

     文件      42624  2002-09-11 09:02  opcclientbcb6\atlvcl.h

     文件      51504  2004-11-16 11:29  opcclientbcb6\bin\atlprj.obj

     文件      54532  2004-11-16 11:29  opcclientbcb6\bin\DataCallbackSink.obj

     文件          0  2002-09-11 09:54  opcclientbcb6\bin\empty.txt

     文件     241748  2002-01-01 21:07  opcclientbcb6\bin\Main.obj

     文件       1058  2004-11-16 11:28  opcclientbcb6\bin\Opccomn_i.obj

     文件       1952  2004-11-16 11:28  opcclientbcb6\bin\Opcda_i.obj

     文件     126464  2004-11-17 13:27  opcclientbcb6\bin\OPClient.exe

     文件      53280  2004-11-16 11:28  opcclientbcb6\bin\OPClient.obj

     文件    4980736  2004-11-17 13:27  opcclientbcb6\bin\OPClient.tds

     文件      51088  2004-11-16 11:29  opcclientbcb6\bin\OPClient_TLB.obj

     文件       5238  2002-09-11 08:33  opcclientbcb6\CustomSinks.h

     文件       2518  2000-03-14 11:50  opcclientbcb6\DataCallbackSink.cpp

     文件       5123  2002-09-11 08:33  opcclientbcb6\DataCallbackSink.h

     文件     463433  2012-03-19 12:22  opcclientbcb6\DataCallbackSink.obj

     文件      21093  2006-04-05 16:07  opcclientbcb6\Main.cpp

     文件         51  2006-04-10 00:54  opcclientbcb6\Main.ddp

     文件       2919  2005-01-12 10:41  opcclientbcb6\Main.dfm

     文件      12283  2004-12-25 12:23  opcclientbcb6\Main.h

     文件     708449  2012-03-19 12:22  opcclientbcb6\Main.obj

     文件      21093  2006-04-05 16:07  opcclientbcb6\Main.~cpp

     文件         51  2006-04-05 16:07  opcclientbcb6\Main.~ddp

     文件       2919  2005-01-12 10:41  opcclientbcb6\Main.~dfm

     文件      12283  2004-12-25 12:23  opcclientbcb6\Main.~h

     文件      15734  1998-10-01 14:19  opcclientbcb6\opc\OPCCOMN.H

............此处省略26个文件信息