Bom dia pessoal, estou novamente fazendo alguns testes em conexão remota via socket em Delphi, e para a conexão com banco de dados estou utilizando do ORMBr em banco de dados MariaDB. Para as conexões com o banco de dados estou criando em tempo de execução e destruindo para cada conexão remota e na hora de desconectar eu removo do registro do banco de dados os usuários que estavam conectados no acesso, porém ao tentar usar o comando "OpenWhere" com o nome da coluna e o conteúdo a ser buscado, está retornando o erro indicado na imagem abaixo. Alguém poderia me ajudar com isso? Outra dúvida, como comentei estou criando uma conexão com o banco de dados para cada conexão remota criada e as vezes parece que ocorre algum conflito e retornam erros de tabelas, como posso trabalhar de forma correta nesse caso para que não ocorram erros de conexão?

Arquivo(s) anexado(s)

Miniatura(s)
   

Olhei os demos que acompanham o código mas, em nenhum encontrei gravação de Blobs do tipo texto, nem mesmo imagens saídas de Stream, ou componentes como TImage ... Como faz? 

Já tive este problema antes, atualizei os fontes e parou de acontecer mas depois da instalação com componente não sei se mudou algo nos fontes mas o erro ao excluir esta ocorrendo novamente.  porém atualize hoje os fontes e o erro persiste (Na Verdade não da erro apenas cai no methodo que esta comentado o código) não consigo ver onde esta o erro e porque ele esta enviando para este método, sendo que estava funcionando corretamente  e em algum momento aprontei algo que mudou isto. tem como me dar um socorro???

como estou usando no client:  TFDMemTable

Variável privada no  (Client) : 
           private
            oDataSnapMaster: IContainerDataSet<TSituacaoCadastral>;
          
no metodo excluir (Client) : .
  oDataSnapMaster.Delete();
  if oDataSnapMaster.DataSet.State in [dsInsert,dsEdit] then
    oDataSnapMaster.DataSet.Post;
  oDataSnapMaster.ApplyUpdates(0);

Método onde o código esta indo na depuração

unit ormbr.session.datasnap;

procedure TSessionDataSnap<M>.Delete(const AObject: M);

var
  LColumn: TColumnMapping;
begin
//  for LColumn in AObject.GetPrimaryKey do
//    Delete(LColumn.PropertyRtti.GetValue(TObject(AObject)).AsInteger);
end;

Eu estava fazendo meu projeto de forma manual (sem componente) , adquiri o componente e iniciei o uso, porem precisei retornar ao código anterior e percebi que mesmo não fazendo atualizações de fontes o método cancel parou de funcionar, 

percebi que nem chega mais no servidor tem algo de diferente? como posso corrigir ou qual a unit que fera o cancel para eu depurar "para não ficar procurando do passo a passo"


teve atualizações recentes no fontes, posso baixar sem prejuízo?

a proposito para retornar ao projeto anterior voltei tudo (servidor e client)

Boa noite. 
Olhando os exemplos, vejo que realmente é simples implementar um CRUD. Porém a minha dúvida é um pouco mais adiante.
Imagine o cenário.
Tenho uma estrutura de pedido devidamente relacionada
Pedido -> Itens
          -> Cliente
          -> Pagamentos
          -> Transportadora


Pelo oque entendi, fazendo um open do pedido, todos os campos dessas classes vão ser carregados.
Gostaria de saber se tendo essa estrutura, como posso fazer uma consulta para retornar apenas por exemplo (Código do cliente, nome do cliente, total do pedido e formas de pagamento) sem carregar as outras colunas.

Pelo oque vi, teria q utilizar um ICritéria que me retornaria um DataSet e desta forma não iria usar a estrutura criada. 

Estou certo ou comi bola em algum ponto?

