try
   dim request as HttpWebRequest = HttpWebRequest.Create(URL)
   request.Timeout = 60000
   dim response as HttpWebResponse = request.GetResponse()
catch ex as System.Net.WebException
   dim response as httpWebResponse = ex.response
end try
return response

Dude Koz fucked around with this message at 16:27 on Sep 18, 2007

Dromio fucked around with this message at 18:57 on Sep 21, 2007

uXs fucked around with this message at 13:23 on Sep 22, 2007

Roope fucked around with this message at 13:47 on Sep 22, 2007

poopiehead fucked around with this message at 15:32 on Sep 22, 2007

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Public Structure DHCPDS_SERVER
  Dim Version As UInt32
  Dim ServerName As String
  Dim ServerAddress As UInt32
  Dim Flags As UInt32
  Dim State As UInt32
  Dim DsLocation As String
  Dim DsLocType As UInt32
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Public Structure DHCPDS_SERVERS
  Dim Flags As UInt32
  Dim NumElements As UInt32
  Dim Servers As IntPtr
End Structure

Declare Unicode Function DhcpEnumServers Lib "Dhcpsapi.dll" (ByVal Flags As UInt32, _
  ByVal IdInfo As IntPtr, _
  ByRef Servers As IntPtr, _
  ByVal CallbackFn As IntPtr, _
  ByVal CallbackData As IntPtr) As UInt32

Public Shared Function EnumServers() As DHCPDS_SERVER()

  Dim retVal As UInt32 = 0
  Dim servers As IntPtr

  Try
    DhcpEnumServers(0, Nothing, servers, Nothing, Nothing)
  Catch ex As Exception
    Throw New Exception("Error code:  " & retVal.ToString, ex)
  End Try

  If retVal = 0 And servers <> IntPtr.Zero Then
    Dim serverArray As DHCPDS_SERVERS = _
      CType(Marshal.PtrToStructure(servers, GetType(DHCPDS_SERVERS)), DHCPDS_SERVERS)

    Dim serverList(CType(serverArray.NumElements, Int32)) As DHCPDS_SERVER

    Dim current As IntPtr = servers

    For i As Int32 = 0 To CType(serverArray.NumElements - 1, Int32)
      serverList(i) = CType(Marshal.PtrToStructure(current, GetType(DHCPDS_SERVER)), DHCPDS_SERVER)

      Marshal.DestroyStructure(current, GetType(DHCPDS_SERVER))

      current = IntPtr.op_Explicit(current.ToInt64() + Marshal.SizeOf(serverList(i)))
    Next

    Marshal.FreeCoTaskMem(servers)

    Return serverList
  ElseIf retVal = 0 And servers = IntPtr.Zero Then
    Throw New Exception("No servers found.")
  Else
    Throw New Exception("Error code:  " & retVal.ToString)
  End If

End Function

Dim current As IntPtr = servers

Dim current As IntPtr = serverArray.Servers

Boogeyman fucked around with this message at 18:54 on Sep 25, 2007

public class EmployeeFacade : FacadeParent<IEmployeeAPI>
{...}

public class EmployeFacade...
...
        public StaffLynx.EmployeesDataTable GetList()
        {
            DataTable table = [b]apiMethod.GetAllEmployees()[/b].Tables[0];
            StaffLynx.EmployeesDataTable employees = new StaffLynx.EmployeesDataTable();
            employees.Merge(SetDataSetSchema(employees.TableName, employees.Columns, table));
            return employees;
        }
....

    public class FacadeParent<ApiInterface>
    {
        protected ApiInterface apiMethod;
        public FacadeParent()
        {
            this.InitAPIMethod(System.Configuration.ConfigurationManager.AppSettings[this.GetType().Name]);
        }
        private void InitAPIMethod(string apiClassName)
        {
            PortChooser<ApiInterface> port = new PortChooser<ApiInterface>(apiClassName);
            apiMethod = port.GetDefaultPort();
        }

    public class PortChooser<ApiInterface>
    {
        private string apiUrl="";
        public PortChooser(string apiName)
        {
            apiUrl = apiName;
        }
        public ApiInterface GetDefaultPort()
        {
            string defaultPortKey = System.Configuration.ConfigurationManager.AppSettings["DefaultPort"];

            switch (defaultPortKey)
            {
                case "WCF": 
                    return new Skeletron.Common.ConnectToWCFService<ApiInterface>().GetService(ConfigurationManager.AppSettings["WCF_URLBASE"] + apiUrl);
                case "WebService":
                    return new Skeletron.Common.ConnectToWebService<ApiInterface>().GetService(ConfigurationManager.AppSettings["WEBSERVICE_URLBASE"] + apiUrl + ".asmx");
            }
            throw new Exception("No default Port was found, unable to connect to middle teir.");
        }
    }

    public class ConnectToWCFService<GenericInterface>
    {
        public GenericInterface GetService(string url)
        {
            WSHttpBinding dataBinding = new WSHttpBinding();
            EndpointAddress dataAddress = new EndpointAddress(url);
            ChannelFactory<GenericInterface> dataChannelFactory = new ChannelFactory<GenericInterface>(dataBinding, dataAddress);
            return dataChannelFactory.CreateChannel();
        }
    }

Atimo fucked around with this message at 22:49 on Oct 3, 2007