Harbour 3.2 urgente !!

[winca]

Hola a todos:

Por favor, necesito un link para poder bajar el Harbour 3.2 con sources , no lo he podido encontrar.

Necesito todos los programas de las carpetas contrib y test.

En la version 3.4 hay programas de ejemplos que ya no existen y no los puedo ubicar, por ejemplo
los test del gmail.prg

Gracias anticipadas,
Winca

[winca]

Lo encontre por aqui: )

ww2.whosaway.com:4296/1207/hb_src_bcc71_1611071350.zip

Por si le sirve a alguien.

Saludos,
Winca

[lugab]

Muito bem, Winca

Recentemente, um colega aqui do fórum me ligou, pedindo link ou zip do Hb-32 e eu não tinha pra mandar pra ele...

Ele queria completo com todas as libs, pra modo console e não só para o minigui.

Esse link tem tudo , Winca

[JoséQuintas]

Tem certeza dos exemplos?

Lembrando: ao baixar o Harbour pelo GIT, está baixando TODA HISTÓRIA do Harbour, tudo que existe ou já existiu.

Continua existindo exemplo, não só de gmail, mas de outros também.

https://github.com/vszakats/harbour-cor ... /email.prg

[JoséQuintas]

E Harbour 3.2 aqui.

https://github.com/harbour/core

[winca]

Don José: Gracias por responder .

Disculpen la demora, pero estaba fuera.

Voy a mirar los link.

Saludos,
Winca

[Kapiaba]

http://forums.fivetechsupport.com/viewt ... 16&t=32157

http://forums.fivetechsupport.com/viewt ... 16&t=32184

http://forums.fivetechsupport.com/viewt ... 16&t=32157

http://forums.fivetechsupport.com/viewt ... 16&t=32135

[Kapiaba]

Mister Quintas, o senhor consegue enviar email neste provedor?

Código: Selecionar todos

cHost := "smtp.office365.com"; lSTARTTLS := .T.

Obg. abs.

[Itamar M. Lins Jr.]

Ola!
Kapiaba, o melhor é usar a versão oficial, o link que o José Quintas postou.
Os link do Antonio(fivetech) estão defasados, é de março de 2016 houve mudanças significativas de lá para cá.
E o default das versões oficiais 3.2 e 3.4 é usar o Visual C da (M$) ou o GCC (GNU) o BCC seja qual for a versão não é indicado, embora muitas pessoas ainda continuem usando. Um dos motivos é que o BCC 5 ou 7 não compila a QT fora os BUG da versão velha da BCC 5 que impedem arquivos .RC de rodarem no windows 10.

Ele queria completo com todas as libs, pra modo console e não só para o minigui.

Use o link indicado pelo Quintas, https://github.com/harbour/core
Mais abaixo tem esse link.
http://sourceforge.net/projects/harbour ... e/download
É o lugar oficial, vem com todas as principais opções ativadas.

Saudações,
Itamar M. Lins Jr.

[Kapiaba]

Obg. Mister Itamar, como uso Fivewin com xHarbour, o último build do xHarbour, veio com problemas, e não baixei, estou usando a versão que o Liñares recomendou antes da atualização.

Mas, meu maior problema, é enviar email pelo office.com da microsoft, o senhor tem alguma solução mesmo que seja em Harbour, pois via CDO com xHarbour, não vai de jeito nenhum.

PS.: o Culik me recomendou, usar a HB_SENDMAIL.PRG, mas, meu nivel de burrice não conseguiu entender bulhufas da HB_SENDMAIL.PRG do xHarbour. kkkkkkkkkkkkkkkkkkkkkkkkkkk

Em tempo: Temos Problemas com o server 2003, Usando CDO e gmail.com o senhor sabe algo sobre isto?

Obg. abs.

[Itamar M. Lins Jr.]

Ola!
Está funcionando usando o TIP_MAILSEND Harbour 3.4. //tip_MailSend() (This version started from Luiz's original work on SendMail())

Você pode mudar para o Fivewin com o Harbour 3.2, ai sim testar.
Ou se não tiver jeito, procurar a versão do xHarbour que antes funcionava e verificar a diferença dos fontes do hb_sendmail() e reportar lá no forum deles.
A ultima atualização do xHarbour é essa:

Código: Selecionar todos

2016-11-23 11:24 UTC-0600 Ron Pinkas <ron.pinkas/at/xharbour.com>
   * source/vm/hvm.c
     ! Fixed gpf trap in hb_vmQuit() - afill of s_aStatics did not verify type array.

O problema é que o xHarbour está sem poder compilar isto:

-TP -Foobj\vc\inetssl.obj contrib\tipssl\inetssl.c

Conforme mensagem do Ron Pinkas.

Código: Selecionar todos

Hi,

Could someone HELP me resolve the following:

	CL -D__WIN32__ -D_HAVE_SQLITE_CONFIG_H -DHAVE_CONFIG_H -DHARBOUR_CONF -DOPENSSL_NO_DEPRECATED -DHB_VM_ALL -DHB_FM_DL_ALLOC  -I"C:\OpenSSL\include" -I"C:\Program Files\Advantage 11.10\acesdk" -I"contrib\rddsql" -I"contrib\hbsqlit3" -I"source\rtl\zlib" -I"contrib\pdflite\include" -I"contrib\png" -I"contrib\tiff" -I"contrib\jpeg" -I"include" -I"C:\Program Files\Microsoft Visual Studio 14.0\vc\include" -I"obj\vc" -I"contrib\sixapi\include" -I"contrib\freeimage\include" -I"contrib\gd\include" -I"contrib\xwt\include" -I"contrib\xwt\src\xwt_win"  -c -GA -Gs -EHsc -nologo -Otyb1  -W4 -wd4127 -wd4054 -wd4055 -MT  /Zi /DHB_FM_STATISTICS /D_CRT_SECURE_NO_DEPRECATE -TP -Foobj\vc\inetssl.obj contrib\tipssl\inetssl.c
inetssl.c
C:\OpenSSL\include\openssl/ossl_typ.h(176): error C2143: syntax error: missing ')' before 'constant'
C:\OpenSSL\include\openssl/ossl_typ.h(176): error C2143: syntax error: missing ';' before 'constant'
C:\OpenSSL\include\openssl/ossl_typ.h(176): error C2040: 'LPCSTR': 'ocsp_response_st' differs in levels of indirection from 'const CHAR *'
C:\OpenSSL\include\openssl/ossl_typ.h(176): error C2059: syntax error: ')'

O Ron Pinkas é um dos Gurus do xHarbour... e não sabe resolver isso...

Saudações,
Itamar M. Lins Jr.

[Kapiaba]

Obg. Mister Itamar. Isto não me ajudou em nada. Mesmo assim agradeço o seu tempo em responder.

O que quero, se possivel, é exemplos de uso da HB_SENDMAIL.PRG enviando emails para o outlook.com da Microsoft.

Melhor ainda, se via CDO, pois é o que eu uso atualmente, e funciona bem, inclusive com gmail.com, mas com o outlook.com, não sei o segredo mas não vai.

Obg. abs.

[Itamar M. Lins Jr.]

Ola!

o senhor tem alguma solução mesmo que seja em Harbour, pois via CDO com xHarbour, não vai de jeito nenhum.

é exemplos de uso da HB_SENDMAIL.PRG enviando emails para o outlook.com da Microsoft.

Pois, não adianta colocar aqui o exemplo, uma vez que vc não vai conseguir usar com a versão atual do xHarbour.
O problema não é o exemplo que vc está pedido, entenda que o xHarbour(versão que vc usa) não permite usar TLS!
Foram alguns meses que reportei esse problema no fork do Viktor até ele conseguir resolver o problema, cabe o pessoal do xHarbour copiar(borrowed) do Harbour 3.4 a solução.

Saudações,
Itamar M. Lins Jr.

[Kapiaba]

Mister Itamar, pode ser em Harbour, eu tenho o Harbour 3.2 instalado aqui, se eu entender o exemplo, faço um .exe à parte para quem tem outlook.com da microsoft, possa enviar emails desse provedor.

Obg. abs.

[Itamar M. Lins Jr.]