Boa dia pessoal, estou tendo um problema na hora de finalizar meu sistema com uma conexão ativa, por exemplo, no meu sistema tenho algumas tabelas de conexão com o banco de dados e em todos os métodos necessários que comunicam com o banco de dados seja por insert ou por edit, estou associando uma variável que vai herdar do método da conexão com o banco, e depois de feito o procedimento eu libero essa variável, porém na hora de finalizar meu sistema utilizando o parâmetro ReportMemoryLeaksOnShutdown do Delphi, eu obtenho o retorno com muita perda de memória, e todos os objetos estão relacionados aos componentes ORMBR, qual é a melhor forma de liberá-los da memória após o uso? Alguém poderia me fornecer essa informação? No link abaixo tem bem certo os locais que estão retornando o memory leak.

http://prntscr.com/nqx57d

Att. Maikon

Arquivo(s) anexado(s)

Miniatura(s)
   

Saudações.

Estou implementando um projeto usando o ORMBr e vi a necessidade de usar load lazy para obter melhor desempenho.
Entretanto, uma dificuldade que estou tendo é o fato de ter que fazer o carregamento das dependências manualmente, ou seja, através de uma linha de comando.
É possível, ou há previsão de que o ORMBr faça o carregamento automaticamente quando o objeto fosse acessado?

Obrigado.

Saudações!

Está ocorrendo um erro quando instancio um TContainerClientDataSet<M> cuja entidade M contenha uma coluna com nome maior que 31 caracteres, conforme exemplo abaixo.
No Dictionary, além de ter o nome grande, a coluna precisa ter um valor default. Sem o valor default o erro não ocorre.

---- Início do exemplo

Classe TPedido:
----

type
  [Entity]
  [Table('pedido', '')]
  [PrimaryKey('codigo', NotInc, NoSort, False, 'Chave primária')]
  Tpedido = class(TInterfacedObject, Ipedido)
  private
    { Private declarations }
    Fcodigo: Integer;

...

    Fvalor_outras_despesas_acessorias: Currency;

...

  public
...

    [Column('valor_outras_despesas_acessorias', ftCurrency)]
    [Dictionary('valor_outras_despesas_acessorias', 'Mensagem de validação', '0', '', '', taRightJustify)]
    property valor_outras_despesas_acessorias: Currency read Fvalor_outras_despesas_acessorias write Fvalor_outras_despesas_acessorias;


Chamada onde ocorre o erro:
------

FContainerPedido := TContainerClientDataSet<TPedido>.Create(FConn.Conn, qryPedido);


Exception:
------

valor_outras_despesas_acessorias: Preparation of default expression failed with error "Violação de acesso ao endereço 009AE939 no módulo 'MeuServer.exe'. Leitura do endereço 00000034"

---- Fim do exemplo

Alguém já passou por esse problema e tem uma solução?

Tenho um modelo que contem campos do tipo Nullable<String> ex:

    [Column('BASE_FONE_CON1', ftString, 15)]
    [Dictionary('BASE_FONE_CON1', 'Mensagem de validação', '', '', '', taLeftJustify)]
    property BASE_FONE_CON1: Nullable<String> read FBASE_FONE_CON1 write FBASE_FONE_CON1;


Tudo certo, populo a classe TBASE e, na hora de jogar os dados na tela para os edit's, se o campo acima estiver NULL no banco de dados
ocorre o erro : 

Invalid operation, Nullable type has no value.

gostaria de saber se tem alguma maneira de tratar esse retorno para trazer um default talvez quando o campo for NULL.

Sei que existe a função .GetValueOrDefault, mas além disso, nao teria como o framework tratar automaticamente e trazer um default no lugar de null?

Obrigado!

Existe algum método, tipo um "Load" que sirva para povoar as classes das tabelas?

por enquanto estou fazendo uma class function exemplo :

class fuction Load(id : Integer): TPESSOA;
var
  oContainer : TContainerObjectSet<TPESSOA>;
  List : TObjectList<TPESSOA>;
begin
  oContainer := TCOntainerObjectSet<TPESSOA>.Create(oConn);
  List := oContainer.Findwhere('id = '+id.ToString);
  Result := List.First;
end;

isso retorna um objeto TPESSOA contendo um registro
no formulário só preciso passar pra um TObjectList e posso usar, até aí tudo bem..

agora, se eu quiser fazer isso usando Joins...?
(Pode ser que eu não descobri que ja existe um método mais fácil, mas,caso não exista, fica a dica de implementar uma função como essa nativamente no Framework)