mORMot Open Source

Look into uses SynCommons.pas

WinCE is not windows and not unix It is problem !

{$ifdef MSWINDOWS} 
...  
{$else MSWINDOWS}  

    {$ifdef FPC}
      BaseUnix,
    {$endif}  
{$endif MSWINDOWS}  

In my opinion WinCE at this moment is unsupported, but you have to fight !

Remove BaseUnix and see what happens.

I do not want to create a new topic.

On my platform Debian 64bit , I always after download mORMot source I need add {$PIC OFF} in unit SynCrypto.
http://www.freepascal.org/docs-html/prog/progsu112.html

Problem is with function sha256_sse4

        movdqu  xmm12,[PSHUFFLE_BYTE_FLIP_MASK] // SynCrypto.pas(3258,47) Error: Generating PIC, but reference is not PIC-safe
        movdqu  xmm10,[_SHUF_00BA] // SynCrypto.pas(3259,34) Error: Generating PIC, but reference is not PIC-safe
        movdqu  xmm11,[_SHUF_DC00] //SynCrypto.pas(3260,34) Error: Generating PIC, but reference is not PIC-safe
@loop0: mov     rbp,[K256Aligned] // SynCrypto.pas(3261,33) Error: Generating PIC, but reference is not PIC-safe

What is the best solution?
Compile whole project with "$PIC OFF" 
Compile whole SynCrypto.pas with "$PIC OFF" 
or compile only this 4 lines compile with "$PIC OFF"

Next small step
Last to weeks I was on holiday . Now I begin to test x64 linux

Next step:

Problem in "function THttpSocket.HeaderGetText: SockString;"

Is problem "fast length" on different platform

This error is similar to
http://synopse.info/forum/viewtopic.php?pid=16504

And similar is fix

function THttpSocket.HeaderGetText: SockString;
var i,L,n: integer;
    V: PtrInt;
    P: PAnsiChar;
begin
  // much faster than for i := 0 to Count-1 do result := result+Headers[i]+#13#10;
  result := '';
  n := length(Headers);
  if n=0 then
    exit;
  L := n*2; // #13#10 size
  dec(n);
  for i := 0 to n do
    if pointer(Headers[i])<>nil then
     {$ifdef FPC}
      inc(L,PInteger(PAnsiChar(pointer(Headers[i]))-sizeof(pointer))^); // fast add length(List[i])
     {$else} 
      inc(L,PInteger(PAnsiChar(pointer(Headers[i]))-4)^); // fast add length(List[i])
     {$endif}
    
  SetLength(result,L);
  P := pointer(result);
  for i := 0 to n do begin
    V := PtrInt(PAnsiChar(Headers[i]));
    if V<>0 then begin
      {$ifdef FPC}
      L := PInteger(V-sizeof(pointer))^;  // L := length(List[i])
      {$else}
      L := PInteger(V-4)^;  // L := length(List[i])
      {$eif}
      move(pointer(V)^,P^,L);
      inc(P,L);
    end;
    PWord(P)^ := 13+10 shl 8;
    inc(P,2);
  end;
end;   

Or use this metod
{$ifdef FPC}PStrRec(Pointer(PtrUInt(U)-STRRECSIZE))^.length ....

This remove error "'Error adding the data'" and all works OK

small mistake in your code

your read vInteger but value is in "vInt64^" field !!!

I have mistake too

Correct version:

    vtInt64:    begin
      Str(VInt64^,tmp);
      SockSend(@tmp[1],length(tmp));
    end;  

After this fix I see "04 - HTTP Client-Server" works almost correct.
linux server add data and return correct results to client(s).
Is only small bug in linux client after "Add the message" client show message "'Error adding the data'" but in database is new record
Windows client don't have this bug !

Thx very much !

Next step!
Now i test linux 64bit serwer by client from windows.

Problem is with function "WinHttpSendRequest" after call (function return FALSE) we have exception "Exception class EWinHTTP with message 'winhttp.dll error 12152 (invalid server response)'"

