Clipper On Line

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38316

Abs.

Quem sabe já seja hora de avaliar novas possibilidades...

Justamente mensagem do bost. que anda poluindo o harbour-users.

Ele encontrou uma mensagem do Viktor explicando porque ele parou de contribuir pra Phyton.
Usou isso pra bagunçar geral.

O engraçado é o Linares preocupado com Harbour....
É que se parar, ele não vai ter mais de onde copiar fontes kkkk

Ninguém vai conseguir substituir o Viktor.

Antônio Linares ou outro, iriam destruir o Harbour na primeira mexida.
Se ele nem sabe usar o Harbour, como ele saberia alterar?

fladimir escreveu:Quem sabe já seja hora de avaliar novas possibilidades...

Sem pressa pra sair do Harbour, vão ser muitos anos de Harbour ainda.

A única coisa que prende a antiguidades é o DBF mesmo.
Saiu do DBF, tá livre pra qualquer coisa.

Fica tão livre, que pode até continuar usando Harbour tranquilamente kkkk

Zé,
Não podemos vincular o Harbour somente a DBF, ele faz muita coisa além disso, muita mesmo.

Conheço muita gente que já partiu pros SQL da vida faz tempo, eu mesmo não uso mais DBF desde 2006.

Se pensar assim o Delphi eternamente será o Paradox da vida, o PHP seria apenas MYSQL e assim por diante.

sygecom escreveu:Não podemos vincular o Harbour somente a DBF, ele faz muita coisa além disso, muita mesmo.

Foi o que eu disse.

JoséQuintas escreveu:Saiu do DBF, tá livre pra qualquer coisa.
Fica tão livre, que pode até continuar usando Harbour tranquilamente kkkk

Não vejo motivo para preocupações, já que o Harbour é Open Source.

Como uso xHarbour, estou mais tranquilo do que nunca.

http://xharbour.org/

Enrico Maria Giordano tá sempre em Alerta.

Abs.

Pois é... enquanto existir o Harbour pra puxar alterações...

2019-06-13 15:39 UTC+0200 Enrico Maria Giordano <e.m.giordano@emagsoftware.it>
* source\rtl\cdpapi.c
! added function HB_UTF8ASC() borrow from harbour

Também não vejo problemas. O senhor vê? Mister Quintas, o senhor cria muito chifre em cabeça de cavalo. Os dois compiladores são excelentes e tem suporte até na CHINA. Não complique tanto. Abs.

Kapiaba escreveu:Também não vejo problemas. O senhor vê? Mister Quintas, o senhor cria muito chifre em cabeça de cavalo. Os dois compiladores são excelentes e tem suporte até na CHINA. Não complique tanto. Abs.

Sim, eu vejo muito problema.
Os dois se atrapalham a troco de nada, na verdade atualmente os três: Harbour 3.2, Harbour 3.4 e XHarbour.

Desenvolvedores de LIB ficar mantendo compatibilidade com 3 Harbours diferentes... é trabalhoso.
Na prática, eles deixam quebra-galhos, que podem trazer problema para os três.
Isso sim é um grande problema.

Por isso as LIBs preferem ficar presas à linguagem C, pra não se prender a nenhum dos 3.
E lá vém mais cópia de fontes do Harbour..... pra não prender a nenhum...

Se não entendeu isso ainda, sinto muito.
Vamos tentar de novo...
Digamos que....

Harbour = A + B + C1 + D1
XHarbour = A + B + C2 +D2

LIB = A + B + ( C3 + D3 ) , porque não podem usar C1, D1, C2 ou D2, e criam em C C3, D3 pra não vincular ao que já existe

Um retrabalho desperdiçado, sem nenhuma melhora, só possibilidade de conflitos com o que já existe.
TODOS perdem.

Oh my god. Eu USO Fivewin for xHarbour desde o ANO de 2009, e nunca tive problemas com o xHarbour. Não vou cuspir no prato que como, se não tenho motivo. Até hoje, uso e abuso do Fivewin for xHarbour. Aliás, I LOVE FIVEWIN.

Lamento por seus problemas com a sua LIB for Habrour, Abs.

Kapiaba escreveu:Oh my god. Eu USO Fivewin for xHarbour desde o ANO de 2009, e nunca tive problemas com o xHarbour

Pois é...
o PRODUTO COMERCIAL funciona... pra que interessa open-source....
Se tem fonte roubado do Harbour, nem dá pra saber...

