Ayuda con Dolphin

[EBM]

Estoy tratando de probar el ejemplo que viene con FWH12 09 de Dolphin y al ejecutarlo me manda el mensaje Windows de que la aplicacion TESTDOL.EXE ha dejado de funcionar y tengo que cerrar la aplicacion, el problema esta al intentar conectarse con el servidor en la siguiente orden:

TRY

MsgStop( "Estoy aqui" )

oServer := TDolphinSrv():New( "localhost", ;
"root" , ;
" " , ;
3306, , "ameca" )


CATCH oErr
MsgStop( "Hubo un error" )
RETURN NIL
END

Tengo corriendo el servidor de mysql sin problemas ya que puedo accesarlo desde Eagle y con el cliente de mysql.

Alguna idea de por que no funciona??

Saludos

LCP Eduardo Borondón Muñiz

FWH 1209
Harbour 3.2.0 rev 17516
Windows 7
bcc 582

[wmormar]

Eduardo,

Generalmente cuando envia ese GPF es porque no hay conexion con el servidor, o algún parámetro es incorrecto.

Además es parecido a Eagle1, por lo menos, en la forma de conexión, tienes que tener la DLL libmysql.dll en la carpeta de tu EXE.

[MarioG]

Eduardo:
Acabo de generar testdol y con algunos ajustes (asignacion de database y tabla), anduvo, aunque previamente me encontre con que:

Code: Select all

PROCEDURE DataBrowse( oServer, oWnd )

   LOCAL oQry
   LOCAL oDlg
   LOCAL oBrw
   LOCAL oData, oCol
   lOCAL oErr
//   LOCAL oServer
 

oServer está duplicado

podés probar de esta manera (quizás tengas un mensaje de error, que te oriente mejor):

Code: Select all

   // Verificar DB y Tablas de la Applicación
   CONNECT oSrv HOST     "localhost" ;
                USER     "root" ;
                PASSWORD "" ;
                PORT     3306 ;
                FLAGS    0 ;
                DATABASE "ameca" ;
                ON ERROR nMyErr:= InfoError( Self, nError, lInternal )
...

static function InfoError( oServer, nError, lInternal )
local cText := "        Mensaje de Error"         + CRLF + ;
               "================================" + CRLF + ;
               +"'"+oServer:ErrorTxt()+"'"        + CRLF + ;
               "ERROR No: " + Str( nError )       + CRLF + ;
               "Internal: " + If( lInternal, "Yes", "No" )

   Alert( cText,, "Atención!",, IDI_HAND, TRUE )

   return( nError )
// Fin
 

[EBM]

Gracias por responder Willian y Mario

Pude solucionar el problema cambiando localhost por 127.0.0.1, por alguna razon no acepta localhost, pero ya funcionó.

Gracias por su interes y ayuda.

Saludos !!!

LCP Eduardo Borondón Muñiz

[wmormar]

EBM,

Resulta que he tenido muchos reportes y se me paso, en windows 7 en algunos equipos (muchos) el problema es que localhost no lo soporta, sino 127.0.0.1

[EBM]

William,

Supongo que debe ser algun problema con tdolphin por que con Eagle si se conecta con localhost, pero es simplemente cambiar a 127.0.0.1. Tendrias algun ejemplo mas amplio del uso de tdolphin que me pudieras facilitar ??

Saludos y Gracias

LCP Eduardo Borondón Muñiz

[MarioG]

Eduardo;
lo mejor es que ingreses al Blog de Daniel, y mediante SVN podras bajar todo lo referente a la clase, incluye una carpeta con variados ejemplos
http://tdolphin.blogspot.com.ar/2010/06 ... rting.html

Saludos

[sysctrl2]

Tampoco en Win Vista ULTIMATE, no acepta el LOCALHOST,

saludos.