GetStatusISCL Example for Delphi

// In this example, assume an error occurs in the NetReceive event. The code to
// determine why this happened should look like this:
procedure TForm1.LEADDicomNet1NetReceive(ASender: TObject; hNet,
  nStatus: Integer; nType: Smallint; pData: OleVariant; lSize: Integer);
var
   nStatusISCL: Integer;
begin
   nStatusISCL:= LEADDICOMNet1.GetStatusISCL (hNet);
   if(nStatus = DICOM_ERROR_ISCL_DECRYPT)then
   begin
      if(nStatusISCL = 24)then
      begin
         // error decrypting message data
         ShowMessage('Error decrypting message');
      end;
      if(nStatusISCL = 25)then
      begin
         // error decrypting MAC code
         ShowMessage('Error decrypting MAC code');
      end;
   end;
end;