Theo Gray

The International Routing System scam

Mon, 26 Jul 2010 13:17:53 GMT

I've just had a call from a charming Indian gentlemen telling me he was from the International Routing System and that my computer was generating a lot of traffic which was disrupting the "International Routing Systems".

Apparently he had my phone number because my IP address was creating all this traffic and so he wanted to show me how to cleanup my machine. I thought it could be fun to find out how he was going to try to scam me, so let him continue...

Me: "So what's my IP address?"
IG: "I don't have that in front of me at the moment"
Me: "riigggt... so what would you like me to do to stop all this traffic blocking up the International Routings Systems?"
IG: "Please press the flag key and R on your keyboard"
Me: "OK"
IG: "type the letters 'i', 'n', 'f' - it stands for 'infection'"
Me: "OK, I've done that"
IG: "Now click OK"
Me: "Uh huh"
IG: "What do you see?"
Me: "A list of all the drivers installed on my computer"
IG: "You're wasting my time and your time, now bugger off"... beeeeeeeeeeeep

Unfortunately caller ID only showed he was calling from an "International" number so I couldn't call him back to find out more about his wonderful International Routing System or what other things he was going to get me to do to my computer.

The Secret Diary of Michael Schumacher... returns

Thu, 21 Jan 2010 00:00:00 GMT

With the 2010 return of The Secret Diary of Michael Schumacher on Planet-F1, I've just added another year's worth of old entries back onto the interweb for your reading pleasure.

Read all his entries from 2002 to 2004, plus links to the latest entries in The Secret Diary of Michael Schumacher.

Manual tagging on Facebook

Sat, 02 Jan 2010 10:42:22 GMT

Tagging of people in the text of status updates has been available on Facebook for a while now, but it still isn't available everywhere, such as comments and photo descriptions.

Luckily if you really want to tag someone in text in some of these other places (I've only made it work in photo descriptions so far) then you can do so. In addition you can manually tag people within status updates giving them whatever name you want.

All you have to do is include the following format in your text and Facebook will automatically display tag links:

Tagging @[USERID:blah] in a comment

Where USERID is the numeric Facebook ID of the user you want to tag, and blah can be any string.

So, for example:
Tagging @[721981740:Theo] in a comment

is displayed in Facebook as:
Tagging Theo in a comment

The Our Domain Set

Tue, 08 Dec 2009 11:08:27 GMT

It has to be said that over the years I have purchased quite a few domain names, but there was one that I have wanted for a while to add to the set of OurCarnival.co.uk, OurChurch.co.uk and OurPanto.co.uk - that being OurVillage.co.uk.

And yesterday I managed to buy it off the current owner, so finally the Eaton Bray website is available via www.ourvillage.co.uk.

And if you hadn't heard yet, the Christmas Puzzle is now available to download!

Christmas Puzzle 2009 - Time gentlemen please

Tue, 08 Dec 2009 11:01:22 GMT

This year's annual Charity Christmas Puzzle has now been posted, and is available to download.

This, the 19th annual Puzzle that Gordon Gray has set, has a theme designed to help completion and will appeal to people who enjoy doing Crossword puzzles, such as in the Daily Telegraph (though it is not a Crossword puzzle). Puzzlers have plenty of time to find the answers and Puzzles should be returned, with donation, by 24 January.

Four winners will each receive a £25 prize.
Everyone who enters will qualify for a £25 prize draw.

So what are you waiting for, give it a go and download the Christmas Puzzle now.

COMException Class not registered on 64-bit Windows

Mon, 05 Oct 2009 11:53:02 GMT

Having finally got myself running live on Windows 7, this morning it was time to fix the one problem remaining - Visual Studio 2008 throwing the COMException "Class not registered" (REGDB_E_CLASSNOTREG) when trying to call InitializeComponent on a form which has an ActiveX control on it:

System.Runtime.InteropServices.COMException (0x80040154): Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG))
   at System.Windows.Forms.UnsafeNativeMethods.CoCreateInstance(Guid& clsid, Object punkOuter, Int32 context, Guid& iid)
   at System.Windows.Forms.AxHost.CreateWithoutLicense(Guid clsid)
   at System.Windows.Forms.AxHost.CreateWithLicense(String license, Guid clsid)
   at System.Windows.Forms.AxHost.CreateInstanceCore(Guid clsid)
   at System.Windows.Forms.AxHost.CreateInstance()
   at System.Windows.Forms.AxHost.GetOcxCreate()
   at System.Windows.Forms.AxHost.TransitionUpTo(Int32 state)
   at System.Windows.Forms.AxHost.CreateHandle()
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.AxHost.EndInit()
   at OCXWrappers.TXTextControl.InitializeComponent() in C:\Users\...\Form1.Designer.vb:line 42

