IsAsyncOperations Example for Delphi
if(LEADDICOMNet1.IsAsyncOperations (LEADDICOMNet1.hPDU) = True)then
begin
ShowMessage('AsyncOperations enabled');
//get the operations counts
ShowMessage('Invoked ' + IntToStr(LEADDICOMNet1.GetInvokedOperationsCount(LEADDICOMNet1.hPDU)));
ShowMessage('Performed ' + IntToStr(LEADDICOMNet1.GetPerformedOperationsCount(LEADDICOMNet1.hPDU)));
//now disable it
LEADDICOMNet1.SetAsyncOperations(LEADDICOMNet1.hPDU, False, 0, 0);
end
else
begin
ShowMessage('AsyncOperations disabled');
//now enable it
LEADDICOMNet1.SetAsyncOperations(LEADDICOMNet1.hPDU, True, 0, 0);
end;