mORMot Open Source

corchi72

Member

Registered: 2010-12-10

Posts: 232

the function CallBackGetResult, does not work anymore!

i use the function TSQLRestClientURI.CallBackGetResult but it does not work anymore, i suppose because i don't use session access. now i don't want to migrate all code to session access, what can i do?

client

...
    try
    ServerTempDir        := UTF8ToString(HttpClient.CallBackGetResult('PropValue',['propname',_lbServerTempDir]));
    if length(ServerTempDir)>0 then
    begin
       if not (RightStr(ServerTempDir,1)='\') then
         ServerTempDir := format('%s\',[ServerTempDir]);
    end;
    except

    end;
...

server

var
   ServerTempDir :String; 
...
  ServerTempDir := GetTempDir;
  writeln(format('Server Temp directory is %s',[ServerTempDir]));

  Server := TFileServer.Create(ServerName,inttostr(ServerHttpPort),SQLiteFilename);
  write('Press [Enter] to close the server.');
...

thanks

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,660

Website

Re: the function CallBackGetResult, does not work anymore!

What is the implementation on the server side?

Note that if you downloaded the latest version from the source code repository, there was a breaking change in the Server side implementation.
See http://synopse.info/forum/viewtopic.php?id=520
and http://blog.synopse.info/post/2011/11/2 … -prototype

You'll need to add a aSession: cardinal parameter to your method implementation on the server side.

I've just added the blog article to make this modification more "official".