Hunting around Google turned up nothing (the OCX was definately registered correctly), but I did twig after a few minutes... The ActiveX control in question was 32-bit, whereas Visual Studio defaults to compile to "Any CPU" and I was now running 64-bit Windows.

Solution: Go into the Project Properties, Compile tab and click "Advanced Compile Options...". Change "Target CPU" to x86, click OK, save and try again.

Presumably this is the same problem as others have had when trying to run on Windows XP / Server 2003 and above when the customer is running 64-bit and the development environment is 32-bit.

Custom DataGridViewColumn & IDataGridViewEditingControl classes

Tue, 02 Jun 2009 08:33:20 GMT

Having just spent the last few hours getting my head round how custom DataGridView column code fitted together in VB.Net I thought it only fair to share in the hope that I can speed up the process for others.

The setup

In my case I was looking to use a custom usercontrol in an editable grid; a custom usercontrol that extends the standard ComboBox in all sorts of ways (and is already written & tested).

Unlike examples such as the DateTimePicker column and others such as the Colour Pickers on CodeProject etc, I was looking to both display a plain text value in the cell when not in edit mode and also to store/load a completely different numeric lookup value within the bound data. [1]

Useful points

A few points that I would have found useful to know before starting are:

What is FormattedValue?
It appears that FormattedValue is the information stored within the bound data which is also referred to as just Value in other places. [2]
At what point should I replace standard columns with custom ones?
Use the DataGridView.DataSourceChanged event. [3]
How many instances of each control will be created?
The creation of the Cell and EditingControl control instances is handled by the DataGridView control and is out of the developer's hands. This gives you:
- One ComboBoxColumn instance per column.
- One ComboBoxCell instance per cell.
- One ComboBoxEditingControl instance PER GRID.
  This last one is very important to recognise as it affects decisions later.
How does the DataGridView know which Cell and EditingControl classes to instantiate?
- [line 46 below]: The CellTemplate property of the custom Column class defines the custom Cell class to use. This can be specified in the DataGridViewColumn constructor.
- [line 95 below]: The EditType property in the custom Cell class tells DataGridView which class to use as the editing control for the cell.

On to the code

A note about the Extended ComboBox control: The control supports properties such as an ImageList used for displaying images in the drop down, and a SelectedIDValue which is forced to be either DBNull.Value or a Long value for easy binding to a field in a database.

To walk through the code, we'll start at the outer DataGridView level and work inwards.

DataSourceChanged event

First the DataSourceChanged event handler which we use to replace the standard DataGridViewTextColumns with custom columns. The code is structured with a Select Case so that other custom column types (like CalendarColumn for DateTime types) are simple to add later.

