Página 1 de 2
Harbour 3.2 urgente !!
Enviado: 05 Dez 2016 20:25
por 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
Harbour 3.2 urgente !!
Enviado: 05 Dez 2016 21:30
por winca
Lo encontre por aqui:
)
ww2.whosaway.com:4296/1207/hb_src_bcc71_1611071350.zip
Por si le sirve a alguien.
Saludos,
Winca
Harbour 3.2 urgente !!
Enviado: 05 Dez 2016 22:08
por 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
Harbour 3.2 urgente !!
Enviado: 05 Dez 2016 23:12
por 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
Harbour 3.2 urgente !!
Enviado: 05 Dez 2016 23:15
por JoséQuintas
Harbour 3.2 urgente !!
Enviado: 07 Dez 2016 22:35
por winca
Don José: Gracias por responder .
Disculpen la demora, pero estaba fuera.
Voy a mirar los link.
Saludos,
Winca
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 09:59
por Kapiaba
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 10:03
por Kapiaba
Mister Quintas, o senhor consegue enviar email neste provedor?
Obg. abs.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 10:35
por 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.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 10:53
por 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.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 11:13
por 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.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 11:25
por 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.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 11:37
por 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.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 11:42
por 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.
Harbour 3.2 urgente !!
Enviado: 08 Dez 2016 11:57
por 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.