Categories: Infrared | Connectivity | Code Examples

From Forum Nokia Wiki

Introduction

The purpose of this code is to demonstrate how to use the IR port and therefore the format of code is not as good as commercial code.

Description of Infrared Port

The Infrared port in Symbian S60. The port is used by selecting the port

_LIT(KIrDAPort, "IRCOMM::00");

This is used in the example below. To create the template in Carbide C++ 1.1 Express and S60 Platform SDK 3rd Edition FP1 and new "S60 Symbian OS C++ Project", call this project "FindPorts". Select "S60 3.x GUI Application", this will create the new project.

The additional include is FindPortsAppUi.cpp

#include <c32comm.h>

in FindPorts.mmp add the following libary to the section

LIBRARY           c32.lib // Added for Serial port support

Modified code

Int errDev;
TInt errCom;
RCommServ IRcommServer; //serial comms
RComm IRcommPort; // comm port


// Define the logical device driver name

// Device driver names
_LIT(KLddName, "ECOMM");

//Physical driver names
_LIT(KPddName, "EUART1");

// Communication modules
_LIT(KRS232, "ECUART");
_LIT(KIrDA, "IRCOMM");
_LIT(KCommPort, "COMM::0");

_LIT(KIrDAPort, "IRCOMM::00");

//Load Physical Device driver
errDev = User::LoadPhysicalDevice(KPddName);
if ((errDev != KErrNone) && (errDev != KErrAlreadyExists)) User::Leave (errDev);

//Load Logical Device driver
errDev = User::LoadLogicalDevice(KLddName);
if ((errDev != KErrNone) && (errDev != KErrAlreadyExists)) User::Leave (errDev);

// starting communication server does not need checking as this will not  error if already running
StartC32();
//connect to the comm server
User::LeaveIfError(IRcommServer.Connect());

errCom = IRcommServer.LoadCommModule(KIrDA);
//Load the CSY module

User::LeaveIfError(IRcommServer.LoadCommModule(KIrDAPort));

TSerialInfo portInfo;

User::LeaveIfError(IRcommServer.GetPortInfo(KIrDAPort,portInfo));

_LIT(KColons,"::");
TBuf<KMaxPortName + 4> portName;
portName.Append(portInfo.iName);

TInt errCom = IRcommPort.Open(IRcommServer, KCommPort, ECommExclusive);
if ((errCom != KErrNone) )
{
 IRcommServer.Close();
 User::Leave(errCom);
}

The full modified file FindPortsAppUi.cpp

/*
============================================================================
Name        : FindPortsAppUi.cpp
Author      : 
Copyright   : Your copyright notice
Description : CFindPortsAppUi implementation
============================================================================
*/

// INCLUDE FILES
#include <avkon.hrh>
#include <aknnotewrappers.h>
#include <stringloader.h>
#include <FindPorts.rsg>
#include <f32file.h>
#include <s32file.h>

#include <c32comm.h>

#include "FindPorts.pan"
#include "FindPortsAppUi.h"
#include "FindPortsAppView.h"
#include "FindPorts.hrh"

_LIT( KFileName, "C:\\private\\EC4B9E96\\FindPorts.txt" );
_LIT( KText, "Hello World finding port");

// ============================ MEMBER FUNCTIONS     ===============================


// -----------------------------------------------------------------------------
// CFindPortsAppUi::ConstructL()
// Symbian 2nd phase constructor can leave.
// -----------------------------------------------------------------------------
//
void CFindPortsAppUi::ConstructL()
   {
   // Initialise app UI with standard value.
   BaseConstructL();

	// Create view object
	iAppView = CFindPortsAppView::NewL( ClientRect() );

	// Create a file to write the text to
	RFs fsSession;
	User::LeaveIfError(fsSession.Connect());
	CleanupClosePushL( fsSession );

	TInt err = fsSession.MkDirAll(KFileName);
	if ( (KErrNone != err) && (KErrAlreadyExists != err) )
		{
		CleanupStack::PopAndDestroy(1); //  fsSession
		return;
		}
	
	RFile file;
	err = file.Replace(fsSession, KFileName, EFileWrite );
	CleanupClosePushL( file );
	if ( KErrNone != err )
		{
		CleanupStack::PopAndDestroy(2); // file, fsSession
		return;
		}
	
	RFileWriteStream outputFileStream( file );
	CleanupClosePushL( outputFileStream );
	outputFileStream << KText;

	CleanupStack::PopAndDestroy(3); // outputFileStream, file, fsSession

	}