Sim roubado!
Se é fonte open-source, não poderia ser incluso em produto comercial particular.

Mas é só esperar... tudo pode acontecer...

Jesus, acende a Luz!! kkkkkkkkkkkkkkkkkkkk

https://pt.wikipedia.org/wiki/C%C3%B3digo_aberto

Abs.

Boa sorte então.

Novidades da última versão do FiveWin for xHarbour. Não sei porquê, tenho a impressão, que está faltando alguma coisa, que a Fivetech não disponibiliza. Mas, falha-me a memória para lembrar. Mas que falta, falta. Quando eu lembrar, cobrarei a equipe de desenvolvimento da Fivetech.

http://forums.fivetechsupport.com/viewtopic.php?f=16&t=38249

Obg. abs.

Outra questão que nenhum projeto pago do mundo xBase está fazendo, é ter opção para WEB e MOBILE, algo que realmente funcione e não as gambiarras de sempre ! Em pleno 2020, ter o sistema rodando em um PC, em uma rede local é excelente claro, mas as coisas evoluíram...

Concordo plenamente Marcelo. Eu acho que eles não implementam, talvez, pelo alto custo, e talvez, o retorno financeiro não seja muito atrativo. Eu acho... Não tenho certeza.

Outra Marcelo: Olhe o Nome que deram para este "novo" produto: mod_harbour

http://forums.fivetechsupport.com/viewforum.php?f=45

Fala sério... Não entendi bulhufas e não tem uma única linha explicando o que é, para que é... Simplesmente "jogaram" no ar... Nem dei atenção... Deixa amadurecer, se "pegar", vai explodir exemplos, ei ai, eu olho. Abs.

Chamou a atenção:

* Treatment of ADO Date and DateTime fields/values
XBrowse, TDataRow, TRecSet and function FWAdoStruct( oRs )

In many databases like MSAccess, MSSQL, Oracle only DateTime field type is
avaiable for storing both simple dates and date-time values. Whether a
particular field is to be treated as Date or DateTime field mostly depends
on the usage. Accordingly FWH libraries treat fields containing pure Date
values (without any time-part) as Date fields and fields containing DateTime
values are treated as DateTime fields. While this approach works satisfactorily
in most cases, there could be exceptions and the programmer needs to have
the facility to override the default behavior.

Pois é... muitos usam ADO...
Aí os usuários adoram o fivewin porque pode usar ADO... kkkk
Nem sabem que no Harbour pode usar kkkk

Ah sim... no XHarbour original talvez não dê... e o fivewin copiou do Harbour kkkk

Fivewin for xHarbour não precisa de defesa. Precisa é de quem sabe usar e abusar. kkkkkkkkkkkkkk
Usários de modo console são engraçados demais. Eu rio pra karamba. E é tão fácil aprender fivewin.

#include "fivewin.ch"
#include "xbrowse.ch"
#include "hbcompat.ch"      // required

REQUEST DBFCDX

static cMdb    := "tutor01.mdb"
static oCn

//----------------------------------------------------------------------------//

function Main()

   SET DELETED ON
   SET DATE ITALIAN
   SET CENTURY ON

   XbrNumFormat( 'A', .t. )

   ferase( cmdb )
   if .not. File( cMdb )
      FW_CreateMDB( cMdb )
   endif

   CreateTable()
   CopyFromDBF()
   BrowseTable()
   oCn:Close()

return nil

//----------------------------------------------------------------------------//

static function CreateTable()

   local cSql, c

   oCn   := FW_OpenAdoConnection( cMdb )

   TRY
      oCn:Execute( "DROP TABLE CUSTSMAL" )
   CATCH
   END

   TEXT INTO cSql
   CREATE   TABLE CUSTSMAL (
   ID       AUTOINCREMENT PRIMARY KEY,
   CUSTNAME VARCHAR( 30 ),
   MARRIED  BIT,
   AGE      BYTE,
   SALARY   MONEY
   )
   ENDTEXT

   oCn:Execute( cSql )

return nil

//----------------------------------------------------------------------------//