Private Sub OnDataSourceChanged(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles DataGridView1.DataSourceChanged

    Dim OriginalColumn, NewColumn As DataGridViewColumn
    Dim ColumnIndex As Integer

    For Each OriginalColumn In DataGridView1.Columns
        'Reset the NewColumn variable
        NewColumn = Nothing 

        'Decide if we need to replace the current column
        Select Case GetDBType(OriginalColumn.ValueType)
            Case SqlDbType.BigInt, SqlDbType.Int
                'Replace BigInt and Int columns with the ComboBoxColumn type
                'Pass the Sql used to display the content of the drop down
                NewColumn = _
                    New ComboBoxColumn(GetLookupSql(OriginalColumn.Name))

        End Select

        'If we have a new column to replace
        If NewColumn IsNot Nothing Then
            'Get the current index of the old column
            ColumnIndex = MyBase.Columns.IndexOf(OriginalColumn)
            'Copy the basic information from the old column
            NewColumn.DataPropertyName = OriginalColumn.DataPropertyName
            NewColumn.HeaderText = OriginalColumn.HeaderText
            NewColumn.Name = OriginalColumn.Name
            'Remove the old column
            MyBase.Columns.Remove(OriginalColumn)
            'Add the new one where the old one used to be
            MyBase.Columns.Insert(ColumnIndex, NewColumn)
        End If
   Next
End Sub

See CodeProject for the implementation of GetDbType.

ComboBoxColumn class

Next we need to create the basic ComboBoxColumn class. Line 46 is important to hooking the Column to its related CellTemplate class, and the rest of the code allows us to simply pass in the Sql to use for populating the drop down list.

Public Class ComboBoxColumn
    Inherits DataGridViewColumn

    Friend DropDownDataSource As DataTable

    Public Sub New(ByVal DataSource As String)
        MyBase.New(New ComboBoxCell())

        'Open a DataTable from the specified Sql
        DropDownDataSource = OpenLookupDataTable(DataSource)
    End Sub
End Class

We should override the CellTemplate property and check that the value being passed to it is of the correct type, but I leave that for the reader to add if they want (along with the simple code for things like OpenLookupDataTable [ln49] and GetLookupSql [ln17]). This article is keeping to the basics of what we need to get things working and show how the classes interact.

ComboBoxCell class

Next we need the ComboBoxCell class. This is where most of the extra work is done.

Public Class ComboBoxCell
    Inherits DataGridViewTextBoxCell

    Private DisplayValue As String = Nothing

    Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, _
        ByVal initialFormattedValue As Object, _
        ByVal dataGridViewCellStyle As DataGridViewCellStyle)
        
        MyBase.InitializeEditingControl(rowIndex, _
            initialFormattedValue, _
            dataGridViewCellStyle)

        'Cast the EditingControl to a variable we can work with
        Dim ctl As ComboBoxEditingControl = _
            DirectCast(DataGridView.EditingControl, ComboBoxEditingControl)

        'Cast the OwningColumn to a variable we can work with
        Dim col As ComboBoxColumn = DirectCast(Me.OwningColumn, ComboBoxColumn)

        'Tell the ComboBox what to display in the drop down
        ctl.DataSource = col.DropDownDataSource
        
        'Important: Tell the ComboBoxEditingControl that this is now 
        '           the owner cell for the control
        ctl.OwnerCell = Me
    End Sub

    Friend Sub SetDisplayValue(ByVal NewValue As String)
        DisplayValue = NewValue
    End Sub

    Public Overrides ReadOnly Property EditType() As Type
        Get
            ' Return the type of the editing contol that ComboBoxCell uses.
            Return GetType(ComboBoxEditingControl)
        End Get
    End Property

    Public Overrides ReadOnly Property ValueType() As Type
        Get
            ' Return the type of the value that ComboBoxCell contains.
            Return GetType(Long)
        End Get
    End Property

    Public Overrides ReadOnly Property DefaultNewRowValue() As Object
        Get
            ' Use DBNull as the default cell value.
            Return DBNull.Value
        End Get
    End Property

    Protected Overrides Sub Paint(ByVal graphics As System.Drawing.Graphics, _
        ByVal clipBounds As System.Drawing.Rectangle, _
        ByVal cellBounds As System.Drawing.Rectangle, ByVal rowIndex As Integer, _
        ByVal cellState As DataGridViewElementStates, _
        ByVal value As Object, ByVal formattedValue As Object, _
        ByVal errorText As String, ByVal cellStyle As DataGridViewCellStyle, _
        ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, _
        ByVal paintParts As DataGridViewPaintParts)
        
        'The first time in, make sure that we get the initial DisplayValue
        If DisplayValue Is Nothing Then SetDisplayValue(LookupDisplayValue(value))
        
        'Override paint to pass DisplayValue instead of formattedValue
        MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, cellState, value, _
            DisplayValue, errorText, cellStyle, advancedBorderStyle, paintParts)
    End Sub

