Many metrics are based on the following:

• Methods; a sub routine of an object
• Objects;
• Classes;
• Files
• Lines

If you try to compare or make assumptions with metrics that focus on a Method level like Cyclomatic Complexity (CC) and try to relate that to Lines of Code (LOC), the observations are going to be off, really off!

Because having a high or low Cyclomatic complexity has nothing to really do with how many lines of code make up a class or file.  I could have a million lines of code and have a perfectly defined class that has very optimized methods and so Cyclomatic Complexity never gets above 8.

However, looking at Cyclomatic Complexity (CC) and working with Maximum Size of Operation (MSOO) can help determine if there are long methods that have high complexity, which then can be used to help determine a refactoring plan.

Always try to keep data grouped together.

Mike

More to come…

Share This | Email this page to a friend

  TGlowSpot = class(TInterfacedObject, _IManipulationEvents)
  private
    FInertia: IInertiaProcessor;
    FManipulator: IManipulationProcessor;
    FInertiaCookie, FManipulatorCookie: LongInt;
    FCompleted: BOOL;
  public
    X, Y, Radius: Integer;
    Alpha: Extended;
    FadeIn: Boolean;
    Color: TColor;
    ID: Integer;

  protected
    procedure DoTouch(const APoint: TPoint; AID: Integer; ATouchMessage: TTouchMessage);

    { _IManipulationEvents }
    function ManipulationStarted(X: Single; Y: Single): HRESULT; stdcall;
    function ManipulationDelta(X: Single; Y: Single; translationDeltaX: Single;
      translationDeltaY: Single; scaleDelta: Single; expansionDelta: Single;
      rotationDelta: Single; cumulativeTranslationX: Single;
      cumulativeTranslationY: Single; cumulativeScale: Single;
      cumulativeExpansion: Single; cumulativeRotation: Single): HRESULT;
      stdcall;
    function ManipulationCompleted(X: Single; Y: Single;
      cumulativeTranslationX: Single; cumulativeTranslationY: Single;
      cumulativeScale: Single; cumulativeExpansion: Single;
      cumulativeRotation: Single): HRESULT; stdcall;
  public
    constructor Create(AParent: TWinControl);

    procedure Paint(Canvas: TDirect2DCanvas);
    procedure Disconnect;
    procedure ProcessInertia;
  end;
...

constructor TGlowSpot.Create(AParent: TWinControl);
begin
  inherited Create;
  Alpha := 1;
  Radius := 80;
  FadeIn := False;
  Randomize;
  Color := RGB(Random(255), Random(256), Random(256));
  ID := -1;
  FCompleted := True;
  ID := -1;
  FCompleted := True;

  FInertia := CreateComObject(CLSID_IInertiaProcessor) as IInertiaProcessor;
  FManipulator := CreateComObject(CLSID_IManipulationProcessor) as IManipulationProcessor;
  InterfaceConnect(FInertia, _IManipulationEvents, Self, FInertiaCookie);
  InterfaceConnect(FManipulator, _IManipulationEvents, Self, FManipulatorCookie);

  FInertia.put_DesiredDeceleration(0.001);

  FInertia.put_BoundaryLeft(200);
  FInertia.put_BoundaryTop(200);
  FInertia.put_BoundaryRight(AParent.Width - 200);
  FInertia.put_BoundaryBottom(AParent.Height - 200);

  FInertia.put_ElasticMarginLeft(200);
  FInertia.put_ElasticMarginTop(200);
  FInertia.put_ElasticMarginRight(200);
  FInertia.put_ElasticMarginBottom(200);
end;

procedure TGlowSpot.Disconnect;
begin
  InterfaceDisconnect(FInertia, _IManipulationEvents, FInertiaCookie);
  InterfaceDisconnect(FManipulator, _IManipulationEvents, FManipulatorCookie);
end;

procedure TGlowSpot.DoTouch(const APoint: TPoint; AID: Integer;
  ATouchMessage: TTouchMessage);
var
  Vx, Vy: Single;