static function CopyFromDBF()

   local oRs

   oRs   := FW_OpenRecordSet( oCn, "CUSTSMAL" )

   USE CUSTOMER NEW ALIAS CUST SHARED READONLY VIA 'DBFCDX'

   do while ! eof() .and. RecNo() < 6

      oRs:AddNew( { "CUSTNAME", "MARRIED", "AGE", "SALARY" }, ;
                  { Left( Trim( CUST->FIRST ) + ' ' + Trim( CUST->LAST ), 30 ), ;
                    CUST->MARRIED, CUST->AGE, CUST->SALARY } )
      SKIP
   enddo

   CLOSE CUST
   oRs:Close()

return nil

//----------------------------------------------------------------------------//

static function BrowseTable()

   local oRs, oBrw, oFont, oDlg

   oRs   := FW_OpenRecordSet( oCn, "CUSTSMAL" )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 800,400 PIXEL TITLE "ADO: SAMPLE"  FONT oFont
   @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE oRs ;
      AUTOCOLS AUTOSORT ;
      PICTURES "999", nil, nil, "99", "9,999,999.99" ;
      CELL LINES NOBORDER FASTEDIT

   WITH OBJECT oBrw
      :nEditTypes    := EDIT_GET
      :nStretchCol   := STRETCHCOL_WIDEST
      :Married:SetCheck()
      //
      :bKeyDown      := { |nKey| If( nKey == VK_DELETE, DeleteRow( oBrw ), ;
                                 If( nKey == VK_INSERT, AddEditDlg( oBrw ), nil ) ) }
      //
      :CreateFromcode()
   END

   @ 10, 10 BUTTON "Add"    SIZE 40,12 PIXEL OF oDlg ACTION AddEditDlg( oBrw, .t. )
   @ 10, 55 BUTTON "Edit"   SIZE 40,12 PIXEL OF oDlg ACTION AddEditDlg( oBrw )
   @ 10,100 BUTTON "Delete" SIZE 40,12 PIXEL OF oDlg ACTION DeleteRow( oBrw )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont
   oRs:Close()

return nil

//----------------------------------------------------------------------------//

static function AddEditDlg( oBrw, lAdd )

   local oRs         := oBrw:oRs
   local aFldNames   := { "CUSTNAME", "MARRIED", "AGE", "SALARY" }
   local aVals
   local oDlg, oFont, nRow, lOK := .f.

   DEFAULT lAdd   := ( oBrw:nLen == 0 )

   if lAdd
      aVals   := { Space( 30 ), .f., 0, 0.00 }
   else
      aVals   := oRs:GetRows( 1, 0, aFldNames )[ 1 ]
      oRs:MovePrevious() // IMPORTANT: After Get Rows we need to go back
   endif

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 420,210 PIXEL FONT oFont ;
      TITLE If( lAdd, "ADD NEW CUSTOMER", "EDIT CUSTOMER" )
   nRow           := 10
   @ nRow+1, 10 SAY "Customer Name : " SIZE 60,10 PIXEL OF oDlg RIGHT
   @ nRow,   75 GET aVals[ 1 ] SIZE 115,12 PIXEL OF oDlg VALID ! Empty( aVals[ 1 ] )
   nRow  += 14
   @ nRow+1, 10 SAY "Married : " SIZE 60,10 PIXEL OF oDlg RIGHT
   @ nRow, 75 CHECKBOX aVals[ 2 ] PROMPT "" SIZE 12,12 PIXEL OF oDlg
   nRow  += 14
   @ nRow+1, 10 SAY "Age : " SIZE 60,10 PIXEL OF oDlg RIGHT
   @ nRow,   75 GET aVals[ 3 ] PICTURE "99" SIZE 30,12 PIXEL OF oDlg RIGHT ;
         VALID aVals[ 3 ] > 0

   nRow  += 14
   @ nRow+1, 10 SAY "Salary : " SIZE 60,10 PIXEL OF oDlg RIGHT
   @ nRow,   75 GET aVals[ 4 ] PICTURE "9,999,999.99" SIZE 70,12 PIXEL ;
      OF oDlg RIGHT VALID aVals[ 4 ] > 0
   nRow  += 30

   @ nRow, 115 BUTTON "Cancel" SIZE 40,12 PIXEL OF oDlg CANCEL ACTION ( lOK := .f., oDlg:End() )
   @ nRow, 160 BUTTON "OK"     SIZE 40,12 PIXEL OF oDlg ACTION ( lOK := .t., oDlg:End() )

   ACTIVATE DIALOG oDlg CENTERED

   if lOK
      aVals[ 1 ]    := AllTrim( aVals[ 1 ] )
      TRY
         if lAdd
            oRs:AddNew( aFldNames, aVals )
         else
            oRs:Update( aFldNames, aVals )
         endif
         oBrw:Refresh()
      CATCH
         oRs:CancelUpdate()
         MsgAlert( "Error writing" )
      END
      oBrw:SetFocus()
   endif

