José Herculano

function getCamposJsonString(json,value:String): String; var LJSONObject: TJSONObject; function TrataObjeto(jObj:TJSONObject):string; var i:integer; jPar: TJSONPair; begin result := ''; for i := 0 to jObj.Size - 1 do begin jPar := jObj.Get(i); if jPar.JsonValue Is TJSONObject then result := TrataObjeto((jPar.JsonValue As TJSONObject)) else if sametext(trim(jPar.JsonString.Value),value) then begin Result := jPar.JsonValue.Value; break; end; if result <> '' then break; end; end; begin try LJSONObject := nil; LJSONObject := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(json),0) as TJSONObject; result := TrataObjeto(LJSONObject); finally LJSONObject.Free; end; end;

Amigos, li todos os comentários postados sobre as problemáticas com o serviço do postgresql. Entendo que haja problemas com o aplicativo warsaw, contudo não acredito seja a causa das problemáticas com o postgresql. Venho enfrentando esse problema com o serviço já há 2 anos, e não consegui encontrar uma solução. Tenho clientes com vários servidores, os quais não não utilizados para nada mais que abrigar o banco de dados, e mesmo assim vira-mexe o problema com o serviço surge. Máquinas hp com windows 2008, hora está rodando o serviço e do nada o serviço é suspenso. Ví que poderia ser o antivirus, desativamos, colocamos exceção, e mesmo assim nada. Nos logs do banco, não há nenhum erro. Nos logs do windows há apenas informação de que foi solicitado o desligamento do serviço. Alguém conseguiu identificar a causa disso? É algum erro do postgresq? Deste a versão 8.4 venho passando por essa problemática, e estou ao ponto de não encontrando uma solução, abandonar o postgresql, pois isso esta tornando tenso, e trabalhoso. Já procurei nos mais diversos fóruns e ninguém tem um diagnóstico disso. Pergunto: mysql passa por esse mesmo problema ? Se não, penso em migrar. Estou desanimado já com a problemática disso.