Ol�,Algu�m tem conhecimento sobre desenvolvimento com o mORMot Framework ([url]//synopse.info/fossil/wiki/Synopse+OpenSource[/url])?...

Muito bom !!!testei bastante o DataSnap, e achei o Mormot Melhor na performace, uso da memoria e simplicidade na comunicacao com o ExtJs.com o DataSnap tive que usar os recursos do //enable-cors.org/ no Mormot cumunicou puro.tudo que tenho feito funciona sempre de primeira, acho que vale mais a pena o MorMot.Abra�os...

Bom dia AparecidoN�o sei se a estrutura que envio como exemplo � a mesma da que est� trabalhando, se n�o se importar vou deixar uns pontos para revisar, conforme os teste que fiz:Os TFDQuery est�o acumulando na memoria;Sugiro criar um FDConection por conex�o, caso contr�rio ir� ter problema com m�ltiplos acesso, tive esse problema, use o FDManager para gerenciar //docwiki.embarcadero.com/RADStudio/XE6/en/Multithreading_(FireDAC)Estou usando o JMeter para testar a carga, se fizer o teste na sua aplica��o, vai consegui observar o que estou explicando.Aproveitando, sabe como tirar o result:[], e s� aparecer o json que gerou? No datasnap, precisei mudar a forma de retorno.Abra�os,Paulo...

F�rum Conhecimento mORMot Framework #432316

11/01/2013

Delphi

Ol�,

Algu�m tem conhecimento sobre desenvolvimento com o mORMot Framework ([url]http://synopse.info/fossil/wiki/Synopse+OpenSource[/url])?

Victor Bianchi

Curtir t�pico

+ 0

Responder

Post mais votado

30/06/2015

olha s� quem me deu uma ajuda muito valida foi o Ednei,
constru� o meu modelo usando o sequinte exemplo
e at� agora tem funcionado bem
http://synopse.info/forum/viewtopic.php?pid=12973#p12973
http://synopse.info/forum/viewtopic.php?pid=12621#p12621
implementei esses exemplos, e a partir dele fui criando os meu m�todos,
uso como front-end o extjs

abra�os

cido

Aparecido Silva

Responder

Gostei + 2

Mais Posts

28/07/2015

Aparecido Silva

Muito bom !!!

testei bastante o DataSnap, e achei o Mormot Melhor na performace, uso da memoria e
simplicidade na comunicacao com o ExtJs.
com o DataSnap tive que usar os recursos do http://enable-cors.org/ no Mormot cumunicou puro.
tudo que tenho feito funciona sempre de primeira, acho que vale mais a pena o MorMot.

Abra�os

Responder

Gostei + 0

29/07/2015

Paulo Monteiro

Bom dia Aparecido

N�o sei se a estrutura que envio como exemplo � a mesma da que est� trabalhando, se n�o se importar vou deixar uns pontos para revisar, conforme os teste que fiz:
Os TFDQuery est�o acumulando na memoria;
Sugiro criar um FDConection por conex�o, caso contr�rio ir� ter problema com m�ltiplos acesso, tive esse problema, use o FDManager para gerenciar http://docwiki.embarcadero.com/RADStudio/XE6/en/Multithreading_(FireDAC)
Estou usando o JMeter para testar a carga, se fizer o teste na sua aplica��o, vai consegui observar o que estou explicando.

Aproveitando, sabe como tirar o result:[], e s� aparecer o json que gerou? No datasnap, precisei mudar a forma de retorno.

Abra�os,
Paulo

Responder

Gostei + 0

30/07/2015

Aparecido Silva

eu nao fiz nenhum monitoramente at� agora, mas vou verificar
sobre tirar o result fiz da sequinte forma
Texto := StrSubst(json,'{"result":[','',999);
Texto := StrSubst(Texto,'}]}','}',999);
contatei at� o forum do mormot mas nao me deram solucao

http://synopse.info/forum/viewtopic.php?id=2400

// StrSubst
//******************************************************************//
function StrSubst(const S, Del, Ins: string; Count: Integer): string;
//*******//**********************************************************//
var
I, Found: Integer;
R: string;
begin
R := S;
if (S = '') or (Del = '') or (Del = Ins) then
R := ''
else
begin
Found := 0;
I := 1;
while ((Count = 0) or (Found < Count)) and (I <= Length(R)) do
begin
if Copy(R, I, Length(Del)) = Del then
begin
Inc(Found);
Delete(R, I, Length(Del));
Insert(Ins, R, I);
Inc(I, Length(Ins));
end
else
Inc(I);
end;
end;
Result := R;
end;

Responder

Gostei + 0

30/07/2015

Aparecido Silva

Boa noite Paulo

tem como voce me mostrar como fez o FDConection por conex�o ?
tentei fazer aqui e ele nao traz mais dados
retorna uma query vazia.

abra�os

Responder

Gostei + 0

31/07/2015

Paulo Monteiro

Bom dia Aparecido.

Como n�o conhe�o o mormot, n�o sei como ele trata essa parte, vi no blog deles que parece que tem um classe do mormot para usar com firedac.
No datasnap fiz da seguinte forma:
Criei um data module, com o FDManger, no create, carrego as configura��es de conex�o.


procedure TDMConexao.FormCreate(Sender: TObject);
var
  oParams: TStrings;
begin
  oParams := TStringList.Create;
  oParams.Add('Database=localhost:C:\FireBird\EMPLOYEE.FDB');
  oParams.Add('User_Name=SYSDBA');
  oParams.Add('Password=masterkey');
  oParams.Add('Pooled=True');
  FDManager.AddConnectionDef('Fenix_Pooled', 'FB', oParams);
  FreeAndNil(oParams);
  FDManager.Open;
end;

function TDMConexao.getSFConn: TFDConnection;
var
  SFConn: TFDConnection;
begin
  SFConn := TFDConnection.Create(nil);
  SFConn.ConnectionDefName := 'Fenix_Pooled';
  SFConn.Open();
  Result := SFConn;
end;

//na classe que ser� consumidas os metodos, coloque algo parecido com isso

procedure TCliente.getQtde:Integer;
var
  qry: TFDQuery;
  con: TFDConnection;
begin
  result := -1;
  con := FDConecao.getSFConn;
  qry := TFDQuery.Create(nil);
  qry.Connection := con;
 Try
   Try
        qry.SQL.text := 'select count(*) as Qtde from EMPLOYEE';
        con.Open();
        qry.Open();
         Result := qry.fieldbyname('Qtde').AsInteger;
        con.Close;
    Except
        on e: exception do
            addLog(e.message);
        End;
      end;
    end;
  finally
    con.Free();
    qry.Free();
  end;
end;

Depois atualiza o seu exemplo e me envio o link, assim que acalmar um pouco as coisas aqui, vou fazer um implementa��o nele e te devolvo, mas vai me passando as atualiza��es, por favor.

Responder

Gostei + 0

31/07/2015

Aparecido Silva

Legal,
tava no caminho certo, ja tinha alterado pra essa forma depois que vc me avisou...
achei uns modelos na NET

obrigado.

Responder

Gostei + 1

31/07/2015

Paulo Monteiro

Ent�o, no seu exemplo s� est� usando rest, mas o correto � o restful.
Sendo assim deveria est� tragando o envio atrav�s do get/post/put/delete (restful), desta forma que fez, ir� ter problema quando enviar bastante dados e tem a quest�o de seguran�a.

Responder

Gostei + 1

18/09/2015

Vitorino Almeida

Ol� Aparecido.
Por favor, tem como voc� postar o c�digo de conex�o do mORMot com Firebird que conseguiu?

Agrade�o antecipadamente

Responder

Gostei + 0

06/01/2016

Adriano Dias

Ol� Aparecido!

Para personalizar o retorno do teu metodo, mude o tipo do retorno para TServiceCustomAnswer (com ele voc� pode especificar um conte�do personalizado).

Exemplo:


function ReverseString(AText: RawJSON): TServiceCustomAnswer;
begin
  Result.Header := TEXT_CONTENT_TYPE_HEADER;
  Result.Content := FormatUTF8('%',[SO(System.StrUtils.ReverseString(AText)).AsJSon]);
end;

Responder

Gostei + 0

06/01/2016

Aparecido Silva

obrigado pela resposta , vou implementar aqui..

Responder

Gostei + 0

06/01/2016

Aparecido Silva

o que seria o metodo SO() ??

Responder

Gostei + 0

06/01/2016

Adriano Dias

Eu uso "Superobject" para fazer o parser JSON

Responder

Gostei + 1

06/01/2016

Aparecido Silva

deu certo, obrigado

Responder

Gostei + 0

06/01/2016

Aparecido Silva

estou tentando implementar nesse modelo o RestFul dizem que eh melhor e mais rapido
mas nao tenho muita experiencia em OOP, podem me dar uma dica

https://www.dropbox.com/s/udozap9xdjm0k1z/AppMormotSample.rar?dl=0

Responder

Gostei + 0

01/02/2016

Adriano S�rgio

Aparecido, desculpa n�o ter respondido � que esta bem corrido as coisas por aqui.

Abri teu exemplo e esta rodando, quais seria tuas d�vidas e no que voc� precisa de ajuda, mais especificamente?

Responder

Gostei + 0

Mais t�picos