End Class

The reason we have to reset ComboBox.DataSource [ln81] every time is due to the fact that the DataGridView only creates a single instance of ComboBoxEditingControl regardless of which cell the user attempts to edit.

We use the OwnerCell property [ln85] to ensure that the ComboBoxEditingControl knows which ComboBoxCell to communicate with when the user selected a new item in the drop down list.

Using the Paint method in this way allows us to keep the styling of the cells controlled by the underlying Microsoft provided code. [6]

The LookupDisplayValue method finds the text to display using OwningColumn.DropDownDataSource so that the first time the cell is painted we know which value to display.

ComboBoxEditingControl class

And finally, the class that only has a single instance during the lifetime of the grid... [7]

In a similar way to the CalendarColumn from MSDN we inherit from the underlying extended ComboBox control and then use the SelectedValueChanged event to update the currently connected ComboBoxCell.

Public Class ComboBoxEditingControl
    Inherits ExtendedComboBox
    Implements IDataGridViewEditingControl

    Private dataGridViewControl As DataGridView
    Private valueIsChanged As Boolean = False
    Private rowIndexNum As Integer
    Private currentCell As ComboBoxCell = Nothing

    Public Property OwnerCell() As ComboBoxCell
        Get
            Return currentCell
        End Get
        Set(ByVal value As ComboBoxCell)
            'Clear currentCell so DoSelectedValueChanged doesn't cause an endless loop
            currentCell = Nothing
            'Set SelectedIDValue
            MyBase.SelectedIDValue = value.Value
            'Show that the value hasn't changed yet
            valueIsChanged = False
            'Finally remember the new Owner Cell
            currentCell = value
        End Set
    End Property

    Public Sub ApplyCellStyleToEditingControl(_
        ByVal dataGridViewCellStyle As DataGridViewCellStyle) _
        Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl
        
        Me.Font = dataGridViewCellStyle.Font
        Me.ForeColor = dataGridViewCellStyle.ForeColor
        Me.BackColor = dataGridViewCellStyle.BackColor
    End Sub

    Public Property EditingControlDataGridView() As DataGridView _
        Implements IDataGridViewEditingControl.EditingControlDataGridView
        Get
            Return dataGridViewControl
        End Get
        Set(ByVal value As DataGridView)
            dataGridViewControl = value
        End Set
    End Property

    Public Property EditingControlFormattedValue() As Object _
        Implements IDataGridViewEditingControl.EditingControlFormattedValue
        Get
            Return MyBase.SelectedIDValue
        End Get
        Set(ByVal value As Object)
            MyBase.SelectedIDValue = value
        End Set
    End Property

    Public Property EditingControlRowIndex() As Integer _
        Implements IDataGridViewEditingControl.EditingControlRowIndex
        Get
            Return rowIndexNum
        End Get
        Set(ByVal value As Integer)
            rowIndexNum = value
        End Set
    End Property

    Public Property EditingControlValueChanged() As Boolean _
        Implements IDataGridViewEditingControl.EditingControlValueChanged
        Get
            Return valueIsChanged
        End Get
        Set(ByVal value As Boolean)
            valueIsChanged = value
        End Set
    End Property

    Public Function EditingControlWantsInputKey(ByVal keyData As Keys, _
        ByVal dataGridViewWantsInputKey As Boolean) As Boolean _
        Implements IDataGridViewEditingControl.EditingControlWantsInputKey
       
        Return True
    End Function

    Public ReadOnly Property EditingPanelCursor() As Cursor _
        Implements IDataGridViewEditingControl.EditingPanelCursor
        Get
            Return MyBase.Cursor
        End Get
    End Property

    Public Function GetEditingControlFormattedValue( _
        ByVal context As DataGridViewDataErrorContexts) As Object _
        Implements IDataGridViewEditingControl.GetEditingControlFormattedValue
        
        Return MyBase.SelectedIDValue
    End Function

    Public Sub PrepareEditingControlForEdit(ByVal selectAll As Boolean) _
        Implements IDataGridViewEditingControl.PrepareEditingControlForEdit
    End Sub

    Public ReadOnly Property RepositionEditingControlOnValueChange() As Boolean _
        Implements IDataGridViewEditingControl.RepositionEditingControlOnValueChange
        Get
            Return False
        End Get
    End Property

    Private Sub DoSelectedValueChanged(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.SelectedValueChanged

        If currentCell IsNot Nothing Then
            'Remember that the value has changed
            valueIsChanged = True
            'Pass back the new ID
            currentCell.Value = MyBase.SelectedIDValue
            'Pass back the new display value
            currentCell.SetDisplayValue(MyBase.Text)
        End If
    End Sub
End Class

I hope these four blocks of code give a simple overview of how the custom DataGridViewColumn classes connect and interact and will make the setup a little easier for at least one other person!

Footnotes

One option would have been to extend the DataGridViewComboBoxColumn and DataGridViewComboBoxCell classes, but this would have meant duplicating the majority of the code from the already tested control.
There are many methods and properties in relation to custom columns that mention FormattedValue and to begin with I presumed the difference between this and Value was that one was the display value and the other was the value stored in the bound data. After spending a long time trying to make this work, all of the error messages suggested that FormattedValue and Value should in fact be left containing same data.
My first thought was that the best place to switch from the default Grid.DataGridTextColumn to the custom column would be in the Grid.ColumnAdded event as I presumed this would be fired before any rows were added and so save the grid doing things twice. [4]
- No! If the columns are replaced in Grid.ColumnAdded then they will later be re-added outside of the developer's control [5]
- The next idea was to do it during Grid.DataBindingComplete at which point I found that this event is called twice after setting Grid.DataSource [5] and that the only safe way to switch columns was to do it on the second call to Grid.DataBindingComplete (this event is fired for many different reasons so using it seemed rather hacky).
- Finally I found the answer lay in the Grid.DataSourceChanged event which fires only once after setting Grid.DataSource and appears to work as expected.
This was the VB6 developer in me that had previously spent years using SGrid2 and its predecessor and so presumed that the data would be fully parsed while being assigned to the grid costing cycles.
This took a while to figure out! It appears that if the column is replaced in either the ColumnAdded event or the first firing of the DataBindingComplete event, then on the second round of binding (no one seems to understand why this has to happen twice) the original version of the custom column that had custom properties assigned to it is dumped and replaced with a fresh one that only has standard DataGridViewColumn properties assigned such as DataPropertyName.
It was the structure of the Paint method in taking value and formattedValue parameters, and only displaying the contents of formattedValue that led me to believe that FormattedValue in the EditingControl class could be different from Cell.Value. [2]
Although only one instance of the EditingControl is created by default, I would imagine there are methods within the custom Cell class that can be overridden to provide the developer with more flexibility.

Disclaimer: All sample code is provided for illustrative purposes only. These examples have not been thoroughly tested under all conditions. There is no guarantee or implied reliability, serviceability, or function of these programs.

Internet Explorer and the Unknown runtime error

Mon, 01 Jun 2009 18:10:46 GMT

As a developer I've come across my fair share of annoying Microsoft error messages, so I wasn't too suprised when I randomly hit the following Javascript error in IE8:

Unknown runtime error

Even better, if I switched to IE7 compatibility mode I got the old:

[object error]

Having tracked down the line that was causing the problem, it appears that the Javascript hook into the DOM is rather more strict (or maybe buggy!) when setting innerHTML than when using document.write.

document.write

The following line of code works and displays the expected output:

document.write('<p id="extraNote"><div class="somethingSpecial">Hello</div></p>');

innerHTML

And the following works as expected in all browsers except IE:

// Done when the page is initially displayed
document.write('<p id="extraNote"></p>');

// Done in a seperate function that works out what should really go in extraNote
var note = document.getElementById("extraNote");
note.innerHTML='<div class="somethingSpecial">Hello</div>';

The fix

Having worked out why IE was being annoying, the fix was very simple...

replace <p id="extraNote"> with <div id="extraNote">

... but it's obvious IE8 still has random IEisms, and proves that when it comes to supporting IE, that even now you have to fully test even the most minor of code changes (extraNote used to be a table cell rather than a paragraph i.e. <td id="extraNote">).

Update: Just checked the IE Programming Bugs Wiki and see that this is apparently "by design" - "Can't put invalid HTML in the document: You cannot assign a string to innerHTML or outerHTML that contains invalid HTML. For example, trying to replace the content of the P element with another P will fail. A P element can only contain text and inline elements. However, replacing the entire P element with another P would work just fine."

This seems like a very wierd limitation, especially as it's possible to edit the DOM directly and create a <div> within a <p> tag in IE, but there we go. Case closed I guess.

All work and no play makes Jack a dull boy

Sat, 16 May 2009 15:24:44 GMT

You can probably guess what I watched last night, but this Jack has also been working way too much recently. Unfortunately that doesn't look like it will slow down any time soon, but Friday night meant a few hours off, and I did manage to relax and catch up on the stories of a few other Jacks.

Before another viewing of The Shining, I had the fun of watching Lost Series 5 come to an end in dramatic form; admittedly not as dramatic as Jack Torrance arriving on the island and chasing everyone with an axe, but still pretty dramatic! I am very much looking forward to everything (hopefully) being wrapped up in Series 6; only another nine or so months to wait for the final series to kick off!

At least with that over and 24 coming to an end my iTunes bill will be much lower each week now. And with many less Jack stories to catch up on, my Friday nights off could become even more interesting :-)