// -----------------------------------------------------------------------------
// CFindPortsAppUi::CFindPortsAppUi()
// C++ default constructor can NOT contain any code, that might leave.
// -----------------------------------------------------------------------------
//
CFindPortsAppUi::CFindPortsAppUi()
   {
   // No implementation required
   }

// -----------------------------------------------------------------------------
// CFindPortsAppUi::~CFindPortsAppUi()
// Destructor.
// -----------------------------------------------------------------------------
//
CFindPortsAppUi::~CFindPortsAppUi()
   {
   if ( iAppView )
       {
       delete iAppView;
       iAppView = NULL;
       }

   }

// -----------------------------------------------------------------------------
// CFindPortsAppUi::HandleCommandL()
// Takes care of command handling.
// -----------------------------------------------------------------------------
//


void CFindPortsAppUi::HandleCommandL( TInt aCommand )
   {
   switch( aCommand )
       {
       case EEikCmdExit:
       case EAknSoftkeyExit:
           Exit();
           break;

       case ECommand1:
           {
 


Int errDev;
TInt errCom;
RCommServ IRcommServer; //serial comms
RComm IRcommPort; // comm port


// Define the logical device driver name

// Device driver names
_LIT(KLddName, "ECOMM");

//Physical driver names
_LIT(KPddName, "EUART1");

// Communication modules
_LIT(KRS232, "ECUART");
_LIT(KIrDA, "IRCOMM");
_LIT(KCommPort, "COMM::0");

_LIT(KIrDAPort, "IRCOMM::00");

//Load Physical Device driver
errDev = User::LoadPhysicalDevice(KPddName);
if ((errDev != KErrNone) && (errDev != KErrAlreadyExists)) User::Leave (errDev);

//Load Logical Device driver
errDev = User::LoadLogicalDevice(KLddName);
if ((errDev != KErrNone) && (errDev != KErrAlreadyExists)) User::Leave (errDev);

// starting communication server does not need checking as this will not  error if already running
StartC32();
//connect to the comm server
User::LeaveIfError(IRcommServer.Connect());

errCom = IRcommServer.LoadCommModule(KIrDA);
//Load the CSY module

User::LeaveIfError(IRcommServer.LoadCommModule(KIrDAPort));

TSerialInfo portInfo;

User::LeaveIfError(IRcommServer.GetPortInfo(KIrDAPort,portInfo));

_LIT(KColons,"::");
TBuf<KMaxPortName + 4> portName;
portName.Append(portInfo.iName);

TInt errCom = IRcommPort.Open(IRcommServer, KCommPort, ECommExclusive);
if ((errCom != KErrNone) )
{
 IRcommServer.Close();
 User::Leave(errCom);
}
 //---- End of code -----------------------------------------------------          
           // Load a string from the resource file and display it
           HBufC* textResource = StringLoader::LoadLC( R_COMMAND1_TEXT );
           CAknInformationNote* informationNote;

           informationNote = new ( ELeave ) CAknInformationNote;

           // Show the information Note with
           // textResource loaded with StringLoader.
           informationNote->ExecuteLD( *textResource);

           // Pop HBuf from CleanUpStack and Destroy it.
           CleanupStack::PopAndDestroy( textResource );
           }
           break;
		case ECommand2:
			{
			
			RFs fsSession;
			RFile rFile;
			
			// Connects a client process to the fileserver
			User::LeaveIfError(fsSession.Connect());
			CleanupClosePushL(fsSession);
			
			//Open file where the stream text is
			User::LeaveIfError(rFile.Open(fsSession,KFileName, EFileStreamText));//EFileShareReadersOnly));// EFileStreamText));
			CleanupClosePushL(rFile);
			
			// copy stream from file to RFileStream object
			RFileReadStream inputFileStream(rFile);
    		CleanupClosePushL(inputFileStream);
   		
   		// HBufC descriptor is created from the RFileStream object.
   		HBufC* fileData = HBufC::NewLC(inputFileStream, 32);

           CAknInformationNote* informationNote;

           informationNote = new ( ELeave ) CAknInformationNote;
           // Show the information Note
           informationNote->ExecuteLD( *fileData);			
			
			// Pop loaded resources from the cleanup stack
			CleanupStack::PopAndDestroy(4); // filedata, inputFileStream, rFile, fsSession
			fsSession.Close();
			}
			break;
       default:
           Panic( EFindPortsUi );
           break;
       }
   }