StartUp Example for Delphi

var
   nRet: Integer;
begin
   //start the network
   //set the temporary file path
   LEADDICOMNet1.NetworkTempPath:= 'd:\temp';
   LEADDICOMNet1.NetworkSecurityMode:= DICOM_SECURE_NONE;
   nRet:= LEADDICOMNet1.StartUp ();
   if(nRet <> 0)then
      ShowMessage('Error');
   //do some network communication here
   //...
   //...

   //shut down the network
   LEADDICOMNet1.ShutDown ();
end;