SendAssociateRequest Example for Delphi

   //create the Associate Class as Request
   LEADDicomNet1.CreateAssociate (True);

   //use default for association
   LEADDicomNet1.DefaultAssociate (LEADDicomNet1.hPDU);

   LEADDicomNet1.SetCalling(LEADDicomNet1.hPDU, 'MI_CLIENT');
   LEADDicomNet1.SetCalled(LEADDicomNet1.hPDU, 'MI_SERVER');

   //this shows a client sending to its server
   LEADDicomNet1.SendAssociateRequest(LEADDicomNet1.hNet);

   //now we can free the class
   LEADDicomNet1.FreeAssociate (LEADDicomNet1.hPDU);