GetApplication Example for Delphi

var
   hPDU: LongInt;
begin
   hPDU:= LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet);
   //display current Application Context
   ShowMessage(LEADDICOMNet1.GetApplication (hPDU));
   //change it
   LEADDICOMNet1.SetApplication(hPDU, '9.9.999.99999.9.9.9.9');
   ShowMessage(LEADDICOMNet1.GetApplication (hPDU));
end;