Maria_Connect() com SSL - Resolvido

[alex2002]

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.

[karinha]

Alex, mira se ayuda:

viewtopic.php?p=272375&sid=8e57e792ddbc ... a0#p272375

Code: Select all | Expand

#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.

[alex2002]

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. )

[karinha]

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

Mira/look:

Code: Select all | Expand

#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.

[alex2002]

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.

[karinha]

Você incluiu o OpenSSL?

Code: Select all | Expand

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

Regards, saludos.

[alex2002]

O problema era a DLL.

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

Valeu.