begin
  case ATouchMessage of
    tmMove:
    begin
      X := APoint.X;
      Y := APoint.Y;
      FManipulator.ProcessMove(AID, APoint.X, APoint.Y);
    end;

    tmDown:
    begin
      X := APoint.X;
      Y := APoint.Y;
      FManipulator.ProcessDown(AID, APoint.X, APoint.Y);
    end;

    tmUp:
    begin
      ID := -1;

      FManipulator.ProcessUp(AID, APoint.X, APoint.Y);

      FManipulator.GetVelocityX(Vx);
      FManipulator.GetVelocityY(Vy);

      FInertia.put_InitialVelocityX(Vx);
      FInertia.put_InitialVelocityY(Vy);

      FInertia.put_InitialOriginX(X);
      FInertia.put_InitialOriginY(Y);

      FCompleted := False;
    end;
  end;
end;

function TGlowSpot.ManipulationCompleted(X, Y, cumulativeTranslationX,
  cumulativeTranslationY, cumulativeScale, cumulativeExpansion,
  cumulativeRotation: Single): HRESULT;
begin
  Result := S_OK;
end;

function TGlowSpot.ManipulationDelta(X, Y, translationDeltaX, translationDeltaY,
  scaleDelta, expansionDelta, rotationDelta, cumulativeTranslationX,
  cumulativeTranslationY, cumulativeScale, cumulativeExpansion,
  cumulativeRotation: Single): HRESULT;
begin
  Inc(Self.X, Round(translationDeltaX));
  Inc(Self.Y, Round(translationDeltaY));
  Result := S_OK;
end;

function TGlowSpot.ManipulationStarted(X, Y: Single): HRESULT;
begin
  Result := S_OK;
end;

procedure TGlowSpot.ProcessInertia;
begin
  if not FCompleted then
    FInertia.Process(FCompleted);
end;

procedure TTouchForm.WMTouch(var Message: TMessage);

  function TouchPointToPoint(const TouchPoint: TTouchInput): TPoint;
  begin
    Result := Point(TouchPoint.X div 100, TouchPoint.Y div 100);
    PhysicalToLogicalPoint(Handle, Result);
  end;

var
  TouchInputs: array of TTouchInput;
  TouchInput: TTouchInput;
  Handled: Boolean;
  Point: TPoint;
  TouchMessage: TTouchMessage;
begin
  Handled := False;
  SetLength(TouchInputs, Message.WParam);
  GetTouchInputInfo(Message.LParam, Message.WParam, @TouchInputs[0],
    SizeOf(TTouchInput));
  try
    for TouchInput in TouchInputs do
    begin
      Point := TouchPointToPoint(TouchInput);

      if (TouchInput.dwFlags and TOUCHEVENTF_MOVE) <> 0 then
        TouchMessage := tmMove
      else if (TouchInput.dwFlags and TOUCHEVENTF_UP) <> 0 then
        TouchMessage := tmUp
      else if (TouchInput.dwFlags and TOUCHEVENTF_DOWN) <> 0 then
        TouchMessage := tmDown;

      ProcessTouchMessages(Point, TouchInput.dwID, TouchMessage);
    end;

    Handled := True;
  finally
    if Handled then
      CloseTouchInputHandle(Message.LParam)
    else
      inherited;
  end;
end;

function TTouchForm.ProcessTouchMessages(const APoint: TPoint; ID: Integer;
  TouchMessage: TTouchMessage): TGlowSpot;
var
  Spot: TGlowSpot;
begin
  Result := nil;
  Spot := FindSpot(ID);

  if Spot = nil then
  begin
    Spot := FindSpot(APoint);

    if Spot <> nil then
      Spot.ID := ID;
  end;

  if Spot = nil then
  begin
    Spot := TGlowSpot.Create(Self);
    Spot.ID := ID;
    FSpots.Add(Spot);
  end;

  Spot.DoTouch(APoint, ID, TouchMessage);
  Result := Spot;
end;

procedure TTouchForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssTouch in Shift then Exit;
  FMouseDown := True;
  ProcessTouchMessages(Point(X, Y), 0, tmDown);
end;