I look into wireshark and comapre windows<->windows and windows<-> linux connection
windows serwer <->windows client ALL WORKS OK !

GET /root/TimeStamp HTTP/1.1
Cache-Control: no-cache
Connection: Keep-Alive
Pragma: no-cache
Content-Type: application/json; charset=UTF-8
Accept: */*
Accept-Encoding: synlz
User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows; Synopse mORMot 1.18.1735 TWinHTTP)
Host: 192.168.10.8:8080

HTTP/1.1 200 OK
Content-Type: text/plain; charset=UTF-8
Server: mORMot/1.18.1735 (Windows) Microsoft-HTTPAPI/1.0
X-Powered-By: Synopse mORMot 1.18.1735 http://synopse.info
Server-InternalState: 17
Date: Wed, 05 Aug 2015 07:41:41 GMT
Content-Length: 12

135254276713

linux 64bit serwer and windows client

GET /root/TimeStamp HTTP/1.1
Cache-Control: no-cache
Connection: Keep-Alive
Pragma: no-cache
Content-Type: application/json; charset=UTF-8
Accept: */*
Accept-Encoding: synlz
User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows; Synopse mORMot 1.18.1735 TWinHTTP)
Host: 192.168.10.7:8080

HTTP/1.1 200 OK
Server-InternalState: 1
X-Powered-By: Synopse mORMot 1.18.1735 http://synopse.info
Server: mORMot/1.18.1735 (Linux)
Content-Length: 
Content-Type: text/plain; charset=UTF-8
Accept-Encoding: synlz,gzip
Connection: Keep-Alive

135254276817

the server responds correctly,
I need to think

Please look into DPR file
Sample 02:
https://github.com/synopse/mORMot/blob/ … ject02.dpr
line: 50
Form1.Database := TSQLRestServerDB.Create(Form1.Model,

About "where is the code/logic  that connects the client to the server?"
Server side:
  Server := TSQLRestServerDB.Create(Model,ChangeFileExt(ExeVersion.ProgramFileName,'.db3'));
  Server.CreateMissingTables;
  Server.ExportServerNamedPipe('03');
Client side:
  Form1.Database := TSQLRestClientURINamedPipe.Create(Form1.Model,'03');

I was able compile "TestSql3" ("Synopse mORMot Framework Automated tests") in 64bit fpc.

a lot of red and a long way yet

Thx very much ,

I always use svn but try git ,
I improvise

I find two bugs (very small)
https://github.com/mariuszekpl/mORMot/c … a20282853c

Parametr fIds  is wrong type , please change
fIds: TIntegerDynArray;
to
fIds: TIDDynArray;

I have similar

"TSynTable: 100/458 FAILED 8.78ms"

For example
20150612 00312207 fail  TTestLowLevelCommon(00303548) Low level common: TSynTable "" stack trace API 0046C050 004720FC 00470645 00523DD1 00471419 00563959
20150612 00312207 fail  #57  stack trace API 0046C432 00470630 00523DD1 00471419 00563959

My Windows  (64bit 8.1) code page is 1250

I use lazarus i386  build over fpcup

------------------------------------------------------------------------
PATH=c:\windows\system32;c:\windows;C:\Program Files\TortoiseSVN\bin
set

fpcup ^
    --noconfirm --verbose ^
    --fpcURL=trunk --lazURL=trunk ^
    --fpcopt="-g -gl -O1" --lazopt="-g -gl -O1" ^
    --installdir=d:\fpc32  --lazlinkname=LAZ_32  ^
    --lazrevision=49313  ^
    --fpcrevision=31024  ^
    --logfilename=fpc32.log
------------------------------------------------------------------------

First fail is in SynSelfTest.pas

// test TSynTableVariantType
      rec := T.Data;  // << HERE

In function TSynTable.Data in line "VValue := DefaultRecordData" is exception   
------------------------------------------------------------------------

In Delphi XE5 all is correct !!!