GPIB + DELPHI

[vibrexbr2014]

Possuo uma interface GPIB USB HP83257A.

Gostaria de utilizar o Delphi para controlar meus equipamentos.
Alguém sabe como fazer?

Obrigado.

[vtrx]

Não conheço esta interface,usa HID?
Qual versão do Delphi esta usando?

[vibrexbr2014]

Boa noite.
Esta interface é utilizada para controlar instrumentos de medição através de um barramento chamado GPIB (General Purpose Interface Bus).
Achei um post na internet mas não entendi como usá-lo.
Estou estudando Delphi há 1 semana...
Como faço para implementá-la?

Obrigado.

André.

delphi code

unit Unit1;
 
interface
 
uses
	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
	Dialogs, StdCtrls;
 
Type viSession 	= Integer;
viStatus 		= Integer;
viAccessMode 	= Integer;
viUInt32 		= Integer;
viUInt16 		= SmallInt;
 
function viOpenDefaultRM (var rm : viSession) : viStatus; stdcall; external 'visa32.dll' name 'viOpenDefaultRM';
 
function viOpen   (	RM 					: viSession;
					ResourceName 		: pChar;
					AccessMode 			: viAccessMode;
					TimeOut 			: viUInt32;
					var vi 				: viSession) : viStatus; stdcall; external 'visa32.dll' name 'viOpen';
 
function viClose (VI : viSession) : viStatus; stdcall; external 'visa32.dll' name 'viClose';
 
function viRead   (	VI 					: viSession;
					Buffer 				: pChar;
					Count 				: viUInt32;
					var RetCount 		: integer) : viStatus; stdcall; external 'visa32.dll' name 'viRead';
 
function viWrite  (	VI 					: viSession;
					Buffer 				: pChar;
					Count 				: viUInt32; 
					var RetCount 		: integer) : viStatus; stdcall; external 'visa32.dll' name 'viWrite';
 
type
TfrmMain = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
	{ Private declarations }
public
	{ Public declarations }
end;
 
var frmMain : TfrmMain;
RM, VI : viSession;
 
implementation
 
{$R *.dfm}
 
procedure TfrmMain.Button1Click(Sender: TObject);
var Status : viStatus;
begin
	Status := viOpenDefaultRM (RM);
	Memo1.Lines.Add (IntToStr (Status));
end;
 
procedure TfrmMain.Button2Click(Sender: TObject);
var Status : viStatus;
ResourceName : PChar;
AccessMode : viAccessMode;
TimeOut : viUInt32;
begin
	ResourceName := 'GPIB0::22::INSTR';
	AccessMode := 0;
	TimeOut := 0;
	Status := viOpen(RM, ResourceName, AccessMode, TimeOut, VI);
	Memo1.Lines.Add (IntToStr (Status));
end;
 
procedure TfrmMain.Button3Click(Sender: TObject);
var Status 	: viStatus;
Buffer 		: String;
RetCount 	: Integer;
begin
	Buffer := '*IDN?';
	Status := viWrite (VI, Addr (Buffer[1]), Length (Buffer), RetCount);
	Memo1.Lines.Add (IntToStr (Status) + ' ' + IntToStr (RetCount));
end;
 
procedure TfrmMain.Button4Click(Sender: TObject);
var Status  : viStatus;
Buffer      : String;
i, RetCount : Integer;
begin
	Buffer := '';
	for i := 0 to 255 do
		Buffer := Buffer + ' ';
		Status := viRead (VI, Addr (Buffer[1]), 255, RetCount);
	while (Length (Buffer) > 1) and (Buffer Length (Buffer) = ' ') do
		Delete (Buffer, Length (Buffer), 1);
	Memo1.Lines.Add (IntToStr (Status) + ' ' + IntToStr (RetCount) + ' ' + Buffer);
end;
 
procedure TfrmMain.Button5Click(Sender: TObject);
var Status : viStatus;
begin
	Status := viClose (VI);
	Memo1.Lines.Add (IntToStr (Status));
end;
 
end.

[vtrx]

Precisamos da DLL "visa32.dll" carregada ou via Windows (system)ou na mesma pasta do executável.
Qual versão do Delphi vai ou esta usando?

[vibrexbr2014]

Boa noite.

Serviria a VISA.DLL do fabricante (AGILENT)? Posso mandar via e-mail.
Utilizo o Delphi 7 e o Embarcadero XE6.
No futuro, gostaria de utilizar o BeagleBone Black para realizar essa comunicação.
Mas por enquanto, prefiro ficar com o mais fácil e rápido.

Obrigado.

André.

[vtrx]

Posta um link para baixar.

[vibrexbr2014]

https://www.dropbox.com/s/vnf0jcsf1actlwd/VISA.rar

[vtrx]

Esta dando um erro na DLL,pode estar corrompida.
Como voce esta iniciando,pegue o projeto (Delphi7) e tente achar uma DLL que funcione,é só colocar na pasta do projeto.
Me parece que a DLL(visa32)esta como 64 bits,só testei no XP 32 porque estou butado nele...
www.4shared.com/rar/dlLbtNKRce/visa.html

[vibrexbr2014]

Boa tarde.

Meu windows 7 é 64 bits.
Mas posso tentar instalar numa maquina virtual 32 bits.
Você poderia me explicar ou indicar onde posso saber mais do funcionamento das DLL?
Como saberei quais comandos essas DLL incorporam? Acredito que elas são como Library do Arduíno, não são?
Preciso muito fazer isso funcionar, pois não quero utilizar o Labview para fazer pequenas aplicações, onde o Delphi faz com facilidade o mesmo trabalho e ainda gera o executável para rodar em qualquer máquina sem grandes transtornos.
O que seria necessário para continuar o trabalho?

Obrigado.

[acostafeny]

Olá vibrexbr2014,

Você poderia ser mais exato, talvez possa ajudar se entender melhor, por exemplo:
1) Quais são os equipamentos que vc precisa comunicar/interligar?
2) O que eles devem fazer entre si?
3) Qual Delphi você usa?
Pergunto isso, pois na minha graduação estou trabalhando agora com voltimetro, amperimetro e lockin (todo junto) e também estou sofrendo com este tipo de problema.
Consegui avançar em alugusn pontos, talvez os que já avancei possa te ajudar.

acostafeny

[Renie]

Ola Carlos,

Acho que voce esta tendo conflito de versoes, creio que seu componente seja para o Delphi 5, se nao conseguir uma versao
compativel nao funca mesmo! Ateh pode nao dar erro de compilacao mas os codigos compilados sao SUPER diferentes!