{"id":47,"date":"2008-09-16T11:16:24","date_gmt":"2008-09-16T01:16:24","guid":{"rendered":"http:\/\/www.malcolmgroves.com\/blog\/?page_id=47"},"modified":"2008-09-16T22:01:01","modified_gmt":"2008-09-16T12:01:01","slug":"sqlsite","status":"publish","type":"page","link":"http:\/\/www.malcolmgroves.com\/blog\/?page_id=47","title":{"rendered":"SQLSite"},"content":{"rendered":"

CodeSite 2, from Raize Software <\/a>, is a powerful debugging tool for Borland Delphi and C++Builder. The problem? Often not all of the logic in your application is contained in Delphi or C++Builder code. Some logic is often contained in Stored Procedures and Triggers. However, by itself, CodeSite will only let you trace the flow of execution to the boundary of your Delphi or C++Builder code. What goes on inside your database is pretty much a mystery to CodeSite.<\/p>\n

Well, SQLSite tries to fix that. SQLSite is an extension to CodeSite 2, allowing CodeSite messages to be sent from within MS SQL Server Stored Procedures and Triggers. Now you can trace the flow of logic from your Delphi code to your Stored Procedure and back to your Delphi code, making it much easier to track down errors in your applications.<\/p>\n

Requirements<\/h3>\n

SQLSite has been tested with CodeSite 2 Professional and SQL Server 7. I’m not taking advantage of any of the features not present in CodeSite 2 Standard, so I believe it should also work with the Standard Edition. Additionally, SQL Server has had Extended Stored Procedure support for a number of versions, so I believe it should also work with other versions of SQL Server. As I try it out with more versions, I’ll post the results.<\/p>\n

<\/span><\/p>\n

<\/p>\n

Example<\/p>\n

<\/span><\/h3>\n

As an example, the following test Stored Procedure:<\/p>\n

create<\/code> proc TestCS\r\nAS<\/code>\r\ndeclare<\/code> @callresult integer\r\n<\/code>  exec<\/code> csClear\r\n  exec<\/code> csCategoryColor 'clWhite'\r\n  <\/code>exec<\/code> csEnterMethod 'TestCS'\r\n  <\/code>exec<\/code> csCategory 'SQLSite Test'\r\n  <\/code>exec<\/code> csAddCheckPoint\r\n  exec<\/code> csResetCheckpoint\r\n  exec<\/code> csAddCheckPoint\r\n  exec<\/code> csAddSeparator\r\n  exec<\/code> csSendMemoryStatus\r\n  exec<\/code> csSendMsg 'Msg'\t\t\r\n<\/code>  exec<\/code> csDisable\r\n  exec<\/code> csSendMsg 'Should not see this'\t\t\r\n<\/code>  exec<\/code> csEnable\r\n  exec<\/code> csCategoryColor 'clYellow'\t\t\r\n<\/code>  exec<\/code> @callresult = csEnabled\r\n  if<\/code> (@callresult = 1)\r\n    exec<\/code> csSendMsg 'CodeSite Already Enabled'\t\t\r\n<\/code>  else\t\t\r\n<\/code>  begin\t\t\r\n<\/code>    exec<\/code> csEnable    \r\n    exec<\/code> csSendMsg 'Just Enabled CodeSite'\r\n<\/code>  end\t\t\r\n<\/code>  exec<\/code> csSendMsg 'Should see this'\t\t\r\n<\/code>  exec<\/code> csSendString 'String'<\/code>, 'Value'\t\t\r\n<\/code>  exec<\/code> csSendInteger 'Integer'<\/code>, 1\r\n  exec<\/code> csSendFloat 'Float'<\/code>, 1.1\r\n  exec<\/code> csSendNote 'This is a test note'\t\t\r\n<\/code>  exec<\/code> csWriteInteger 'First'<\/code>, 'Integer'<\/code>, 1\r\n  exec<\/code> csWriteFloat 'Second'<\/code>, 'Float'<\/code>, 1.1\r\n  exec<\/code> csWriteString 'Third'<\/code>, 'String'<\/code>, 'Value'\t\t\r\n<\/code>  exec<\/code> csWriteMsg 'Fourth'<\/code>, 'Msg'\t\t\r\n<\/code>  exec<\/code> csExitMethod 'TestCS'<\/code><\/pre>\n
produces the following output in the CodeSite 2 viewer:<\/p>\n\n\n\n
<\/td>\n\"\" <\/a><\/p>\n
Click image for larger screenshot<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
Currently, SQLSite supports the following CodeSite 2 calls, inside your SQL Server code. This seems to cover most requirements, but let me know if you simply can’t live without support for something else.<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\n
CodeSite<\/div>\n<\/td>\n
\n
SQLSite Equivalent<\/div>\n<\/td>\n<\/tr>\n
CodeSite.Category<\/td>\ncsCategory<\/td>\n<\/tr>\n
CodeSite.CategoryColor<\/td>\ncsCategoryColor<\/td>\n<\/tr>\n
CodeSite.AddSeparator<\/td>\ncsAddSeparator<\/td>\n<\/tr>\n
CodeSite.AddCheckpoint<\/td>\ncsAddCheckpoint<\/td>\n<\/tr>\n
CodeSite.ResetCheckpoint<\/td>\ncsResetCheckpoint<\/td>\n<\/tr>\n
CodeSite.SendMemoryStatus<\/td>\ncsSendMemoryStatus<\/td>\n<\/tr>\n
CodeSite.Clear<\/td>\ncsClear<\/td>\n<\/tr>\n
CodeSite.Enabled := True<\/td>\ncsEnable<\/td>\n<\/tr>\n
CodeSite.Enabled := False<\/td>\ncsDisable<\/td>\n<\/tr>\n
CodeSite.Enabled<\/td>\ncsEnabled<\/td>\n<\/tr>\n
CodeSite.DestinationDetails<\/td>\ncsDestinationDetails<\/td>\n<\/tr>\n
CodeSite.EnterMethod<\/td>\ncsEnterMethod<\/td>\n<\/tr>\n
CodeSite.ExitMethod<\/td>\ncsExitMethod<\/td>\n<\/tr>\n
CodeSite.SendMsg<\/td>\ncsSendMsg<\/td>\n<\/tr>\n
CodeSite.SendString<\/td>\ncsSendString<\/td>\n<\/tr>\n
CodeSite.SendInteger<\/td>\ncsSendInteger<\/td>\n<\/tr>\n
CodeSite.SendFloat<\/td>\ncsSendFloat<\/td>\n<\/tr>\n
CodeSite.SendNote<\/td>\ncsSendNote<\/td>\n<\/tr>\n
CodeSite.WriteInteger<\/td>\ncsWriteInteger<\/td>\n<\/tr>\n
CodeSite.WriteFloat<\/td>\ncsWriteFloat<\/td>\n<\/tr>\n
CodeSite.WriteString<\/td>\ncsWriteString<\/td>\n<\/tr>\n
CodeSite.WriteMsg<\/td>\ncsWriteMsg<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
<\/span><\/p>\n
<\/p>\n
History<\/p>\n
<\/span><\/h3>\n
<\/p>\n
v1.0 – 28 August 2001<\/p>\n