RPC HELP GetServerIP Example

RPC Broker Help Home

GetServerIP Example

The following is example of the GetServerIP function:

   // include the unit RpcConf1 in the Uses clause
   
   // An edit box on the form is assumed to be named edtIPAddress
   
   // Another edit box (edtInput) is used to input a desired server name
   
   uses RpcConf1;
   
   procedure Tform1.Button1Click(Sender: TObject);
   var
     ServerName: string;
   begin
     ServerName := 'forum.med.va.gov';
     edtIPAddress.Text := GetServerIP(edtInput.Text);
     // For Forum.va.gov returns '152.128.1.25'
     // For garbage returns 'Unknown!'
   end;