return lOk

//----------------------------------------------------------------------------//

static function DeleteRow( oBrw )

   local oRs   := oBrw:oRs
   local nPos

   if !( oRs:Eof .or. oRs:Bof )
      nPos     := oRs:AbsolutePosition
      oRs:Delete()
      oRs:AbsolutePosition := Max( 1, Min( nPos, oRs:RecordCount() ) )
      oBrw:Refresh()
   endif
   oBrw:SetFocus()

return nil

//----------------------------------------------------------------------------//

Mister Quintas, desculpe minhas brincadeiras, respeito suas opiniões... Mesmo não concordando com elas.

Abs.

Legal.
Vou testar algumas coisas que vi nesse fonte.

Para mim que uso xHarbour e Hwgui, sinto falta de duas coisas.
1-No xHarbour rodar com MT(Mult theread), hoje tenho contornado com .EXE separado sistema que não é ruim e, até tenho .EXE que roda como serviço no servidor dos clientes.

2-Na HWGUI me falta ribbon bar( https://en.wikipedia.org/wiki/Ribbon_(computing) ) Já tenho algo em TESTE mas que depende de uma DLL OCX que precisa ser registrada e, ai comece outros problemas.

De resto, faço tudo aqui !

sygecom escreveu:1-No xHarbour rodar com MT(Mult theread), hoje tenho contornado com .EXE separado sistema que não é ruim e, até tenho .EXE que roda como serviço no servidor dos clientes.

Pra não precisar EXE separado, pode usar algo simples:

PROCEDURE Main
PARAMETERS x

IF x = "SEGUNDOEXE"
   RotinaSegundoExe()
   QUIT
ENDIF

Pode até inventar parâmetros de validação, pro usuário não tentar fazer sozinho alguma coisa.

Esqueci de mencionar.

3-Envio de e-mail com TLS que tive que fazer com Lazarus, mas acredito que o Harbour tem isso.
4-Consumo de protocolo RTSP, esse nem com Harbour consegui fazer funcionar.

Se lembrar de mais coloco..kkkkk

Leonardo, realmente. Impossível enviar email via Outlook.com, pelo meno com xHarbour, não consegui. Se eu estivesse na Itália, conseguiria, já que lá, a porta 25 está ativa. Aqui o gobierno de mierda desligou a porta 25 e pela outras portas não vai. Eu o Enrico Maria Giordano, tentamos de todas formas e nada. Se bem que posso enviar via outros provedores. O outlook.com não nos afeta em nada. Abs.

Kapiaba escreveu:Se eu estivesse na Itália, conseguiria, já que lá, a porta 25 está ativa. Aqui o gobierno de mierda desligou a porta 25 e pela outras portas não vai

Caracas, o anúncio sobre sair da porta 25 foi há mais de 10 anos.
Não há porque reclamar mais sobre isso.
Alguns sites continuaram aceitando depois da data estipulada, mas nem deveriam.
Só mudou a porta: é ir lá na configuração e alterar o 25 pela porta nova.

Nem sei que diferença faz pra segurança só alterar o número.

Até dei uma procurada janeiro/2010.
Falar disso em 2020.... 10 anos depois.... vixe....

Nota: salvei no backup em abril/2010, e no git em 2015.

Exato mister Quintas. Na Itália funciona com a porta 25, com xHarbour. Aqui, não funciona em porta nenhuma o live.com / outlook.com. Não é um problema, pois usamos o provedor ACHE PERTO, e nosso enviador de emails funciona à perfeição com o provedor ACHE PERTO(hospedado no gmail). Funciona muito bem com gmail.com y yahoo.com y uol.com.br y terra.com.br. Ficamos tranquilos quanto a isso. Abs.

Aqui NÃO instalei opcionais do Harbour, por isso gmail não funciona.
Mas o terra.com.br uso 24 horas, pela rotina de email padrão do Harbour, da hbtip.
Está usando a porta correta? se não me engano 587.

Aqui usamos CDO - RMAIL.PRG, Não funciona com nenhuma porta se for para live.com/outlook.com é alguma coisa no xHarbour que impede(TLS?). Não tem importância, pois a clientela usa os provedores: Ache Perto, uol, terra, gmail ou yahoo, com estes tudo funfa as mil maravilhas e com todas as instruções for windows(com desenho) para configurar os provedores(servidores).



Abs.

Mod_Harbour forums:

https://forum.mod-harbour.org/viewforum.php?f=22&sid=290efffae07fd4e0d2d4f25ff5ca77fd

Abs.

Disculpen, voy a escribir en castellano
1.- La dirección del foro de mod-harbour, de momento, es
https://forum.mod-harbour.org/
2.- Mod-Harbour nació como un proyecto Open Source, y seguirá siéndolo en las condiciones actuales
3.- Genesis es un framework que se está haciendo para Mod-Harbour, como cualquier otra contribución o utilidad que podemos hacer cualquiera de nosotros utilizando Mod-Harbour

En cuanto a otros temas sobre Fivewin y otros comentarios, prefiero que me sean traducidos convenientemente por alguien que hable su propio idioma antes de realizar mi respuesta.
Pero he de decir, que el foro de Fivewin siempre ha sido un foro abierto para que cualquier usuario exponga sus opiniones y/o dudas, buenas o malas.
Por favor, considero que cualquier comentario de tipo constructivo, sería bienvenido también en el foro de Fivewin.

Gracias maestro Cristobal, asi és. Estamos con usted siempre. Cualcuer dúda, hablamos aqui y en el foro de Fivetech.

Obrigado mestre Cristobal, assim é. Estamos com você sempre. Qualquer dúvida, falaremos aqui e no forum da fivetech.

P.S.: és mi maestro favorito. jajajajajajajajaja. Y Feliz cumpleaños. Larga vida para ti.

Gracias, saludos.

Muchas gracias, y mis mejores deseos también para ti y todos los miembros de este estupendo foro
Como sabes, también me gusta leer este foro.
Un fuerte abrazo

En España hay un refrán que dice: "Es de ser bien nacido, ser agradecido"
Si inicialmente, cuando Antonio Linares empezó a desarrollar Harbour ( no olvidemos que es su creador, que parece que algunos quieren olvidarlo ), no hubiese apostado por hacer un compilador Open Source, ningún otro colaborador hubiese podido aportar su código al proyecto. Y, si alguien duda aún de su autoría, no hay nada más que leer los copyrights que aparecen al principio en la mayoría de los documentos del core de harbour.
Aprovecho para demostrar la gran admiración que siento por su gran labor y conocimientos a los que han hecho después de Harbour lo que es en la actualidad: un compilador sólido, y que para mí es un producto totalmente terminado.
Evidentemente, este es el gran problema de todos los proyectos Open Source, que los colaboradores que dedican día tras día parte de su tiempo, mucho esfuerzo, y conocimientos al desarrollo de un proyecto de este tipo, y ven que mientras otros con la herramienta que desarrollan, hacen forks comerciales, o venden sus programas, es lógico pensar, que llega un momento en el que piensan que también ellos necesitan dedicarse a amortizar económicamente su trabajo. Si hubiese habido empresas o usuarios que con sus aportaciones económicas hubiesen apoyado de alguna manera el proyecto, seguramente este hilo no hubiese sido publicado, pero........, estamos siempre en la misma situación: dame, dame gratis, que yo ya vendo y me gano la vida, y si no, sin que pueda compararse en los mismos términos, evidentemente, fijaros en Fivewin, cuántas copias piratas ha habido funcionando, y haciendo programas que producen un beneficio económico, y no se piensa que si todos hiciéramos lo mismo, este gran producto no habría llegado a la situación y calidad que tiene actualmente. Esa es la diferencia de mentalidad entre los programadores XBase y otros programadores de otros lenguajes que tienen asumido que han de comprar sus herramientas, y en sus ventas, aumentar el precio un poquito porque saben que antes o después tendrán que actualizarlas.
Por favor, pensemos por el bien común, aportando cada uno lo que podamos para que este mundo XBASE que tanto nos ha dado siga vivo y cada día más fuerte.
Pd: un grano de arena junto a otro y otro, llega a formar una playa ( pues lo mismo con 10 centimos o 1 euro )

Muy recomendable su lectura y creo que bastante "educativo".
http://www.openhealthnews.com/articles/ ... el-failure