henning

Independente de fazer um encontro pessoalmente, o que acham de marcarmos uns hangouts para que a gente possa conversar sobre o FWH, futuro, etc...

Fiz um esquema com o webservice está bem simples mas funciona bem... Tabela SQL: CREATE DATABASE `logs` DEFAULT CHARACTER SET latin1 COLLATE latin1_swedish_ci; USE `logs`; -- -------------------------------------------------------- -- -- Estrutura da tabela `logs` -- CREATE TABLE IF NOT EXISTS `logs` ( `id` int(11) NOT NULL AUTO_INCREMENT, `log` text NOT NULL, `data` datetime NOT NULL, `sistema` varchar(100) NOT NULL, PRIMARY KEY (`id`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=3 ; Código php <?php $dsn = 'mysql:host=localhost;port=3306;dbname=logs;charset=UTF8'; $usuario = 'usuario'; $senha = 'senha'; try { $pdo = new PDO($dsn, $usuario, $senha, $opcoes); } catch (Exception $e) { echo 'false'; return; } try { $log = filter_input(INPUT_POST, 'log'); $sistema = filter_input(INPUT_POST, 'sistema'); $sql = "INSERT INTO logs ". "(log, data, sistema) ". "VALUES ". "(:log, NOW(), :sistema)"; $stmt = $pdo->prepare($sql); $stmt->bindParam(":log", $log, PDO::PARAM_STR); $stmt->bindParam(":sistema", $sistema, PDO::PARAM_STR); $stmt->execute(); echo "true"; } catch (Exception $e) { echo 'false'; } return; Código da função xHArbour que envia para o webservice ******************************************************************* function enviarLogDeErro(cLog) ******************************************************************* * Envia o log de erro para o servidor * Data de início: 08/08/2014 ******************************************************************* LOCAL oUrl, oInternet LOCAL cData, cRet LOCAL cParam1 := cLog, cParam2 := "hcprw" oUrl := TURL():New( "http://www.seusite.com.br") oUrl:cPath := "/logs" oInternet := TIPClientHTTP():New(oUrl) oInternet:cUserAgent := "Mozilla/4.0 (compatible; MSIE 5.01; WindowsNT 5.0)" cData := "" oUrl:cFile := "log.php" WITH OBJECT oInternet IF :Open() IF :Post("log=" + cParam1 + "&sistema=" + cParam2) DO WHILE !Empty((cRet:=:Read())) cData += cRet ENDDO ENDIF ENDIF :Close() END WITH If cData == "true" MsgInfo("Log de erro enviado.") EndIf RETURN Nil

Mas o que vou fazer mesmo é criar um Webservice em php para receber os dados e salvar em uma tabela MySql do meu servidor, dessa forma é mais seguro... Vou fazer isso nos próximos dias e quando tiver algo posto aqui para todos..

************************************************************************* function enviarLogDeErro() ************************************************************************* * Envia o log de erro para o servidor. * Data de início.: 04/01/2012 ************************************************************************** If lEnviouErrorLog == .t. Return Nil EndIf If MsgYesNo("Deseja enviar o arquivo de erro para o suporte técnico ?"+HB_OSNEWLine()+; "Para enviar essas informações é necessário estar conectado a internet,"+; "ao receber o arquivo vamos analisar os dados e se for necessário vamos fazer as devidas correções. Qualquer dúvida entre em contato com o suporte técnico.","Ocorreu um Erro no Sistema") oInternet := TInternet():New() oFTP := TFTP():New( "www.seusite.com.br", oInternet,"logindoftp","senhadoftp" ) cArquivo := "error.log" cNomeArquivo := 'HCPRW_'+Dtos(Date())+StrTran(Time(),':','')+'.txt' hSource := FOpen( cArquivo) cBuffer := Space( 6400 ) nBufSize := 6400 oFile = TFtpFile():New( cNomeArquivo, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nTotal := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) nTotal += nBufSize end oFile:End() oFtp:End() lEnviouErrorLog := .t. MsgInfo("Informações sobre o erro enviados com sucesso, vamos verificar o que pode estar ocorrendo, se for necessário vamos lançar uma nova versão o mais breve possível, caso tenha alguma dúvida entre em contato com o suporte técnico.","Informação") EndIf Return Nil Chamo essa função no OnPaint da chamada do janela de erro do errsysw.prg ACTIVATE DIALOG oDlg CENTERED ; ON PAINT (DrawBitmap( hDC, hLogo, 6, 6 ) , EnviarLogDeErro()) Uso xHarbour com FWH, não sei se funciona com Harbour

Eu mando o arquivo error.log via ftp para um servidor meu....

Quanto vc assina digitalmente o executável ele não aparece como "editor desconhecido", aparece com o nome da sua empresa....

Veja aqui: http://www.certisign.com.br/certificado-digital/assinatura-codigo/authenticode#aba

Outra alternativa é assinar digitalmente o executável... veja: http://codesigning.ksoftware.net/ É a melhor coisa que existe....

Luiz Fernando, acredito que a melhor resposta seria "depende"... Dependendo do que for, por exemplo: vendas, você pode criar alguma forma de continuar vendendo offline e depois quando a conexão voltar sincronizar com o banco de dados, você pode ter outra forma de acesso a internet como backup.. Nesse cliente de porte grande se o HD do servidor ou o próprio servidor der paú o que acontece ? Se ficar sem energia elétrica a tarde inteira o que acontece ? Se um ladrão roubar o servidor ? Se pegar fogo no local onde está o servidor ? São situações que são raras, mas acontecem... (todas essas situações já aconteceram em alguns dos meus clientes...) Aplicações/Banco de dados na nuvem é interessante para clientes de pequeno e em alguns casos médio porte, pois sai mais barato/seguro para ele contratar somente o acesso ao sistema, do que ter que ter um servidor, cuidar da manutenção desse servidor, segurança, backups, atualizaçoes, etc.. Ou clientes de médio/grande porte que possuem diversas filiais.

Com certeza é possível, mas não é muito seguro acessar diretamente o banco de dados via web.... O melhor seria criar WebServices ou APIs e consumir esses WebServices /APIs via desktop, via web, via mobile, etc..

Alessandro, você tem razão.... é difícil esse tipo de coisa dar certo... para dar certo tem que ter pelo menos um disposto a fazer e ter algo +/- encaminhado....

Meu sonho era fazer algo assim, mas como um sistema hídrido..(web + desktop), onde fosse possível "vender" o sistema como licença de uso para que a empresa instale no seu próprio servidor, ou, ela faça acesso ao sistema via web(nuvem) pagando um valor, mensal, semestral, anual no modelo SAAS(software as a service), o sistema teria tanto uma interface WEB(acesso pelo browser) como também uma interface gráfica(programa instalado na máquina acessando os dados de um servidor remoto na nuvem)..... mas é só um sonho..... não tenho $$$ para fazer isso.... seria um trabalho monstruoso.... se uns 10 tiverem afim a gente consegue desenvolver algo em uns 2 anos... heheheehee... alguém topa ?

Foi exatamente o que citei, a plataforma .NET que seria a linguagem C# com o Visual Studio como IDE, acho bem legal... é uma excelente opção tanto para desktop como para WEB, mas como disse anteriormente não gostei da comunidade...

Outra boa opção é utilizar a plataforma .NET tanto para desktop quanto para WEB, tá bem legal, só a comunidade que acho muito ruim....

Nesse caso uma boa opção seria o Delphi + DataSnap + DBExpress, usando DataSnap você terá seu sistema em 3 camadas, vai ter a aplicação servidora, a aplicação cliente que rodará em computadores não tão bons, e ainda poderá rodar o sistema em uma rede local, ou via internet com uma boa performance...

Depende do sistema, para que seria esse sistema ? Mas pelo pouco que disse, se eu fosse vc faria todo online(nuvem), com back end em PHP, front end com ExtJS e no banco de dados utilizaria o Mysql, Tudo isso hospedando no AWS da Amazon, usando o EC2 para o servidor e o RDS para o servidor MySql. (Estou desenvolvendo um sistema exatamente com essas tecnologias). Passe mais detalhes do que deseja, assim a gente poderia ver o que seria mais adequado... Lembre-se de: Nem todo problema é prego e nem toda solução é martelo....

Não tem jeito... cliente só faz backup depois que perde algum dado.... e depois de algum tempo volta a não fazer o backup....

Meus 2 cents.... Acredito que as duas opções são boas... Já usei o FR com o Delphi e é fantástico... é o melhor gerador de relatórios que existe... Mas por outro lado é interessante o FW ter um gerador de relatórios próprio... que não dependa de terceiros e que possa ser utilizado integrado ao .exe...

Harbour: https://raw.githubusercontent.com/harbour/core/master/ChangeLog.txt xHarbour: http://sourceforge.net/p/xharbour/code/HEAD/tree/trunk/xharbour/ChangeLog O Harbour é mais ativo graças ao Przemyslaw Czerpak...

Está rolando no fórum internacional... um assunto interessante sobre a compra do Easy report para tornar ele open source... quem puder e tiver interesse pode colaborar... http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28779 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28842

99,999% das aplicações não precisam ser compiladas em 64bits.... Pois tudo o que é compilado com 32 bits rodará em sistemas operacionais 64bits... Já o contrário não, se compilar em 64 bits não rodará em um sistema operacional 32 bits....

Já pensaram em fazer hangouts períodicos ou não para discutir, conversar sobre fivewin ?

Estou com uma cliente que está precisando de um sistema para folha de pagamento, se alguém tiver interesse entre em contato comigo pelo email: emerson@henning.com.br que passo o contato da minha cliente... []'s Emerson Henning

O Jquery EasyUI é gratuito para projetos GPL para projetos comerciais existe uma licença comercial http://www.jeasyui.com/license_commercial.php

A algum tempo atrás teve um tópico sobre a criação de uma associação, o que aconteceu ? A associação foi criada ?