FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Maria_Connect() com SSL - Resolvido
Posts: 23
Joined: Fri Apr 18, 2008 02:41 PM

Maria_Connect() com SSL - Resolvido

Posted: Thu Jul 09, 2026 02:47 PM

Buenos días a todos.

¿Alguien sabe si puedo conectarme a un servidor MySQL que requiere SSL?

Pregunto porque estoy creando un servidor en Amazon y requiere la opción SSL.

No he podido acceder sin SSL.

Saludos cordiales.

Alexandre Pereira

Harbour 3.2 - FWH - 25.12 - MSVC - VsCODE - Win11

Posts: 8716
Joined: Tue Dec 20, 2005 07:36 PM

Re: Maria_Connect() com SSL

Posted: Thu Jul 09, 2026 04:30 PM

Alex, mira se ayuda:

https://fivetechsupport.com/forums/viewtopic.php?p=272375&sid=8e57e792ddbc6031de83de6b24e873a0#p272375

#include "fivewin.ch"

function Main()
   local oCn
   local cServer   := "://servidor.com"
   local cDatabase := "sua_base_dados"
   local cUser     := "seu_usuario"
   local cPassword := "sua_senha"
   local lUseSSL   := .T. 

   // A string de conexão concatena os parâmetros. 
   // Para usar SSL, o booleano lUseSSL deve ser passado como .T.
   // Exemplo: "host,db,user,password"
   local cConnectString := cServer + "," + cDatabase + "," + cUser + "," + cPassword

   oCn := MsgRun( "Conectando ao banco com SSL...", "MYSQL", ;
        { || maria_Connect( cConnectString, lUseSSL ) } )

   if oCn == nil
      MsgStop( "Falha na conexão com o servidor!" )
   else
      MsgInfo( "Conectado com sucesso! Versão: " + oCn:cServerInfo )
      oCn:Close()
   endif

return nil

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 23
Joined: Fri Apr 18, 2008 02:41 PM

Re: Maria_Connect() com SSL

Posted: Thu Jul 09, 2026 04:52 PM

Não deu.

Minha porta é diferente e a string não me permitiu colocar.

Pelo menos não vi.

Eu faço assim:

oConexao := Maria_Connect( hConfig["host"], ; hConfig["db"], ; hConfig["user"], ; hConfig["pass"], ; hConfig["port"], .f. )

Alexandre Pereira

Harbour 3.2 - FWH - 25.12 - MSVC - VsCODE - Win11

Posts: 8716
Joined: Tue Dec 20, 2005 07:36 PM

Re: Maria_Connect() com SSL

Posted: Thu Jul 09, 2026 04:58 PM

Qual é a sua Porta? A IA não é tudo de bom? hahahahahahaha.

Mira/look:

#include "fivewin.ch"

function Main()
    local oCn
    local cServer   := "your_server_ip"
    local cDb       := "your_database"
    local cUser     := "your_user"
    local cPassword := "your_password"
    local nPort     := 3306 // Standard port
    local lUseSSL   := .t.  // Enables SSL

// Syntax: maria_Connect( cServer, cDb, cUser, cPassword, [nPort], [lUseSSL], [cCharSet], [cOptions] )
oCn := maria_Connect( cServer, cDb, cUser, cPassword, nPort, lUseSSL )

if oCn == nil
    MsgStop( "Connection Failed! Check your SSL/TLS certificates.", "Error" )
else
    MsgInfo( "Connected via SSL! Server Info: " + oCn:cServerInfo, "Success" )
    oCn:Close()
endif

return nil

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 23
Joined: Fri Apr 18, 2008 02:41 PM

Re: Maria_Connect() com SSL

Posted: Thu Jul 09, 2026 05:01 PM

Então João.

Eu estou achando que o problema é outro. Eu já tinha passado como .T. no ultimo campo mas não conectou.

kkkkk

A IA é tudo de bom, mas nem ela conseguiu me ajudar nisso.

Alexandre Pereira

Harbour 3.2 - FWH - 25.12 - MSVC - VsCODE - Win11

Posts: 8716
Joined: Tue Dec 20, 2005 07:36 PM

Re: Maria_Connect() com SSL

Posted: Thu Jul 09, 2026 05:05 PM

Você incluiu o OpenSSL?

C:\XHBBCC77\lib\tipssl.lib           +
C:\XHBBCC77\lib\libssl.lib           +
C:\XHBBCC77\lib\libcrypto.lib        +

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 23
Joined: Fri Apr 18, 2008 02:41 PM

Re: Maria_Connect() com SSL

Posted: Thu Jul 09, 2026 08:19 PM

O problema era a DLL.

Peguei a mais nova no site do MariaDB/connectors e agora está conectando.

Valeu.

Alexandre Pereira

Harbour 3.2 - FWH - 25.12 - MSVC - VsCODE - Win11

Continue the discussion