And the parameters for creating such a server is different from TSQLRestServerFullMemory, we just need to tell the server where the database file is:TECHOServer = class (TSQLRestServerDB)publishedprocedure Echo(Ctxt: TSQLRestServerURIContext);end;
We can then ask the server to create the schema for us:aServer := TECHOServer.Create(aModel,ChangeFileExt(ExeVersion.ProgramFileName,'.db3'));
TSQLRestServerDB(aServer).CreateMissingTables;That is it! (of cause, you need to add use units as we have changed the class)
And the implementation of Echo is quite simple, assigning the input to output and returning HTTP 200 to client:TECHOServer = class (TSQLRestServerFullMemory)publishedprocedure Echo(Ctxt: TSQLRestServerURIContext);end;
Then we need to start the RESTful server, as mORMot ties data model, data server and HTTP server together, thus we need to initialize a model and a server before we start a HTTP server:procedure TECHOServer.Echo(Ctxt: TSQLRestServerURIContext);beginCtxt.Call.Outbody := Ctxt.Call.InBody;Ctxt.Call.OutStatus :=200;end;
aModel := TSQLModel.Create([],'service');tryaServer := TECHOServer.Create(aModel);tryaHTTPServer := TSQLHttpServer.Create('7878',aServer,'+',useHttpApiRegisteringURI);write('Press [Enter] to close the server.');tryreadln;finallyFreeAndNil(aHTTPServer);end;finallyFreeAndNil(aServer);end;finallyFreeAndNil(aModel);end;
program Echo;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
mORMot,
mORMotHttpServer;
type
TECHOServer = class (TSQLRestServerFullMemory)
published
procedure Echo(Ctxt: TSQLRestServerURIContext);
end;
procedure TECHOServer.Echo(Ctxt: TSQLRestServerURIContext);
begin
Ctxt.Call.Outbody := Ctxt.Call.InBody;
Ctxt.Call.OutStatus :=200;
end;
var
aModel: TSQLModel;
aServer : TECHOServer;
aHTTPServer: TSQLHttpServer;
begin
aModel := TSQLModel.Create([],'service');
try
aServer := TECHOServer.Create(aModel);
try
aHTTPServer := TSQLHttpServer.Create('7878',aServer,'+',useHttpApiRegisteringURI);
write('Press [Enter] to close the server.');
try
readln;
finally
FreeAndNil(aHTTPServer);
end;
finally
FreeAndNil(aServer);
end;
finally
FreeAndNil(aModel);
end;
end.Compile and run it:
NHapi is a port of the original project HAPI.
NHapi allows Microsoft .NET developers to easily use an HL7 2.x object model. This object model allows for parsing and encoding HL7 2.x data to/from Pipe Delimited or XML formats. A very handy program for use in the health care industry.
With 7 years experience of developing HL7 related applications (HL7 messaging and integration), I have found that in reality, people do not always conformant with HL7’s specification, thus there are always something more or less in the actual HL7 message than what the specification says. This makes the static object model sometime not able to represent the HL7 it is processing, to solve this problem, Terser is introduced to read values from the HL7 regardless the static structure of a particular version of HL7. Terser uses path to locate a particular value. The path consists of segment, field and component, sub component. Unfortunately, the segment consists of group and the name of segment, but group are vary from version to version of HL7, for example, a PRD of REF^I12 in version 2.3.1 is under group PROVIDER, but it is not in any group in version 2.4. Another problem is that I have not been able to find a document in which tells you what groups are in a type of message for each version of HL7, this then leaves you only way to figure out is by guessing. After I have gain more experience of NHAPI, I now can use following code to print out a whole path picture of a specified message:
static void PrintNames(string ident,IStructure s)
{
Console.Write(ident);
Console.Write(s.GetStructureName());
if (! (s is IGroup))
{
Console.WriteLine("");
return;
}
Console.WriteLine("(Group)");IGroup g = (IGroup)s;
foreach (var sn in (g.Names))
{
IStructure ss = g.GetStructure(sn);
if (ss is IGroup)
{
PrintNames(ident + " ", ss);
}
else
{
Console.Write(ident + " ");
Console.WriteLine(sn);}
//Console.WriteLine("");
}
}
Call it with
REF_I12 r= new REF_I12;
PrintNames(“”,r)
we can get the path tree:
REF_I12(Group)
MSH
RF1
AUTHORIZATION_CONTACT(Group)
AUT
CTD
PROVIDER(Group)
PRD
CTD
PID
NK1
GT1
INSURANCE(Group)
IN1
IN2
IN3
ACC
DG1
DRG
AL1
PROCEDURE(Group)
PR1
AUTHORIZATION_CONTACT(Group)
AUT
CTD
OBSERVATION(Group)
OBR
NTE
RESULTS_NOTES(Group)
OBX
NTE
PATIENT_VISIT(Group)
PV1
PV2
NTE
[extensions]
hgsubversion = ~/hgsubversion/hgsubversion
Referrence:
http://blogs.atlassian.com/2011/03/goodbye_subversion_hello_mercurial/
I was new to Bamboo on Demand and I added an Artifact Download Task into the default job trying to download an artifact built from another plan.
It looked nothing could be wrong as all the information were filled by choosing the value from the drop down boxes except that destination path.
But the truth was that the job failed due to failed to download the artifact. I checked the artifact, it was there, I checked the destination path,
no typo, same path used for its own artifacts which were built before I added the download task.
Comparing to other plans on the same Bamboo on Demand server, I found that the plan whose artifact was referenced to be download had
a small different setting from other plans. The difference was that the plan had not specified a folder for checking out the source code, i.e.,
in the Source Code Check out task, Checkout Directory is blank. By put in an folder name to this box and use the same folder as the start
folder in the Location box for Artifact setting, the problem solved!
Recently, I have seen following code appeared again and again in one of application written in Delphi:
begin
…
Screen.Cursor := crHourGlass;
try
…except
Screen.Cursor := crDefault;
…
end; {try}
Screen.Cursor := crDefault;
end;
This code works in most of the time, but it does have one issue, it makes an assumption that the cursor was crDefault thus it change the cursor back to default before the end. What if the cursor is not default before entering this code block? We can improve the code as following thus it will restore the cursor to what it is before this code block:
begin
…
LSavedCursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
…except
Screen.Cursor := LSavedCursor;
…
end; {try}
Screen.Cursor := LSavedCursor;
end;
Or more proper way (in my opinion) is to use a try … finally block to protect the code block and it will guarantee the cursor will be restored:
begin
…
LSavedCursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
try
… //doing busy business code insert hereexcept
…
end; {try}finally
Screen.Cursor := LSavedCursor;end;
end;
Can it be improved further? The answer is YES and NO. If you are still using Delphi earlier than Delphi 2009, then the answer is NO, because we are going to use Anonymous Method which was introduced by Delphi 2009 and later version of Delphi.
With above code, you actually need to define the local variable LSaveCursor in each method in which it has above code, so it is a bit trivial, and you cannot refactoring above code to a method because the actually doing busy business code is vary from method to method, refactoring each doing busy business code to a method and then pass the method’s point will be a over kill approach. But with anonymous method, we don’t need to refactoring doing busy business code to a method, instead, we can pass the code as an anonymous method.
First we need to create a procedure to take care the logic for changing the cursor to hour glass and restore it when it completes. Below is the procedure:
procedure BusyDoing (AProc:TProc);
var
LSavedCursor : TCursor;
begin
LSavedCursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
AProc;
finally
Screen.Cursor := LSavedCursor;
end;
end;
This procedure has one parameter AProc which is a pre-defined anonymous method which is defined in unit System.SysUtils as
TProc = reference to procedure;
To use this procedure, all we need to do is enclose the doing busy business code as an anonymous method like this:
BusyDoing(
procedure
begin
… //doing busy business code insert hereend
);
That is it, very neat, isn’t it?
I am following Your first NHibernate based application to start my NHibernate journey.
In the article, it uses NUnit for test, but I have to use MSTest as I am using VS Express 2013 in which NUnit GUI cannot be installed.
I have set “show_sql” to true in the hibernate.cfg.xml when first time test Add method of product repository and there was not
SQL statement outputted. Until I was running “session.Get<Product>” then there was SELECT statement appearing in the output of the
test. According to the article, there suppose to be INSERT statement appearing in the output as well when adding new product to the
database. What is wrong?
If API Examples is installed, the examples can be run from Support –> API examples.
Many of the examples have been hard coded with culture “en-us”, they will be most likely failed if the site is using a culture different from “en-us”.
The example code is like below, it fails on the red line:
#region "API examples - Creating documents"
/// <summary>
/// Creates the initial document strucutre used for the example. Called when the "Create document structure" button is pressed.
/// </summary>
private bool CreateDocumentStructure()
{
// Add a new culture to the current site
CultureInfo culture = CultureInfoProvider.GetCultureInfo("de-de");
CultureSiteInfoProvider.AddCultureToSite(culture.CultureID, CMSContext.CurrentSiteID);// Create new instance of the Tree provider
TreeProvider tree = new TreeProvider(CMSContext.CurrentUser);// Get parent node
TreeNode parentNode = tree.SelectSingleNode(CMSContext.CurrentSiteName, "/", "en-us");if (parentNode != null)
{
// Create the API Example folder
TreeNode newNode = TreeNode.New("CMS.Folder", tree);newNode.DocumentName = "API Example";
newNode.DocumentCulture = "en-us";newNode.Insert(parentNode);
parentNode = newNode;
// Create the Source folder - the document to be moved will be stored here
newNode = TreeNode.New("CMS.Folder", tree);newNode.DocumentName = "Source";
newNode.DocumentCulture = "en-us";newNode.Insert(parentNode);
// Create the Target folder - a document will be moved here
newNode = TreeNode.New("CMS.Folder", tree);newNode.DocumentName = "Target";
newNode.DocumentCulture = "en-us";newNode.Insert(parentNode);
return true;
}return false;
}
You can modify the culture to your site’s culture and the example should be able to run on your site.
Recently I upgraded one web site written in Kentico CMS v6 to v7 and would like to share my experience.
The idea behind this is to record all changes to the branch during the upgrading. Depends on the complexity of the web site,
the changes you will make to the source code might take few days/weeks, so that I do not recommend that upgrade the
production directly, instead, you should make a copy to your development machine and upgrade this copy first. All the changes
made to the local instance will be committed into the new created branch. When the upgrade is done and has been test,
production then can be upgraded. The upgrade to the production will be as simple as following steps:
The database upgrade script might contains changes to the views. But I have found that in Micorsoft SQL 2008 R2, after execution
of the upgrade script, the views might not be synchronized properly. In my case the error was some data conversion failures.
The root cause seemed to be the changes on base views had not propagated properly to other views which were base on the base
views.
If you need to perform the upgrade manually, it requires to delete a lot files and folders before updating files to new version’s.
The instruction has listed the files and folders, but it is very fussy if you go through the list and delete file/folder one by one.
A easier way is to copy the content of the list to a text file, then add “del “ to the beginning of the full name of the file and add
”del /s/q “ to the beginning of the full name of the path, save the text file as a .BAT file, this batch file can delete files and folders
in one go and save you a lot of time.
There is an undocumented change you need to take care if your page uses CMSForm for editing a document in the same way as
the Form tab in the CMS Desk content page, you need to assign DocumentManager.LocalMessagesPlaceHolder to the the CMSForm
element’s MessagesPlaceHolderto property, otherwise, there will be an exception when the form is submitted.
MX record about global-health.com exists.
Connection succeeded to mx.global-health.com SMTP.
220 mailhub.ws.com.au ESMTP
> HELO verify-email.org
250 mailhub.ws.com.au
> MAIL FROM: <check@verify-email.org>
=250 ok
> RCPT TO: <bochen.lin@global-health.com>
=250 ok
June 11, 2013 -- 04:18 GMT (14:18 AEST)
<configuration>
<system.web.webPages.razor>
<host factoryType="System.Web.Mvc.MvcWebRazorHostFactory, System.Web.Mvc, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
<pages pageBaseType="Orchard.Mvc.ViewEngines.Razor.WebViewPage">
<namespaces>
<add namespace="System.Web.Mvc" />
<add namespace="System.Web.Mvc.Ajax" />
<add namespace="System.Web.Mvc.Html" />
<add namespace="System.Web.Routing" />
<add namespace="System.Linq"/>
<add namespace="System.Collections.Generic"/>
<add namespace="Orchard.Mvc.Html"/>
</namespaces>
</pages>
</system.web.webPages.razor>
</configuration>