Using Reserved Words as Identifiers in VB.Net

Fri, 20 Mar 2009 08:20:16 GMT

Up until now, if I wanted to use a reserved keyword as a variable, function or property name (such as Public Property ReadOnly() As Boolean), the compiler would complain.

Luckily I happened across a very simple answer yesterday; VB.Net works in a similar way to SQL - to use a reserved word as an identifier, just put square brackets around it!

i.e. Public Property [ReadOnly]() As Boolean

File under: things I can't believe I didn't know!

Passing an Empty Array in VB.Net

Wed, 04 Mar 2009 08:19:06 GMT

When needing to pass arrays around between methods, I had always initialised them as Nothing so that I knew when they were completely empty. i.e.

Dim arrayVar() As String = Nothing

This is fine, but does then mean doing an extra check before working with the array. i.e.

If arrayVar IsNot Nothing Then
    For i As Integer = 0 To arrayVar.GetUpperBound(0)
        'do other work with the array, etc
    Next
End If

The tip, is to initialise the array as size -1 instead of Nothing, i.e.

Dim arrayVar(-1) As String

This means that you then don't need the extra IsNot Nothing check, saving two lines of code every time the array is used, and allowing you to have coffee a few seconds earlier than you otherwise would!

Do I Need Planning Permission

Thu, 26 Feb 2009 22:56:59 GMT