procedure TTouchForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssTouch in Shift then Exit;
  if FMouseDown then
    ProcessTouchMessages(Point(X, Y), 0, tmMove);
end;

procedure TTouchForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Spot: TGlowSpot;
begin
  if ssTouch in Shift then Exit;
  Spot := ProcessTouchMessages(Point(X, Y), 0, tmUp);
  Spot.ID := -1;
  FMouseDown := False;
end;

A few other tidbits from the review:

• "the good folks at Embarcadero came up with a brilliant idea called IDE Insight"
• "Another item that I really like is DataSnap, which is similar to WCF in concept, but in execution, it feels much smoother."
• "Delphi 2010 supports all sorts of new goodies, including multi-touch and gestures … beating Visual Studio 2010 to market by nearly six months"
• "Delphi 2010 has good tools for debugging multithreaded applications, which is an increasingly important item"
• "If you want to do Windows development, and you want to work with native code in a native style, I think that Delphi 2010 is a very productive tool."

Finally, in the summary, Justin gives the Delphi team the ultimate developer compliment, "Every time I work with the Embarcadero team, I feel like they are writing the tools that they would love to use; they really are developers’ developers, and they understand the development process very well and implement it as tools quite nicely."

Read the complete review at http://blogs.techrepublic.com.com/programming-and-development/?p=1924

Share This | Email this page to a friend

Thanks for putting up with my voice yesterday.  I hope some of the information was worth the time!  As I stated yesterday, the Parser.exe created by Ander’s is available on his blog:  http://blogs.embarcadero.com/ao/ and the actual Code Central location is:  http://cc.embarcadero.com/item/27398

I was also thinking about doing a part II to the session, where we go through the entire Sanctuary program that we only hit on for about 5 minutes (no slides, just code).  I think there are a few things that I could show that may help other people.  Let me know your thoughts of if you think it would be worth it.

Again, thanks all for coming!

Mike

More to come…

Share This | Email this page to a friend

DBArtisan for SQL Azure provides for basic database administration at the schema level, including object management and editors, SQL editing and schema extraction, as well as migration utilities to facilitate data migration from Microsoft SQL Server to SQL Azure. The tool enables enterprises to build symmetrical on-premise and cloud-based SQL Azure Database deployments, reducing in-house IT infrastructure costs and making certain data sets more readily available to offsite consumers.

Developers and database administrators can download a trial version of DBArtisan for SQL Azure.  Information about the steps to download and register the trial are listed on the DBArtisan for SQL Azure product page.  You’ll also need a Microsoft SQL Azure account.

• DBArtisan for SQL Azure product page
• Read the press release
• Watch the demonstration video
• Download the trial version
• DBArtisan product page

Share This | Email this page to a friend

This week we were in the early stages of rolling out what was to be “RAD Studio Update 2” with a large number of bug fixes.  We put the update out on the web and the registered users page, and posted an article on the Embarcadero Developer Network. We were excited, because there are a lot of bug fixes in it, making an already solid product even more solid.

However, once a few people started installing it, they noticed that they were being asked to register every time RAD Studio was run.  The product is properly registered, but the dialog box still pops up every time you run RAD Studio.

So, first, if this is happening to you, we’re sorry.  You can simply click cancel whenever you see that dialog and be on your merry way with the benefit of the fixes for Update 2.  Your product should be properly registered, regardless of what the dialog may tell you. 

Second, we have recognized the issue and pulled the Update from distribution.  We want you to have the best experience, obviously, so the continued distribution of the Update clearly isn’t in anyone’s interest.  We don’t want folks to run into the problem – again, obviously. 

Third, we are working on a fix that will cover everyone.  If you’ve installed Update 2 and are running in to the issue above, then we’ll have a fix for you.  If you haven’t installed Update 2 yet, we apologize for the delay, and we’ll have an update for you that doesn’t have this issue.  I can’t say when we’ll have it, but obviously we want it to be as soon as possible.  We want you to have this Update in your hands as much as you do.

Finally, we’re sorry for the hassle, and we’ll get this fixed as soon as possible. 

Share This | Email this page to a friend

