Function PvAttrBooleanGet (pCamera: tPvHandle;
Name: PAnsiChar;
Out pValue: Boolean) : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvAttrBooleanSet (pCamera: tPvHandle;
Name: PAnsiChar; pValue: Boolean) : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvAttrEnumGet (pCamera: tPvHandle;
Name: PAnsiChar;
Out pBuffer : PAnsiChar; BufferSize: Cardinal;
Out pSize: Cardinal): tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvAttrEnumSet (pCamera: tPvHandle;
Name: PAnsiChar; Value: PAnsiChar): tPvErr;
stdcall;
external '
PvAPI.dll';
//geht noch nicht:// Function PvAttrUint32Get (pCamera: tPvHandle; Name: PAnsiChar; Out pValue: Cardinal) : tPvErr; stdcall; external 'PvAPI.dll';
Function PvCameraListEx (pList: pPvCameraInfoExList; ListLength : Cardinal;
Out ConnectedNum : tConnectedCams; Size : Cardinal) : Cardinal;
stdcall;
external '
PvAPI.dll';
Function PvCameraClose (pCamera: tPvHandle) : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvCameraCount : Cardinal;
stdcall;
external '
PvAPI.dll';
Function PvCameraOpen (UniqueID: Cardinal; AccessFlag: tPvAccessFlags;
Out pCamera: tPvHandle) : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvCaptureEnd (pCamera: tPvHandle) : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvCaptureStart (pCamera: tPvHandle) : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvCaptureQueueFrame (pCamera: tPvHandle; pFrame: pPvFrame; FrameCallBack: Pointer ): tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvCaptureWaitForFrameDone (pCamera: tPvHandle; pFrame: pPvFrame; Timeout: Cardinal): tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvCommandRun (pCamera: tPvHandle;
Name : PAnsiChar): tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvInitialize : tPvErr;
stdcall;
external '
PvAPI.dll';
Function PvInitializeNoDiscovery : tPvErr;
stdcall;
external '
PvAPI.dll';
Procedure PvUnInitialize;
stdcall;
external '
PvAPI.dll';
Procedure PvVersion (
Var Major, Minor: Cardinal);
stdcall;
external '
PvAPI.dll';
implementation
Function PvReturnErrorString (aErrCode: tPvErr) :
String;
Begin
Case aErrCode
of
ePvErrSuccess : Result := '
Code 0000: No error';
ePvErrCameraFault : Result := '
Code 0001: Unexpected camera fault';
ePvErrInternalFault : Result := '
Code 0002: Unexpected fault in PvApi or driver';
ePvErrBadHandle : Result := '
Code 0003: Camera handle is invalid';
ePvErrBadParameter : Result := '
Code 0004: Bad parameter to API call';
ePvErrBadSequence : Result := '
Code 0005: Sequence of API calls is incorrect';
ePvErrNotFound : Result := '
Code 0006: Camera or attribute not found';
ePvErrAccessDenied : Result := '
Code 0007: Camera cannot be opened in the specified mode';
ePvErrUnplugged : Result := '
Code 0008: Camera was unplugged';
ePvErrInvalidSetup : Result := '
Code 0009: Setup is invalid (an attribute is invalid)';
ePvErrResources : Result := '
Code 0010: System/network resources or memory not available';
ePvErrBandwidth : Result := '
Code 0011: 1394 bandwidth not available';
ePvErrQueueFull : Result := '
Code 0012: Too many frames on queue';
ePvErrBufferTooSmall : Result := '
Code 0013: Frame buffer is too small';
ePvErrCancelled : Result := '
Code 0014: Frame cancelled by user';
ePvErrDataLost : Result := '
Code 0015: The data for the frame was lost';
ePvErrDataMissing : Result := '
Code 0016: Some data in the frame is missing';
ePvErrTimeout : Result := '
Code 0017: Timeout during wait';
ePvErrOutOfRange : Result := '
Code 0018: Attribute value is out of the expected range';
ePvErrWrongType : Result := '
Code 0019: Attribute is not this type (wrong access function)';
ePvErrForbidden : Result := '
Code 0020: Attribute write forbidden at this time';
ePvErrUnavailable : Result := '
Code 0021: Attribute is not available at this time';
ePvErrFirewall : Result := '
Code 0022: A firewall is blocking the traffic (Windows only)';
__ePvErr_force_32 : Result := '
Code $FFFFFFFF: Codon forcing Error codes to be 32bit';
end;
end;