OnConformanceStatus Example for Delphi

procedure TForm1.Conformance1Click(Sender: TObject);
begin
   LEADDicom1.EnableConformanceStatus := true;
   LEADDicom1.ConformanceTestDS();
end;

procedure TForm1.LEADDicom1ConformanceStatus(Sender: TObject; nFlags: Integer);
var
   sTag, sTagL, sTagR, msg: String;
   nRet: Integer;
begin
   { display info about non-standard element }
   case nFlags of
      CALLBACK_ERROR_UNKNOWN_CLASS: msg := 'Unknown Class';
      CALLBACK_ERROR_UNKNOWN_TAG: msg := 'Unknown Tag';
      CALLBACK_ERROR_UNKNOWN_VR: msg := 'Unknown VR';
      CALLBACK_ERROR_WRONG_VR: msg := 'Error in VR';
      CALLBACK_ERROR_MIN_VM: msg := 'Error in MinVM';
      CALLBACK_ERROR_MAX_VM: msg := 'Error in MaxVM';
      CALLBACK_ERROR_DIVIDE_VM: msg := 'Error in DivideVM';
      CALLBACK_ERROR_IMAGE: msg := 'Error in Image';
   else Exit;
   end;
   sTag := IntToHex(LEADDicom1.CurrentElement.Tag, 8);
   sTagR := Copy(sTag, 5, 4);
   sTagL := Copy(sTag, 1, 4);
   msg := msg +#13+ 'Tag: ' + sTagL + ':' + sTagR;
   nRet := Application.MessageBox(PChar(msg), 'Non-Standard Element', MB_OKCANCEL);
   If nRet = IDCANCEL Then
      LEADDicom1.EnableConformanceStatus := false;
end;