Ola, Blz!
Exemplo do 3.4 pois ainda não foi atualizado no 3.2.
Simples assim!!!

Código: Selecionar todos

/* Copyright 2009 Viktor Szakats (vszakats.net/harbour) */

#require "hbssl"
#require "hbtip"

#if ! defined( __HBSCRIPT__HBSHELL )
REQUEST __HBEXTERN__HBSSL__
#endif

#include "simpleio.ch"

PROCEDURE Main( cFrom, cPassword, cTo, cHost )

   LOCAL nPort
   LOCAL lSTARTTLS := .F.

   IF ! tip_SSL()
      ? "Error: Requires SSL support"
      RETURN
   ENDIF

   hb_default( @cFrom    , "<from@example.net>" )
   hb_default( @cPassword, "password" )
   hb_default( @cTo      , "to@example.com" )
   hb_default( @cHost    , "localhost" )

   cHost := Lower( cHost )

   /* SMTPS works with SSL/TLS on port 465 and with STARTTLS
      on port 587. STARTTLS mode is fully automatic and requires
      SSL/TLS be disabled at first (it will be activated on
      request after STARTTLS command) */

   DO CASE
   CASE cHost == "apple" .OR. "@icloud.com" $ cFrom .OR. "@mac.com" $ cFrom .OR. "@me.com" $ cFrom
      cHost := "smtp.mail.me.com"; lSTARTTLS := .T.
   CASE cHost == "fastmail" .OR. "@fastmail.com" $ cFrom .OR. "@fastmail.fm" $ cFrom
      cHost := "smtp.fastmail.com"
   CASE cHost == "gmx.net" .OR. "@gmx.net" $ cFrom .OR. "@gmx.ch" $ cFrom .OR. "@gmx.de" $ cFrom
      cHost := "mail.gmx.net"; lSTARTTLS := .T.
   CASE cHost == "google" .OR. "@gmail.com" $ cFrom .OR. "@googlemail.com" $ cFrom
      cHost := "smtp.gmail.com"
   CASE cHost == "mail.ru" .OR. "@mail.ru" $ cFrom
      cHost := "smtp.mail.ru"
   CASE cHost == "netease" .OR. "@163.com" $ cFrom
      cHost := "smtp.163.com"
   CASE cHost == "office365"
      cHost := "smtp.office365.com"; lSTARTTLS := .T.
   CASE cHost == "outlook" .OR. "@outlook.com" $ cFrom .OR. "@hotmail.com" $ cFrom
      cHost := "smtp-mail.outlook.com"; lSTARTTLS := .T.
   CASE cHost == "sina" .OR. "@sina.com" $ cFrom
      cHost := "smtp.vip.sina.com"
   CASE cHost == "uol" .OR. "@uol.com.br" $ cFrom
      cHost := "smtps.uol.com.br"
   CASE cHost == "yahoo" .OR. "@yahoo.com" $ cFrom
      cHost := "smtp.mail.yahoo.com"
   CASE ":" $ cHost
      IF TUrl():New( cHost ):nPort != -1
         nPort := TUrl():New( cHost ):nPort
      ENDIF
      lSTARTTLS := ( nPort == 587 )
      cHost := TUrl():New( cHost ):cServer
   ENDCASE

   hb_default( @nPort, iif( lSTARTTLS, 587, 465 ) )

   ? "Host:", cHost, hb_ntos( nPort ), iif( lSTARTTLS, "(STARTTLS)", "" )

   ? tip_MailSend( ;
      cHost, ;
      nPort, ;
      cFrom, ;
      cTo, ;
      NIL /* CC */, ;
      {} /* BCC */, ;
      "test: body", ;
      "test: subject", ;
      NIL /* attachment */, ;
      cFrom, ;
      cPassword, ;
      "", ;
      NIL /* nPriority */, ;
      NIL /* lRead */, ;
      .T. /* lTrace */, ;
      .F., ;
      NIL /* lNoAuth */, ;
      NIL /* nTimeOut */, ;
      NIL /* cReplyTo */, ;
      nPort == 465 )

   RETURN

Saudações,
Itamar M. Lins Jr.