IsImplementClass Example for Delphi

var
   strUID: String;
begin
   //is max len enabled?
   if(LEADDICOMNet1.IsImplementClass (LEADDICOMNet1.hPDU) = True)then
   begin
      //disable it
      //display old value
      strUID:= LEADDICOMNet1.GetImplementClass(LEADDICOMNet1.hPDU);
      ShowMessage(strUID);
      LEADDICOMNet1.SetImplementClass(LEADDICOMNet1.hPDU, False, strUID);
   end
   else
   begin
      //enable it
      LEADDICOMNet1.SetImplementClass(LEADDICOMNet1.hPDU, True, UID_RT_DOSE_STORAGE);
      strUID:= LEADDICOMNet1.GetImplementClass(LEADDICOMNet1.hPDU);
      ShowMessage(strUID);
   end;
end;