Corey McClelland

Google Maps

corey — Wed, 20 Jun 2007 12:48:00 GMT

Use the following link to generate the code for an embedded google map.

http://www.google.com/uds/solutions/wizards/mapsearch.html

VB.NET Delegates

corey — Wed, 02 May 2007 12:38:00 GMT

Here is a very simple example of delegates in vb.net. The DelegateExample class is the entry point in the application.

The true power of delegates are seen when they are implemented using multiple threads. That's typically a ui thread and multiple worker threads that update the ui.

Public Class DelegateExample
    Shared Sub main()
        Dim s As New Status()
        s.beginWorker()
    End Sub
End Class

Imports System.Windows.Forms

Public Class Status

Sub New()

End Sub

    Public Sub beginWorker()
        Dim w As New Worker()
        w.NotifyOnWorkerEventHapened(New Worker.workerEventHappened(AddressOf localMethod))
        w.beginWork()
    End Sub

    'this function has the same signiture as the delegate
    Public Sub localMethod(ByVal strMsg As String)
        MessageBox.Show(strMsg)
    End Sub

End Class

Public Class Worker

Public Delegate Sub workerEventHappened(ByVal strMsg As String)
Private weh As workerEventHappened

    Public Sub NotifyOnWorkerEventHapened(ByVal value As workerEventHappened)
        weh = value
    End Sub

Sub New()

End Sub

    Public Sub beginWork()
        weh.Invoke("Event Happened!")
    End Sub

End Class

Email Authentication in ASP.NET 1.1

corey — Thu, 01 Mar 2007 12:17:00 GMT

To use authenticated smtp mail in ASP.NET 1.1, you need to set the mail.Fields with the server information. For more information, see the microsoft kb article.

Public Sub sendMail()

   Dim mail As New System.Web.Mail.MailMessage
   mail.BodyFormat = System.Web.Mail.MailFormat.Html

   'For more info on authenticated smtp in asp.net 1.1, see
   'http://support.microsoft.com/kb/555287
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtsperver") = "server"

   mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"

   mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"

   Try
      mail.From = "no-reply@4penny.net"
      mail.To = "corey@4penny.net"
      mail.Subject = "Test Email"
      mail.Body = "The ASP.NET 1.1 email test was successful."
      System.Web.Mail.SmtpMail.SmtpServer = "server"
      System.Web.Mail.SmtpMail.Send(mail)

   Catch ex As Exception
      Response.Write(ex.Message)
   End Try

End Sub