GetServer Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveAssociateRequest (ASender: TObject;
  hNet, hPDU: Integer);
var
   hServer: LongInt;
   strServer: String;
   nPort: Integer;
begin
   hServer:= LEADDICOMNet1.DefaultInterface.GetServer (hNet);
   if(hServer <> 0)then
   begin
      strServer:= LEADDICOMNet1.GetHostAddress (hServer);
      nPort:= LEADDICOMNet1.GetHostPort (hServer);
      ShowMessage('Server = ' + strServer + ' Port = ' + IntToStr(nPort));
   end;
end;