evandro Posted January 19, 2017 Report Share Posted January 19, 2017 Olá, Tem alguma rotina, classe, etc. para ler os emails sem passar pelo Outlook ou similar? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 20, 2017 Report Share Posted January 20, 2017 Bom dia, \samples\testpop3.prg foi criado para isto, mas, desafortunadamente não funciona. Veja se este código te ajuda, se bem, que acho dificil que funcione. http://forums.fivetechsupport.com/viewtopic.php?p=27921#27921 Abs Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted January 27, 2017 Report Share Posted January 27, 2017 Evandro, a patir dos exemplos do FW eu criei minhas rotinas, funciona tudo bem, mas só habilito para clientes que usam hospedagem no meu servidor para evitar problemas com os gratuitos. Usa a classe Tpop3 do fw. Segue o código: //======================================================================================================= Function PegaoMail( ) local oOutMail, oIP, mailport := 587, mailauth LOCAL host, usuario, senha, pasta mailport := 587 mailauth := .T. if ! pegaconf(@host, @usuario, @senha ) // le os dados no arquivo de configuração msgstop("Dados insuficientes para transmissão!","Falha fatal!") return .f. end WsaStartUp() oIP :=GETHOSTBYNAME("mail.representantes.info") // aqui entra o servidor de email //msginfo(oIP,"oIP") If oIP = "0.0.0.0" DelLog:=.f. WsaCleanUp() msgAlert("E-mail não pode ser lido neste instante.","Atenção!") return .f. End GetMail(host, usuario, senha) sysrefresh() return nil //----------------------------------------------------------------------------// function GetMail(host, usuario, senha) local oInMail, oIP :=GETHOSTBYNAME(host) oInMail = TPop3():New( oIP,, usuario, senha ) // mail server IP oInMail:lDelMsgs := .t. oInMail:lHeaderOnly := .f. oInMail:bConnecting = { || Monitor( "Conectando em "+oIP ) } oInMail:bConnected = { || Monitor( "Conectado" ) } oInMail:bDone = { || ReadEmails( oInMail ) } oInMail:GetMail() return nil //----------------------------------------------------------------------------// function ReadEmails( oInMail ) local n for n = 1 to Len( oInMail:aMsgs ) salvamail( oInMail:aMsgs[ n ] ) next return nil //------------------------------------------------------------ function salvamail(mensagem) LOCAL cFrom := cSubject := cDate := "" , y := mlcount(mensagem) if y>0 for i = 1 to y if subs(memoline(mensagem,100,i),1,5) = "From:" cFrom := alltrim(subs(memoline(mensagem,100,i),6) ) elseif subs(memoline(mensagem,100,i),1,8) = "Subject:" cSubject := alltrim(subs(memoline(mensagem,100,i),26) ) elseif subs(memoline(mensagem,100,i),1,5) = "Date:" cDate := alltrim(subs(memoline(mensagem,100,i),12) ) end if !empty(cFrom) .and. !empty(cSubject) .and. !empty(cDate) exit end next SELE CPRINBOX //dbf onde salva as msgs if Appb_dbf (0) // faz um append blank Replace CPRINBOX->datamsg with cDate,; CPRINBOX->remetente with cFrom,; CPRINBOX->assunto with cSubject,; CPRINBOX->data with date(),; CPRINBOX->texto with mensagem Lock_dbf (DB_FREE_TMP) else SndPlaySound( "OPS.wav",1 ) end end return nil evandro 1 Quote Link to comment Share on other sites More sharing options...
evandro Posted January 31, 2017 Author Report Share Posted January 31, 2017 Olá, Infelizmente não consegui fazer funcionar. Simplesmente não acontece nada. Com os dados inválidos, entra no aviso e sai. Ou seja, os dados ( servidor, senha, etc.) dever estar corretos. Alguma sugestão? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 31, 2017 Report Share Posted January 31, 2017 Evandro, teste esta possibilidade, com o novo compilador xharbour para BCC72 e veja se funciona, porfa. http://forums.fivetechsupport.com/viewtopic.php?f=3&t=26316&hilit=Reading+emails Abs. Quote Link to comment Share on other sites More sharing options...
gilmer Posted February 1, 2017 Report Share Posted February 1, 2017 Segue um exemplo em Harbour usando SSL, necessário ter a lib HBSSL.LIB (este exemplo é só para uso de servidores POP que necessitam de SSL, a maioria ) #require "hbssl" #require "hbtip" REQUEST __HBEXTERN__HBSSL__ Function Main() LOCAL oPop, oPart, aParts, oTIpMail, aEmails, i LOCAL cUser :="login@server.com",cPass := "suasenha" Local oUrl1 ? tip_SSL() wait cUser := StrTran( cUser, "@", "&at;" ) oUrl1 := tUrl():New( "pops://" + cUser + ":" + cPass + "@pop.mail.yahoo.com.br" ) oUrl1:cUserid := Strtran( cUser, "&at;", "@" ) opop:= tIPClientPOP():New( oUrl1, .f. ) IF .NOT. oPop:open() ? "Connection error:", oPop:lastErrorMessage() QUIT ELSE aEMails := oPop:retrieveAll(.f.) oPop:close() ENDIF ? "numero tota de e-mails",Len( aEMails ) wait FOR i:=1 TO Len( aEMails ) oTIpMail := aEmails ? i ? "-------------------------------------------" ? oTIpMail:getFieldPart( "From" ) ? oTIpMail:getFieldPart( "Subject" ) ? oTIpMail:getBody() wait /*IF oTIpMail:isMultiPart() // Retrieve all parts of a multipart message aParts := oTIpMail:getMultiParts() FOR EACH oPart IN aParts IF .NOT. Empty( oPart:getFileName() ) // This is a file attachment. Store it in the TMP folder. IF oPart:detachFile( "C:\lixo\" ) ? "File written: C:\lixo\" + oPart:getFileName() ENDIF ELSE ? oPart:getBody() ENDIF NEXT ELSE // simple mail message ? oTIpMail:getBody() ENDIF*/ NEXT RETURN Nil Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 1, 2017 Report Share Posted February 1, 2017 Gilmer, SOCORRRROOOOOOOOOOOOOOOOOO... kkkkkkkkkkkkkkkkkkk Error: Unresolved external '_ERR_load_PEM_strings' referenced from C:\HB1612\LIB \HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_PrivateKey' referenced from C:\HB1612\ LIB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_PUBKEY' referenced from C:\HB1612\LIB\ HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_RSAPrivateKey' referenced from C:\HB16 12\LIB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_RSAPublicKey' referenced from C:\HB161 2\LIB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_RSA_PUBKEY' referenced from C:\HB1612\ LIB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_DSAPrivateKey' referenced from C:\HB16 12\LIB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_DSA_PUBKEY' referenced from C:\HB1612\ LIB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_DSAparams' referenced from C:\HB1612\L IB\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_DHparams' referenced from C:\HB1612\LI B\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_X509' referenced from C:\HB1612\LIB\HB SSL.LIB|pem Error: Unresolved external '_PEM_read_bio_X509_AUX' referenced from C:\HB1612\LI B\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_X509_REQ' referenced from C:\HB1612\LI B\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_X509_CRL' referenced from C:\HB1612\LI B\HBSSL.LIB|pem Error: Unresolved external '_PEM_read_bio_PKCS7' referenced from C:\HB1612\LIB\H BSSL.LIB|pem Error: Unresolved external '_EVP_EncodeInit' referenced from C:\HB1612\LIB\HBSSL .LIB|evpenc Error: Unresolved external '_EVP_EncodeUpdate' referenced from C:\HB1612\LIB\HBS SL.LIB|evpenc Error: Unresolved external '_EVP_EncodeFinal' referenced from C:\HB1612\LIB\HBSS L.LIB|evpenc Error: Unresolved external '_EVP_DecodeInit' referenced from C:\HB1612\LIB\HBSSL .LIB|evpenc Error: Unresolved external '_EVP_DecodeUpdate' referenced from C:\HB1612\LIB\HBS SL.LIB|evpenc Error: Unresolved external '_EVP_DecodeFinal' referenced from C:\HB1612\LIB\HBSS L.LIB|evpenc Error: Unresolved external '_SSL_read' referenced from C:\HB1612\LIB\HBSSL.LIB|s sl_sock Error: Unresolved external '_SSL_write' referenced from C:\HB1612\LIB\HBSSL.LIB| ssl_sock Error: Unresolved external '_SSL_ctrl' referenced from C:\HB1612\LIB\HBSSL.LIB|s sl_sock Error: Unresolved external '_SSL_set_fd' referenced from C:\HB1612\LIB\HBSSL.LIB |ssl_sock Error: Unresolved external '_SSL_accept' referenced from C:\HB1612\LIB\HBSSL.LIB |ssl_sock Error: Unresolved external '_SSL_connect' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl_sock Error: Unresolved external '_SSL_get_error' referenced from C:\HB1612\LIB\HBSSL. LIB|ssl_sock Error: Unresolved external '_SSL_library_init' referenced from C:\HB1612\LIB\HBS SL.LIB|ssl Error: Unresolved external '_SSL_load_error_strings' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSLeay_version' referenced from C:\HB1612\LIB\HBSSL .LIB|ssl Error: Unresolved external '_SSLeay' referenced from C:\HB1612\LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_free' referenced from C:\HB1612\LIB\HBSSL.LIB|s sl Error: Unresolved external '_SSL_CTX_free' referenced from C:\HB1612\LIB\HBSSL.L IB|sslctx Error: Unresolved external '_SSLv3_method' referenced from C:\HB1612\LIB\HBSSL.L IB|sslctx Error: Unresolved external '_SSLv3_server_method' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_SSLv3_client_method' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_TLSv1_method' referenced from C:\HB1612\LIB\HBSSL.L IB|sslctx Error: Unresolved external '_TLSv1_server_method' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_TLSv1_client_method' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_SSLv23_server_method' referenced from C:\HB1612\LIB \HBSSL.LIB|sslctx Error: Unresolved external '_SSLv23_client_method' referenced from C:\HB1612\LIB \HBSSL.LIB|sslctx Error: Unresolved external '_SSLv23_method' referenced from C:\HB1612\LIB\HBSSL. LIB|sslctx Error: Unresolved external '_SSL_CTX_new' referenced from C:\HB1612\LIB\HBSSL.LI B|sslctx Error: Unresolved external '_SSL_CTX_set_ssl_version' referenced from C:\HB1612\ LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_get_timeout' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_set_timeout' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_set_cipher_list' referenced from C:\HB1612\ LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_add_session' referenced from C:\HB1612\LIB\ HBSSL.LIB|sslctx Error: Unresolved external '_SSL_SESSION_free' referenced from C:\HB1612\LIB\HBS SL.LIB|sslsess Error: Unresolved external '_SSL_SESSION_new' referenced from C:\HB1612\LIB\HBSS L.LIB|sslsess Error: Unresolved external '_SSL_SESSION_set_time' referenced from C:\HB1612\LIB \HBSSL.LIB|sslsess Error: Unresolved external '_SSL_SESSION_set_timeout' referenced from C:\HB1612\ LIB\HBSSL.LIB|sslsess Error: Unresolved external '_SSL_SESSION_get_time' referenced from C:\HB1612\LIB \HBSSL.LIB|sslsess Error: Unresolved external '_SSL_SESSION_get_timeout' referenced from C:\HB1612\ LIB\HBSSL.LIB|sslsess Error: Unresolved external '_SSL_CTX_remove_session' referenced from C:\HB1612\L IB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_flush_sessions' referenced from C:\HB1612\L IB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_check_private_key' referenced from C:\HB161 2\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_get_quiet_shutdown' referenced from C:\HB16 12\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_get_verify_mode' referenced from C:\HB1612\ LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_set_quiet_shutdown' referenced from C:\HB16 12\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_certificate' referenced from C:\HB1612\ LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_add_client_CA' referenced from C:\HB1612\LI B\HBSSL.LIB|sslctx Error: Unresolved external '_X509_free' referenced from C:\HB1612\LIB\HBSSL.LIB| x509 Error: Unresolved external '_X509_get_subject_name' referenced from C:\HB1612\LI B\HBSSL.LIB|x509 Error: Unresolved external '_X509_get_issuer_name' referenced from C:\HB1612\LIB \HBSSL.LIB|x509 Error: Unresolved external '_X509_NAME_oneline' referenced from C:\HB1612\LIB\HB SSL.LIB|x509 Error: Unresolved external '_SSL_CTX_ctrl' referenced from C:\HB1612\LIB\HBSSL.L IB|sslctx Error: Unresolved external '_SSL_CTX_use_certificate_file' referenced from C:\HB 1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_certificate_chain_file' referenced from C:\HB1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_PrivateKey_file' referenced from C:\HB1 612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_RSAPrivateKey_file' referenced from C:\ HB1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_RSAPrivateKey_ASN1' referenced from C:\ HB1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_PrivateKey_ASN1' referenced from C:\HB1 612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_certificate_ASN1' referenced from C:\HB 1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_use_PrivateKey' referenced from C:\HB1612\L IB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_load_verify_locations' referenced from C:\H B1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_CTX_set_default_verify_paths' referenced from C :\HB1612\LIB\HBSSL.LIB|sslctx Error: Unresolved external '_SSL_new' referenced from C:\HB1612\LIB\HBSSL.LIB|ss l Error: Unresolved external '_SSL_dup' referenced from C:\HB1612\LIB\HBSSL.LIB|ss l Error: Unresolved external '_SSL_clear' referenced from C:\HB1612\LIB\HBSSL.LIB| ssl Error: Unresolved external '_SSL_pending' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_set_bio' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_get_rbio' referenced from C:\HB1612\LIB\HBSSL.L IB|ssl Error: Unresolved external '_SSL_get_wbio' referenced from C:\HB1612\LIB\HBSSL.L IB|ssl Error: Unresolved external '_SSL_shutdown' referenced from C:\HB1612\LIB\HBSSL.L IB|ssl Error: Unresolved external '_SSL_version' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_get_version' referenced from C:\HB1612\LIB\HBSS L.LIB|ssl Error: Unresolved external '_SSL_do_handshake' referenced from C:\HB1612\LIB\HBS SL.LIB|ssl Error: Unresolved external '_SSL_renegotiate' referenced from C:\HB1612\LIB\HBSS L.LIB|ssl Error: Unresolved external '_SSL_set_rfd' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_set_wfd' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_peek' referenced from C:\HB1612\LIB\HBSSL.LIB|s sl Error: Unresolved external '_SSL_want' referenced from C:\HB1612\LIB\HBSSL.LIB|s sl Error: Unresolved external '_SSL_set_ssl_method' referenced from C:\HB1612\LIB\H BSSL.LIB|ssl Error: Unresolved external '_SSL_get_ssl_method' referenced from C:\HB1612\LIB\H BSSL.LIB|ssl Error: Unresolved external '_SSL_CIPHER_get_bits' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_cipher_list' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_set_cipher_list' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_CIPHER_get_name' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_current_cipher' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_CIPHER_get_version' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_copy_session_id' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_shared_ciphers' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_alert_desc_string' referenced from C:\HB1612\LI B\HBSSL.LIB|ssl Error: Unresolved external '_SSL_alert_desc_string_long' referenced from C:\HB16 12\LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_alert_type_string' referenced from C:\HB1612\LI B\HBSSL.LIB|ssl Error: Unresolved external '_SSL_alert_type_string_long' referenced from C:\HB16 12\LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_rstate_string' referenced from C:\HB1612\LIB\HB SSL.LIB|ssl Error: Unresolved external '_SSL_check_private_key' referenced from C:\HB1612\LI B\HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_fd' referenced from C:\HB1612\LIB\HBSSL.LIB |ssl Error: Unresolved external '_SSL_get_rfd' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_get_wfd' referenced from C:\HB1612\LIB\HBSSL.LI B|ssl Error: Unresolved external '_SSL_get_quiet_shutdown' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_shutdown' referenced from C:\HB1612\LIB\HBS SL.LIB|ssl Error: Unresolved external '_SSL_get_verify_mode' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_state' referenced from C:\HB1612\LIB\HBSSL.LIB| ssl Error: Unresolved external '_SSL_get_default_timeout' referenced from C:\HB1612\ LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_verify_result' referenced from C:\HB1612\LI B\HBSSL.LIB|ssl Error: Unresolved external '_SSL_set_accept_state' referenced from C:\HB1612\LIB \HBSSL.LIB|ssl Error: Unresolved external '_SSL_set_connect_state' referenced from C:\HB1612\LI B\HBSSL.LIB|ssl Error: Unresolved external '_SSL_set_quiet_shutdown' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_set_read_ahead' referenced from C:\HB1612\LIB\H BSSL.LIB|ssl Error: Unresolved external '_SSL_set_shutdown' referenced from C:\HB1612\LIB\HBS SL.LIB|ssl Error: Unresolved external '_SSL_set_verify_result' referenced from C:\HB1612\LI B\HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_certificate' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_peer_certificate' referenced from C:\HB1612 \LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_use_certificate' referenced from C:\HB1612\LIB\ HBSSL.LIB|ssl Error: Unresolved external '_SSL_add_client_CA' referenced from C:\HB1612\LIB\HB SSL.LIB|ssl Error: Unresolved external '_SSL_use_certificate_file' referenced from C:\HB1612 \LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_use_PrivateKey_file' referenced from C:\HB1612\ LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_use_RSAPrivateKey_file' referenced from C:\HB16 12\LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_get_ciphers' referenced from C:\HB1612\LIB\HBSS L.LIB|ssl Error: Unresolved external '_SSL_get_client_CA_list' referenced from C:\HB1612\L IB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_load_client_CA_file' referenced from C:\HB1612\ LIB\HBSSL.LIB|ssl Error: Unresolved external '_sk_num' referenced from C:\HB1612\LIB\HBSSL.LIB|ssl Error: Unresolved external '_sk_value' referenced from C:\HB1612\LIB\HBSSL.LIB|s sl Error: Unresolved external '_SSL_use_RSAPrivateKey_ASN1' referenced from C:\HB16 12\LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_use_PrivateKey_ASN1' referenced from C:\HB1612\ LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_use_certificate_ASN1' referenced from C:\HB1612 \LIB\HBSSL.LIB|ssl Error: Unresolved external '_SSL_use_PrivateKey' referenced from C:\HB1612\LIB\H BSSL.LIB|ssl Error: Unresolved external '_SSL_set_msg_callback' referenced from C:\HB1612\LIB \HBSSL.LIB|ssl Error: Unresolved external '_RAND_seed' referenced from C:\HB1612\LIB\HBSSL.LIB| rand Error: Unresolved external '_RAND_add' referenced from C:\HB1612\LIB\HBSSL.LIB|r and Error: Unresolved external '_RAND_status' referenced from C:\HB1612\LIB\HBSSL.LI B|rand Error: Unresolved external '_RAND_event' referenced from C:\HB1612\LIB\HBSSL.LIB |rand Error: Unresolved external '_RAND_screen' referenced from C:\HB1612\LIB\HBSSL.LI B|rand Error: Unresolved external '_SSL_CIPHER_description' referenced from C:\HB1612\L IB\HBSSL.LIB|sslciph Error: Unable to perform link * Linking errors * C:\FWH1612\samples> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 1, 2017 Report Share Posted February 1, 2017 Nao vai nem a PAU Juvenal. /* * Gilmer escreveu: *Segue um exemplo em Harbour usando SSL, necessário ter a lib HBSSL.LIB *(este exemplo é só para uso de servidores POP que necessitam de SSL, a maioria :) ) */ #include "FiveWin.ch" #require "hbssl" #require "hbtip" REQUEST __HBEXTERN__HBSSL__ FUNCTION Main() LOCAL oPop, oPart, aParts, oTIpMail, aEmails, i //LOCAL cUser :="login@server.com",cPass := "suasenha" LOCAL cUser :="kapiabafwh@yahoo.com", cPass := "karacasmanos" Local oUrl1 ? tip_SSL() Syswait() cUser := StrTran( cUser, "@", "&at;" ) oUrl1 := tUrl():New( "pops://" + cUser + ":" + cPass + "@pop.mail.yahoo.com.br" ) oUrl1:cUserid := Strtran( cUser, "&at;", "@" ) opop:= tIPClientPOP():New( oUrl1, .f. ) IF .NOT. oPop:open() ? "Connection error:", oPop:lastErrorMessage() QUIT ELSE aEMails := oPop:retrieveAll(.f.) oPop:close() ENDIF ? "numero tota de e-mails",Len( aEMails ) Syswait() FOR i:=1 TO Len( aEMails ) oTIpMail := aEmails ? i //? "-------------------------------------------" ? oTIpMail:getFieldPart( "From" ) ? oTIpMail:getFieldPart( "Subject" ) ? oTIpMail:getBody() Syswait() /*IF oTIpMail:isMultiPart() // Retrieve all parts of a multipart message aParts := oTIpMail:getMultiParts() FOR EACH oPart IN aParts IF .NOT. Empty( oPart:getFileName() ) // This is a file attachment. Store it in the TMP folder. IF oPart:detachFile( "C:\lixo\" ) ? "File written: C:\lixo\" + oPart:getFileName() ENDIF ELSE ? oPart:getBody() ENDIF NEXT ELSE // simple mail message ? oTIpMail:getBody() ENDIF*/ NEXT RETURN Nil Quote Link to comment Share on other sites More sharing options...
gilmer Posted February 1, 2017 Report Share Posted February 1, 2017 Faltas as libs do OpenSSL (libeay32.lib e ssleay32.lib) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 2, 2017 Report Share Posted February 2, 2017 Gilmer, não compila, veja estou esquecendo alguma LIB porfa. @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for Harbour 16.12 - Dec. 2016 Harbour development power ³Ü ECHO ³ (c) FiveTech 1993-2016 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST if "%FWDIR%" == "" set FWDIR=.\.. if "%HBDIR%" == "" set HBDIR=c:\HB1612 rem if "%2" == "/b" set GT=gtwin rem if not "%2" == "/b" set GT=gtgui set GT=gtgui ECHO Compiling... set hdir=%HBDIR% set hdirl=%hdir%\lib set fwh=%FWDIR% if exist c:\bcc7 set bcdir=c:\bcc7 if exist c:\bcc64 set bcdir=c:\bcc64 %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log if errorlevel 1 goto COMPILEERRORS @type comp.log @type warnings.log echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32.exe -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1 rem IF EXIST %1.rc %bcdir%\bin\cgrc.exe -r -m -I%bcdir%\include -I%bcdir%\include\windows\sdk %1 rem IF EXIST %1.rc %vcdir%\bin\rc -r -d__FLAT__ %1 echo %bcdir%\lib\c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fwh%\lib\FiveH.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib + >> b32.bc echo %hdirl%\hbwin.lib + >> b32.bc echo %hdirl%\gtgui.lib + >> b32.bc echo %hdirl%\hbrtl.lib + >> b32.bc echo %hdirl%\hbvm.lib + >> b32.bc echo %hdirl%\hblang.lib + >> b32.bc echo %hdirl%\hbmacro.lib + >> b32.bc echo %hdirl%\hbrdd.lib + >> b32.bc echo %hdirl%\rddntx.lib + >> b32.bc echo %hdirl%\rddcdx.lib + >> b32.bc echo %hdirl%\rddfpt.lib + >> b32.bc echo %hdirl%\hbsix.lib + >> b32.bc echo %hdirl%\hbdebug.lib + >> b32.bc echo %hdirl%\hbcommon.lib + >> b32.bc echo %hdirl%\hbpp.lib + >> b32.bc echo %hdirl%\hbcpage.lib + >> b32.bc echo %hdirl%\hbcplr.lib + >> b32.bc echo %hdirl%\hbct.lib + >> b32.bc echo %hdirl%\hbpcre.lib + >> b32.bc echo %hdirl%\xhb.lib + >> b32.bc echo %hdirl%\hbziparc.lib + >> b32.bc echo %hdirl%\hbmzip.lib + >> b32.bc echo %hdirl%\hbzlib.lib + >> b32.bc echo %hdirl%\minizip.lib + >> b32.bc echo %hdirl%\png.lib + >> b32.bc echo %hdirl%\hbusrrdd.lib + >> b32.bc echo %hdirl%\hbtip.lib + >> b32.bc echo %hdirl%\hbssl.lib + >> b32.bc echo %hdirl%\hbssls.lib + >> b32.bc echo %hdirl%\libeay32.lib + >> b32.bc echo %hdirl%\ssleay32.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD rem echo %hdirl%\rddads.lib + >> b32.bc rem echo %hdirl%\Ace32.lib + >> b32.bc echo %fwh%\lib\dolphin.lib + >> b32.bc rem echo %fwh%\lib\libmysql.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\uuid.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\ws2_32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * rem signtool.exe sign /fd sha256 %1.exe %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :COMPILEERRORS @type comp.log @type warnings.log ECHO * Compile errors * GOTO EXIT :LINKERROR ECHO * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT Quote Link to comment Share on other sites More sharing options...
gilmer Posted February 2, 2017 Report Share Posted February 2, 2017 Estes erros é falta das libs que falei. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 2, 2017 Report Share Posted February 2, 2017 Não são essa? echo %hdirl%\hbssl.lib + >> b32.bc echo %hdirl%\hbssls.lib + >> b32.bc echo %hdirl%\libeay32.lib + >> b32.bc echo %hdirl%\ssleay32.lib + >> b32.bc [/code Pode ser a minha versão das LIBs? Tens ai para me enviar no zé skype? Obg. abs.] Quote Link to comment Share on other sites More sharing options...
gilmer Posted February 2, 2017 Report Share Posted February 2, 2017 Harbour é apenas hbssl.lib e as 2 que eu passei para você,verifique se existe realmente as libs. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 2, 2017 Report Share Posted February 2, 2017 É por isso que eu adoro o xHarbour... kkkkkkkkkkkk estão todas ai... Pô!!! Pasta de C:\HB1612\lib 09/03/2016 21:17 76.288 bz2.lib 09/03/2016 21:17 122.368 expat.lib 09/03/2016 21:15 5.120 gtcgi.lib 09/03/2016 21:15 9.728 gtgui.lib 09/03/2016 21:15 12.288 gtpca.lib 09/03/2016 21:15 10.752 gtstd.lib 09/03/2016 21:15 21.504 gtwin.lib 09/03/2016 21:19 517.632 gtwvg.lib 09/03/2016 21:15 60.416 gtwvt.lib 09/03/2016 21:18 31.744 hbamf.lib 09/03/2016 21:18 22.528 hbblat.lib 09/03/2016 21:18 17.408 hbblink.lib 09/03/2016 21:17 12.288 hbbz2.lib 09/03/2016 21:18 12.800 hbbz2io.lib 09/03/2016 21:18 7.168 hbcomio.lib 09/03/2016 21:18 7.168 hbcomm.lib 09/03/2016 21:14 150.528 hbcommon.lib 09/03/2016 21:16 758.784 hbcpage.lib 09/03/2016 21:14 337.408 hbcplr.lib 09/03/2016 21:17 47.104 hbct-bcc.lib 09/03/2016 21:17 359.424 hbct.lib 09/03/2016 21:16 201.216 hbdebug.lib 09/03/2016 21:18 35.840 hbexpat.lib 09/03/2016 21:16 100.352 hbextern.lib 09/03/2016 21:17 55.296 hbformat.lib 09/03/2016 21:18 18.944 hbfoxpro.lib 09/03/2016 21:17 28.160 hbfship.lib 09/03/2016 21:18 3.584 hbgt-bcc.lib 09/03/2016 21:18 32.768 hbgt.lib 09/03/2016 21:18 8.704 hbgzio.lib 09/03/2016 21:18 109.056 hbhpdf.lib 09/03/2016 21:16 22.528 hbhsx.lib 09/03/2016 21:18 61.440 hbhttpd.lib 09/03/2016 21:16 185.344 hblang.lib 09/03/2016 21:18 6.144 hblzf.lib 09/03/2016 21:15 68.096 hbmacro.lib 09/03/2016 21:14 7.168 hbmaindllh.lib 09/03/2016 21:14 29.184 hbmaindllp.lib 09/03/2016 21:14 2.560 hbmainstd.lib 09/03/2016 21:14 7.168 hbmainwin.lib 09/03/2016 21:18 14.848 hbmemio.lib 09/03/2016 21:18 112.128 hbmisc.lib 09/03/2016 21:18 6.656 hbmlzo.lib 09/03/2016 21:18 29.184 hbmxml.lib 09/03/2016 21:17 25.600 hbmzip.lib 09/03/2016 21:17 54.272 hbnetio.lib 09/03/2016 21:18 361.472 hbnf.lib 09/03/2016 21:14 8.192 hbnortl.lib 09/03/2016 21:16 6.656 hbnulrdd.lib 09/03/2016 21:18 36.352 hbodbc.lib 09/03/2016 21:18 6.656 hboslib.lib 09/03/2016 21:14 270.336 hbpcre.lib 09/03/2016 21:18 6.656 hbpipeio.lib 09/03/2016 21:14 259.072 hbpp.lib 09/03/2016 21:16 247.808 hbrdd.lib 09/03/2016 21:15 2.394.624 hbrtl.lib 09/03/2016 21:16 56.320 hbsix.lib 09/03/2016 21:18 8.192 hbsms.lib 09/03/2016 21:18 51.200 hbsqlit3.lib 03/12/2016 22:22 247.808 hbssl.lib 03/12/2016 22:22 247.808 hbssls.lib 09/03/2016 21:18 7.168 hbtcpio.lib 09/03/2016 21:18 8.192 hbtest.lib 09/03/2016 21:18 12.800 hbtinymt.lib 09/03/2016 21:17 209.920 hbtip.lib 09/03/2016 21:18 15.872 hbtpathy.lib 09/03/2016 21:16 48.128 hbuddall.lib 09/03/2016 21:16 46.080 hbusrrdd.lib 09/03/2016 21:14 462.336 hbvm.lib 09/03/2016 21:14 603.136 hbvmmt.lib 09/03/2016 21:17 360.960 hbwin.lib 09/03/2016 21:18 10.240 hbxdiff.lib 09/03/2016 21:17 70.656 hbxpp.lib 09/03/2016 21:18 71.168 hbzebra.lib 09/03/2016 21:18 13.312 hbziparc.lib 09/03/2016 21:14 76.288 hbzlib.lib 09/03/2016 21:14 264.192 jpeg.lib 03/12/2016 22:22 415.744 libeay32.lib 09/03/2016 21:17 790.016 libhpdf.lib 09/03/2016 21:17 4.608 lzf.lib 09/03/2016 21:17 6.144 minilzo.lib 09/03/2016 21:17 32.256 minizip.lib 09/03/2016 21:17 47.616 mxml.lib 09/03/2016 21:14 265.728 png.lib 09/03/2016 21:18 15.360 rddbm.lib 09/03/2016 21:16 139.776 rddcdx.lib 09/03/2016 21:16 41.472 rddfpt.lib 09/03/2016 21:16 59.392 rddnsx.lib 09/03/2016 21:16 55.808 rddntx.lib 09/03/2016 21:17 25.088 rddsql.lib 09/03/2016 21:18 15.360 sddodbc.lib 09/03/2016 21:18 9.216 sddsqlt3.lib 09/03/2016 21:17 514.560 sqlite3.lib 03/12/2016 22:22 30.208 ssleay32.lib 09/03/2016 21:14 345.088 tiff.lib 09/03/2016 21:17 6.144 tinymt.lib 06/08/2014 22:42 152.576 tipssl.lib 09/03/2016 21:17 54.272 xdiff.lib 09/03/2016 21:17 586.752 xhb.lib 99 arquivo(s) 13.929.472 bytes Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.