The first session for me was my "Delphi Natural Input" session. I have covered Delphi 2010 support for touch, multitouch and gesturing. The more I go into this technology the more I like it. In order to demo multitouch you really need to have multitouch enabled hardware. It is still quite expensive to have proper laptop with touch support, but the alternative is to use either external touch-enabled screen or just an external tablet device which is much more affordable. Marco Cantu showed me in Internet yesterday this Wacom bamboo tablet that is really something like ten times less expensive. During the preparation to my Delphi touch talk I have discovered that the file format for files with gestures definitions created programatically using "TGestureManager.SaveToFile" is incompatible with files created from inside the IDE with Gesture Manager custom gesture editor at design time, but it is still great fun to create Delphi 2010 gestures programmatically:-)

The second session I have attended was by Daniel Magin. Daniel covered ways to remove BDE from your existing Delphi applications. Daniel created in a new unit with his own empty classes derived from TDatabase, TTable, TQuery and TStoredProc and used GExperts to replace throughout the application all occurances of TDatabase, TTable, TQuery and TStoredProc with his own equivalents. In the second step he changed his classes to be derived from RemObjects Data Abstract components. In my opinion this is the way to go. If you consider how DBExpress internals has been changed in Delphi 2007 without breaking the VCL component layer, that’s exactly how BDE could be refactored out from the VCL in the future.

The next session for me was my "Delphi Enterprise Architectures and DataSnap 2010". In this nicely attended slot, I have compared DataSnap 2010 features with other enterprise architectures like CORBA, JEE, WCF and WWSAPI and I think I have managed to prove that DataSnap 2010 has all the features expected from mature, robust enterprise architecture.

Jose Leon - the architect of Delphi for PHP - presented a very interesting session comparing Delphi for Win32 with Delphi for PHP. I really like Jose’s explanation of VCL for PHP library supports concepts from Delphi VCL like component streaming. Very interesting.

Now Boian Mitov is explaining good practices for creating Delphi 2010 multithreaded applications. Boian is very talented Delphi programmer and author of component libraries for video, audio, signal processing, and computer vision. All his libraries are fully multithreaded and optimized using Intel MMX technologies. The libraries are based on the advanced OpenWire technology, and allow writing complex applications with zero or near zero lines of code.

The last session was very difficult to choose. On one hand there is Marco’s "Introduction to jQuery" and on another there "iPhone Development.pas" session by Daniel Magin that is planning to cover developing for iPhone with XCode (Objective C) incl. Interface Builder, developing with Mono Touch and C#, developing with Mono Touch and Pascal (Beta) and web apps with Apple DashCode and Delphi IntraWeb. I have chosen for iPhone development session:-)

Daniel is running Mac OS X and demonstrated building simple iPhone app in XCode and Interface Builder. Objective C is not the most friendly programming language, especially for people with Delphi background. It is much easier to develop for iPhone in MonoDevelop with MonoTouch plugin in any of the .NET languages. The application is using Google Maps to locate Fabrizio:-) The room is packed with people watching Dani performing his iPhone magic with iPhone app talking to Delphi 2010 Web Services SOAP Server application.

We want Delphi for iPhone!

Where is Fabrizio?

Fabrizio is here!

... so is Dani

Share This | Email this page to a friend

The conference has started from the keynote session where speakers could introduce themselves and we also had David I greeting attendees remotely via skype video session. At the end of the keynote I had an opportunity to demo Embarcadero All-Access.

Some of the sessions are in Italian and some in English. My "What’s New in Delphi 2010 IDE and Compiler" session was obviously in English. It was the first time I was demoing Delphi 2010 on Windows 7. Even if you are a presenter, you always can learn something new from attendees. When I have started demoing debugger visualizers, to my surprise there was nothing in debugger windows. No local variables, nothing. Luckily Boian Mitov suggested to turn off Delphi compiler optimization and rebuild the project. That has made the trick. In fact it would make great sense to turn off compiler optimization in the default "Debug" build configuration. Boian has also implemented Delphi 2010 debugger visualizer for bitmaps. Very interesting.

