1. Device : GP-IB(PCI)FL
2. 제조사 : 일본 Contec (https://www.contec.com/)
3. 국내 판매 : (주)엔씨텍크놀로지(http://www.da-view.com/)
4. 사용용도 : GPIB 통신 카드
5. 제어 클래스
typedef enum {NONE, CRLF, CR, LF} Delimiters ;
typedef enum {WITHOUT_EOI, WITH_EOI} EOI ;
class TgpibPort
{
private :
protected :
int FTimeout ;
virtual void __fastcall setTimeout(const int Timeout) { FTimeout = Timeout ; } ;
public :
virtual bool __fastcall Initialize(void) = 0 ;
virtual int __fastcall gpibPrint(int Address, AnsiString Command) = 0 ;
virtual int __fastcall gpibInput(int Address, char* Buffer, int* Count) = 0 ;
__property int Timeout = {read=FTimeout, write=setTimeout} ;
};
#include "gpibac.h" // 헤더파일은 드라이버를 설치하면 찾을 수 있습니다.
class TContecGpib : public TgpibPort
{
private :
void __fastcall setTimeout(const int Timeout) override final ;
public :
TContecGpib() ;
~TContecGpib() ;
bool __fastcall Initialize(void) override final ;
int __fastcall gpibSetup(Delimiters delim, EOI eoi) ;
int __fastcall gpibPrint(int Address, AnsiString Command) override final ;
int __fastcall gpibInput(int Address, char* Buffer, int* Count) override final ;
};
TContecGpib::TContecGpib()
{
}
//---------------------------------------------------------------------------
TContecGpib::~TContecGpib()
{
GpExit();
}
//---------------------------------------------------------------------------
bool __fastcall TContecGpib::Initialize(void)
{
bool result = false ;
int Ifctime ;
DWORD Ret, mode ;
Ret = GpExit(); // Keep off initialize repeat
Ret = GpIni(); // GP-IB initialize
if((Ret & 0x00FF) == 0) // Check of GpIni
{
GpBoardsts(0x0a, &mode); // Read Master/Slave mode
if(mode == 0) // mode == 0 (master), mode == 1 (slove)
{
Ifctime = 1; // Default
Ret = GpIfc(Ifctime); // Interface Clear
if((Ret & 0x00FF) == 0) // Check of GpIfc
{
Ret = GpRen(); // Sets REN (Remote Enable) to true.
if((Ret & 0x00FF) == 0) result = true ; // Check of GpRen
}
}
}
return result ;
}
//---------------------------------------------------------------------------
void __fastcall TContecGpib::setTimeout(const int Timeout)
{
DWORD Ret ;
Ret = GpTimeout(Timeout); // Default(10000ms)
if((Ret & 0x00FF) != 0)
{
FTimeout = Timeout ;
}
}
//---------------------------------------------------------------------------
int __fastcall TContecGpib::gpibSetup(Delimiters Delim, EOI Eoi)
{
DWORD Ret ;
int result = 0 ;
Ret = GpDelim(Delim, Eoi); // default delim = 1, Eoi = 1
if((Ret & 0x00FF) != 0) result = -1 ;
return result ;
}
//---------------------------------------------------------------------------
int __fastcall TContecGpib::gpibPrint(int Address, AnsiString Command)
{
int result = 0, srlen ;
char* srbuf ;
DWORD MyAddr, Cmd[16], Ret;
Ret = GpBoardsts(0x08, &MyAddr); // Read MyAddress
if((Ret & 0x00FF) != 0) result = -1 ;
else
{
try
{
Cmd[0] = 2 ; // Number of talkers and listeners ( = Number of listeners + 1)
Cmd[1] = MyAddr ; // Talker address
Cmd[2] = Address ; // Listener address
srlen = Command.Length() ;
srbuf = new char(srlen + 10) ;
strcpy(srbuf, Command.c_str()) ;
Ret = GpTalk(Cmd, srlen, (UCHAR*)srbuf) ;
}
__finally
{
delete[] srbuf ;
}
if(Ret != 0) result = -2 ;
}
return result ;
}
//---------------------------------------------------------------------------
int __fastcall TContecGpib::gpibInput(int Address, char* Buffer, int* Count)
{
int result = 0 ;
DWORD MyAddr, srlen, Cmd[16], Ret ;
Ret = GpBoardsts(0x08, &MyAddr); // Read MyAddress
if((Ret & 0x00FF) != 0) result = -1 ;
else
{
Cmd[0] = 2;
Cmd[1] = Address;
Cmd[2] = MyAddr;
memset(Buffer, '\0', strlen(Buffer));
srlen = *Count ;
Ret = GpListen(Cmd, &srlen, (UCHAR*)Buffer);
*Count = srlen ;
if (Ret >= 3) result = -2 ; // 0,1,2 : Normal completion
}
return result ;
}
//---------------------------------------------------------------------------
