Obtaining the value of a public static field by reflexion

Archanciel (Jean-Pierre Schnyder) — Thu, 06 Sep 2007 14:59:06 GMT

// Obtaining the value of a static public constant of a class, here Boolean for example



        Object returnedObj = null;

        try {

            Class clazz = Class.forName("java.lang.Boolean");

            returnedObj = clazz.getField("TRUE").get(clazz);

            assert java.lang.Boolean.TRUE == returnedObj : "wrong returned object";

        } catch (ClassNotFoundException e) {

            e.printStackTrace();

        } catch (SecurityException e) {

            e.printStackTrace();

        } catch (NoSuchFieldException e) {

            e.printStackTrace();

        } catch (IllegalArgumentException e) {

            e.printStackTrace();

        } catch (IllegalAccessException e) {

            e.printStackTrace();

        }



        return returnedObj;

Pulling allday events from the public calendar of an exchange 2003 server vb.net webdav

mellerbeck (Michael Ellerbeck) — Wed, 01 Aug 2007 18:29:33 GMT

// description of your code here
This is code that pulls all day events from an exchange 2003 server using webdav.



Dim Request As System.Net.HttpWebRequest

        Dim Response As System.Net.HttpWebResponse

        Dim MyCredentialCache As System.Net.CredentialCache

        Dim strPassword As String

        Dim strDomain As String

        Dim strUserName As String

        Dim strCalendarURI As String

        Dim strQuery As String

        Dim bytes() As Byte

        Dim RequestStream As System.IO.Stream

        Dim ResponseStream As System.IO.Stream

        Dim ResponseXmlDoc As System.Xml.XmlDocument

        Dim HrefNodes As System.Xml.XmlNodeList

        Dim SizeNodes As System.Xml.XmlNodeList

        Dim SubjectNodeList As System.Xml.XmlNodeList

        Dim LocationNodeList As System.Xml.XmlNodeList

        Dim StartTimeNodeList As System.Xml.XmlNodeList

        Dim EndTimeNodeList As System.Xml.XmlNodeList

        Dim BusyStatusNodeList As System.Xml.XmlNodeList

        Dim InstanceTypeNodeList As System.Xml.XmlNodeList

        Dim output As String = ""



        Try

            ' Initialize variables.

            strUserName = "user"

            strPassword = "password"

            strDomain = "domain"

            

            strCalendarURI = "http://mail-server/public/Office Calendar/"



            Dim ddate As DateTime = Today



            Dim sStartTime As String = String.Format("{0:yyyy/MM/dd}", ddate) & " 07:00:00' "

            Dim sEndTime As String = String.Format("{0:yyyy/MM/dd}", ddate.AddDays(1)) & " 07:00:00' "



            strQuery = "" & _

                   "" & _

                   "SELECT ""urn:schemas:calendar:alldayevent"", ""urn:schemas:calendar:location"", ""urn:schemas:httpmail:subject"", " & _

                   """urn:schemas:calendar:dtstart"", ""urn:schemas:calendar:dtend"", " & _

                   """urn:schemas:calendar:busystatus"", ""urn:schemas:calendar:instancetype"" " & _

                   "FROM Scope('SHALLOW TRAVERSAL OF """ & strCalendarURI & """') " & _

                   "WHERE ""DAV:contentclass"" = 'urn:content-classes:appointment' " & _

                   "AND ""urn:schemas:calendar:alldayevent"" = TRUE " & _

                   "AND ""urn:schemas:calendar:dtstart"" <= '" & sStartTime & _

                    "AND ""urn:schemas:calendar:dtend"" >= '" & sEndTime & _

                    "ORDER BY ""urn:schemas:calendar:dtstart"" ASC" & _

                   ""







            MyCredentialCache = New System.Net.CredentialCache

            MyCredentialCache.Add(New System.Uri(strCalendarURI), _

                "NTLM", _

                New System.Net.NetworkCredential(strUserName, strPassword, strDomain) _

                )



            ' Create the PUT HttpWebRequest object.

            Request = CType(System.Net.WebRequest.Create(strCalendarURI), _

                            System.Net.HttpWebRequest)



            ' Add the network credentials to the request.

            Request.Credentials = MyCredentialCache



            ' Specify the SEARCH method.

            Request.Method = "SEARCH"



            ' Encode the body using UTF-8.

            bytes = System.Text.Encoding.UTF8.GetBytes(strQuery)



            ' Set the content header length.  This must be

            ' done before writing data to the request stream.

            Request.ContentLength = bytes.Length



            ' Get a reference to the request stream.

            RequestStream = Request.GetRequestStream()



            ' Write the message body to the request stream.

            RequestStream.Write(bytes, 0, bytes.Length)



            ' Close the Stream object to release the connection

            ' for further use.

            RequestStream.Close()



            ' Set the Content Type header.

            Request.ContentType = "text/xml"



            ' Set the Translate header.

            Request.Headers.Add("Translate", "F")



            ' Send the SEARCH method request and get the

            ' response from the server.

            Response = CType(Request.GetResponse(), System.Net.HttpWebResponse)



            ' Get the XML response stream.

            ResponseStream = Response.GetResponseStream()



            ' Create the XmlDocument object from the XML response stream.

            ResponseXmlDoc = New System.Xml.XmlDocument

            ResponseXmlDoc.Load(ResponseStream)

            

            ' Build a list of the DAV:href XML nodes, corresponding to the folders

            ' in the mailbox.  The DAV: namespace is typically assgigned the a:

            ' prefix in the XML response body.

            HrefNodes = ResponseXmlDoc.GetElementsByTagName("a:href")



            ' Build a list of the urn:schemas:httpmail:subject XML nodes,

            ' corresponding to the calendar item subjects returned in the search request.

            ' The urn:schemas:httpmail: namespace is typically

            ' assigned the e: prefix in the XML response body.

            SubjectNodeList = ResponseXmlDoc.GetElementsByTagName("e:subject")



            ' Build a list of the urn:schemas:calendar:location XML nodes,

            ' corresponding to the calendar item locations returned in the search request.

            ' The urn:schemas:calendar: namespace is typically

            ' assigned the d: prefix in the XML response body.

            LocationNodeList = ResponseXmlDoc.GetElementsByTagName("d:location")



            ' Build a list of the urn:schemas:calendar:dtstart XML nodes,

            ' corresponding to the calendar item locations returned in the search request.

            StartTimeNodeList = ResponseXmlDoc.GetElementsByTagName("d:dtstart")



            ' Build a list of the urn:schemas:calendar:dtend XML nodes,

            ' corresponding to the calendar item locations returned in the search request.

            EndTimeNodeList = ResponseXmlDoc.GetElementsByTagName("d:dtend")



            ' Build a list of the urn:schemas:calendar:busystatus XML nodes,

            ' corresponding to the calendar item locations returned in the search request.

            BusyStatusNodeList = ResponseXmlDoc.GetElementsByTagName("d:busystatus")



            ' Build a list of the urn:schemas:calendar:instancetype XML nodes,

            ' corresponding to the calendar item locations returned in the search request.

            InstanceTypeNodeList = ResponseXmlDoc.GetElementsByTagName("d:instancetype")



            ' Loop through the returned items (if any).

            If SubjectNodeList.Count > 0 Then



                Dim i As Integer

                For i = 0 To SubjectNodeList.Count - 1



                    ' Display the subject.



                    output = output & SubjectNodeList(i).InnerText & ControlChars.CrLf

                    Console.WriteLine(" " + SubjectNodeList(i).InnerText)



                    ' Display the location.

                    'Console.WriteLine("  Location:      " + LocationNodeList(i).InnerText)



                    ' Display the start time.

                    'Console.WriteLine("  Start time:    " + StartTimeNodeList(i).InnerText)



                    ' Display the end time.

                    'Console.WriteLine("  End time:      " + EndTimeNodeList(i).InnerText)



                    ' Display the busy status.

                    'Console.WriteLine("  Busy status:   " + BusyStatusNodeList(i).InnerText)



                    ' Display the instance type.

                    'If InstanceTypeNodeList(i).InnerText = "0" Then

                    '    Console.WriteLine("  Instance type: 0-Single appointment")

                    'ElseIf InstanceTypeNodeList(i).InnerText = "1" Then

                    '    Console.WriteLine("  Instance type: 1-Master recurring appointment")

                    'ElseIf InstanceTypeNodeList(i).InnerText = "2" Then

                    '    Console.WriteLine("  Instance type: 2-Single instance, recurring appointment")

                    'ElseIf InstanceTypeNodeList(i).InnerText = "3" Then

                    '    Console.WriteLine("  Instance type: 3-Exception to a recurring appointment")

                    'Else

                    '    Console.WriteLine("  Instance type: Unknown")

                    '    Console.WriteLine("")

                    'End If



                Next



            Else

                Console.WriteLine("No calendar items found ...")



            End If



            ' Clean up.

            ResponseStream.Close()

            Response.Close()



        Catch ex As Exception



            ' Catch any exceptions. Any error codes from the

            ' SEARCH method requests on the server will be caught

            ' here, also.

            Console.WriteLine(ex.Message)



        End Try



        SaveTextFile("C:\test.txt", output)

        emailCalendar()

        Me.Close()

DZone Snippets: public code

Obtaining the value of a public static field by reflexion

Pulling allday events from the public calendar of an exchange 2003 server vb.net webdav