The next session was by Daniele Teti on Delphi 2010 support for JSON serialization and deserialization. It was not completely new to me, as Daniele has already published very interesting blog post about custom marshaling and unmarshaling in Delphi 2010, but there is nothing like watching the session live. Even in Italian:-) You can find support for JSON in the new "DBXJSON.pas" unit and support for marshalling/unmarshalling in "DBXJSONReflect.pas" unit. The support for serialization and deserialization is very elegant and pluggable. You just need to implement your own custom converters and reverters. When I was watching Daniele, I have realized how useful are generics and anonymous methods introduced in Delphi 2009. In fact the Delphi 2010 VCL uses them quite heavily in different places. Another thing is why in "DBXJSONReflect.pas" in "TTypeMarshaller<TSerial: class>" generic class method params are called "clazz" and not "class"? Interesting…

After lunch I have decided to see Daniel Magin presenting "Delphi and Subversion". Daniel demonstrated setting up Subversion and practical information about Subversion itself and useful tools to work with Subversion, which is probably the most popular version control system in use.

I could not miss the opportunity to see "Advanced Delphi for PHP" session by its architect - Jose Leon.
Jose made his life a little bit easier by playing prerecorded demo episodes and explaining live what was happening on the screen. Delphi for PHP is a very interesting tool for building pure PHP web applications, but using the Delphi concepts in the PHP world. Delphi for PHP is 100% visual IDE, with visual class library modeled after Delphi VCL library. There is nothing that compares to Delphi for PHP in the PHP world. Instead of working in text editor with raw PHP source code and libraries downloaded from Internet, you can work on the higher level of abstraction, because VCL for PHP components encapsulate and abstract away underlying low-level details. You can easily wrap existing PHP libraries, like Zend Framework or ExtJS, with visual components which you can work with visually at design time, pretty much like you can in a normal Delphi 2010 application. One of the very powerful aspects of Delphi for PHP is support for templates to integrate components with fancy CSS designs using popular PHP Smarty Templates engine. You can also easlily create web service servers and consume web services with NuSOAP PHP library available via VCL for PHP components. Another cool features are support for master pages, where you can inherit pages from a master page, and internationalization where you can change page language by changing just one property on a VCL for PHP form. Very cool…

The next session is 99% is Italian by Luca Giacalone and Fabrizio Bitti and is called "Delphi e l’interfacciamento con l’hardware… the easy way" and is all about using Delphi applications to interface with external hardware. The starting point are printed circuits that you can connect to your machine either via serial port or Ethernet. Check out this page to get an idea what external hardware we are talking about. External hardware can be controlled from your application using TIdHttp component. The second example was to use TVaComm component from TMSSoftware to switch on and off a lamp, blinking LEDs and then working with video camera to capture images into your Delphi app. The most spectacular part of the demo was to use Delphi app to control via radio a race car model. That was followed by replacing keyboard with Nintendo Wii remote ("wiimote") control with GlovePIE to steer the car from Delphi app. How cool is that?

Delphi app to control race car model via radio

Race car model on the conference room floor

Luca Giacalone uses Wiimote to steer the car with Delphi application

Share This | Email this page to a friend

The following compile and pass boost’s regression suite 100% and are included in C++Builder 2010’s Updates:

algorithm/minmax
algorithm/string
any
array
circular_buffer
crc
disjoint_sets
format
functional
logic
pool
property_map
signals
static_assert
system
tokenizer
tuple
utility/swap

The following are included in C++Builder but do not pass 100%:

[1] runtime failures in filesystem are due to problems with wide character support differences.
[2] You should probably be using our intrinsic type-traits instead

The following are *not* included in C++Builder 2010

accumulators
bimap
flyweight
foreach
fusion
graph
interprocess
intrusive
lambda
multi_array
multi_index
numeric/ublas
program_options
proto
ptr_container
python
random [3]
rational
scope_exit
signals2
statechart
units
wave
xpressive

[3] We include the dinkumware random libraries, which should provide you with the same routines.

Stay tuned to code central for an updated version of the full sources which can be used to build unsupported libraries.

Share This | Email this page to a friend