SendCEchoRequest Example for Delphi

var
   strUID: String;
   nID: Integer;
   nRet: Integer;
   hPDU: LongInt;
begin
   //send an Echo Request Command to the server
   strUID:= UID_VERIFICATION_CLASS;

   hPDU:= LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet);

   nID:= LEADDICOMNet1.FindPresentationAbstract (hPDU, strUID);
   if(nID = 0)then
   begin
      nRet:= LEADDicomDS1.FindUID (strUID);
      if(nRet = 0)then
         ShowMessage('Abstract Syntax, ' + LEADDicomDS1.DefaultInterface.Get_CurrentUID().Name + ', Not Supported by Association!')
      else
         ShowMessage('Abstract Syntax, ' + strUID + ', Not Supported by Association!');
      Exit;
   end;

   //now, use the high-level method to send the command set
   LEADDICOMNet1.SendCEchoRequest(LEADDICOMNet1.hNet, nID, 99, strUID);
end;