SetMaxCommBlockLengthISCL Example for Delphi

var
   nBlockLen: Integer;
begin
   LEADDICOMNet1.NetworkSecurityMode:= Integer(DICOM_SECURE_ISCL);
   LEADDICOMNet1.StartUp ();
   LEADDICOMNet1.SetMaxCommBlockLengthISCL (LEADDICOMNet1.hNet, 8160);
   // size of the blocks sent to network layer will be 8192 bytes (a 32-byte header is added)
   // other initializations...
   LEADDICOMNet1.DefaultInterface.Connect ('', 0, '127.0.0.1', 2761);
   //connect to a server running on local computer at port 2761

   nBlockLen:= LEADDICOMNet1.GetCommBlockLengthISCL(LEADDICOMNet1.hNet);
   ShowMessage('Negotiated communication block size is' + IntToStr(nBlockLen));
end;