mORMot Open Source

\html5\app\store\contancts.js
...
actionMethods : {
							create : 'POST',
							read : 'GET',
							update : 'PUT',
							destroy : 'DELETE'
						},
						api : {
							create : 'http://localhost:8080/root/SampleRecord',
							read : 'http://localhost:8080/root/SampleRecord/?SELECT=*',
							update : 'http://localhost:8080/root/SampleRecord/',
							destroy : 'http://localhost:8080/root/SampleRecord/'
						},

...

  ...
  VQuery:TQuery;
begin   
   VQuery:=TQuery.create(con);
   with VQuery do  
   begin   
      SQL.Clear;
      SQL.Add('select * from table');
      Open;
      Result:=PreparedSQLDBStatement.FetchAllAsJSON(aExpanded);
  end;
  ...

  function TSQLDBStatement.FetchAllToJSON(JSON: TStream; Expanded: boolean;
  DoNotFletchBlobs: Boolean=false): PtrInt;
   ...  
            <-----------------  CurrentRow=1 ?
  // write rows data  
  while Step do begin
      ColumnsToJSON(W,DoNotFletchBlobs);
      W.Add(',');
      inc(result);
    end;
   ...

    
 // write rows data
    //////////////////////////  畅雨 add begin 2014.05.26
    if CurrentRow=1 then
     begin
      ColumnsToJSON(W,DoNotFletchBlobs);
      W.Add(',');
      inc(result);
     end; 
    /////////////////////////// 畅雨 and end  2014.05.26
    while Step do begin
      ColumnsToJSON(W,DoNotFletchBlobs);
      W.Add(',');
      inc(result);
    end;

 Q := TQuery.Create(aSQLDBConnection);
 try
      Q.SQL.Clear; // optional
      Q.SQL.Add('select * from TABLE');
      Q.SQL.Add('  WHERE ID_DETAIL=:detail;');
      Q.ParamByName('detail').AsString := '123420020100000430015';
      Q.Open;
      Q.First;    // optional
      while not Q.Eof do begin
          assert(Q.FieldByName('id_detail').AsString='123420020100000430015');
         Q.Next;
       end;
       Q.Close;   
   finally
       Q.Free;
 end;

 i := fParam.FindHashed(tmp);
    if i<0 then
      raise ESQLQueryException.CreateFmt('Parameter "%s" not bound for "%s"',[tmp,req]);

synDBDataset.pas   line  584

Replace
 ...
 if ColumnValueDBType=IsTLargeIntField then
          WR.Add(TLargeintField(ColumnAttr).AsLargeInt) else
           WR.Add(TField(ColumnAttr).AsInteger); ----this error
...
as 
...
 if ColumnValueDBType=IsTLargeIntField then
          WR.Add(TLargeintField(ColumnAttr).AsLargeInt) else
          begin 
             if TField(ColumnAttr).DataType =ftBoolean then
              WR.Add(ord(TField(ColumnAttr).AsBoolean))   -------ok!
            else
              WR.Add(TField(ColumnAttr).AsInteger);
          end;
...