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;