[Thin A/D Board]

Hi,

Does anyone know of A/D boards that are not greater than 1.5" wide (need to fit inside a reinforced pipe for deep earth investigations)? The boards need to able to handle up to 6 channels..

 

 

 

[cbWinBufFree]

Hi John,

Some additional information -when I trace into    MemHandle := cbWinBufAlloc( LastIndex ); I am sent to CBW64.pas call 

function cbWinBufAlloc; external 'CBW64.DLL';

When I trace into ULStat := cbWinBufFree ( MemHandle); I am sent to System call 

procedure _BoundErr;
{$IFDEF PUREPASCAL}
begin
  ErrorAt(Byte(reRangeError), ReturnAddress);
end;

not 

o CBW64.pas call

function cbWinBufFree; external 'CBW64.DLL';

 

Also, please provide further information on how to generate a new.lib linking library. Not clear on what this means and entails.

Regards,

Erick 

[cbWinBufFree]

Hi John,

Thanks for the feedback. Unfortunately, changing CURRENTREVNUM didn't help.  It is unfortunate that Measurement Computing no longer supports Delphi. How would I generate a new.lib linking library. Not clear on what this means and entails.

Regards,

Erick 

 

 

[cbWinBufFree]

I have been using measurement computing universal library (CBW64.dll and CBW64.pas) for data acquisition code for years. The development environment I am using is Embarcadero RAD Studio (Delphi). The following calls have been working for years (up to and including RAD Studio XE10):

 var
    MemHandle            : THandle;

Begin
   MemHandle := cbWinBufAlloc ( LastIndex );
   ULStat := cbWinBufFree ( MemHandle);
End;

I am now compiling my code in RAD Studio XE11. Now when I execute my program,  I get the error "Range check error" in the call cbWinBufFree ( MemHandle): 

Note that I have also tried to declare MemHandle as the following types but get the same error:

   MemHandle            : UInt64;
   MemHandle            : Longint;
   MemHandle      : Integer;
   MemHandle            : NativeUint;

I have attached the file CBW64.pas provided by Measurement Computing. In this file the following is declared:

function cbWinBufAlloc (NumPoints:Longint):NativeUInt;{Integer;} StdCall;
function cbWinBufFree (MemHandle:Integer):NativeUInt;{Integer;}  StdCall;

Thanks, Erick 

CBW64.pas