Good evening all! It seems I haven't actually written much of late so here's a little tidbit of the stuff that has been keeping me busy for the past few months.

First of all there was the quick revamp of Blackstar Search, but mainly I have been putting together a new planning website called simply Do I Need Planning Permission? for Orchard Planning Solutions.

The idea of Do I Need Planning Permission? is to provide a comprehensive set of information about when you do and do not need planning permission and whether building regulations apply to your particular project on your home. In addition there is an interactve forum and blog to keep people joining in, plus a feature for calculating the expected cost of an extension based on its size, and another for calculating the number of roles of wallpaper you need to paper a room.

As I've been writing software to help large companies and local authorities manage the processes invoved with the CDM regulations for larger projects for nearly 14 years now, it's been interesting to pick up the details of what is required for smaller home based projects too.

This website has involved some fun javascript for the calculators, but it has also given me the excuse to finally build the online Forum software that I've been meaning to do for a couple of years. This has now been intergrated into both the Do I Need Planning Permission? and Eaton Bray websites. On the blog side it has also forced me to convert the blog backend to ASP.Net with SQL stored procedures rather than the bulky ASP/ADO code that it was originally based on; at one point with a slowish internet connection the old code was taking minutes to publish a single post and as soon as the switch was made, that became no more than one second.... I knew there would be a big performance boost, but that was spectacular!