HMGforum.com

esgici wrote:

chrisjx2002 wrote:It lacks the lib hbvpdf.. Where can I find this library?

<hmg>\HARBOUR\lib\win\mingw\libhbvpdf.a

chrisjx2002 wrote:I think it would be a good idea to include the libhbvpdf in the next hmg release. Then it would be possible to compile the samples report.advanced.

Carlos Reis wrote:
Hi rathinagiri
thanks for the reply
So I have many dozens of prg's to modify
Then I wonder to know your solution to not modify so many prg's

function sql(dbo1,qstr)
local table := nil
local currow := nil
local tablearr := {}
local rowarr := {}
local curdateformat := set(_SET_DATEFORMAT)
local i := 0
local j := 0
local aTinyIntFields := {}
set date ansi
table := dbo1:query(qstr)
if table:neterr()
   msgstop(table:error())
   table:destroy()
   set(_SET_DATEFORMAT,curdateformat)
   return tablearr
else
   if table:lastrec() > 0
      asize( aTinyIntFields, 0 )
      firstrow := table:getrow( 1 )
      for j := 1 to len( table:aFieldStruct )
         if table:aFieldStruct[ j, 4 ] == 1 // tiny integer
            aadd( aTinyIntFields, j )
         endif
      next j
      asize(tablearr,0)
      for i := 1 to table:lastrec()
         asize(rowarr,0)     
         currow := table:getrow(i)
         for j := 1 to table:fcount()         
            aadd(rowarr,currow:fieldget(j))
         next j
         for j := 1 to len( aTinyIntFields )
            if rowarr[ aTinyIntFields[ j ] ] > 0
               rowarr[ aTinyIntFields[ j ] ] := .t.
            else
               rowarr[ aTinyIntFields[ j ] ] := .f.
            endif
         next j
         aadd(tablearr,aclone(rowarr))
      next i
   endif
   table:destroy()
   set(_SET_DATEFORMAT,curdateformat)
   return tablearr
endif
return tablearr

rathinagiri wrote:

Carlos Reis wrote:
Hi rathinagiri
thanks for the reply
So I have many dozens of prg's to modify
Then I wonder to know your solution to not modify so many prg's

Hi,

Actually I use HMGMySQL Bridge distributed with HMG. You can see the HMGSQL folder for details.

I show the respective lines here for you.

Code: Select all

function sql(dbo1,qstr)
local table := nil
local currow := nil
local tablearr := {}
local rowarr := {}
local curdateformat := set(_SET_DATEFORMAT)
local i := 0
local j := 0
local aTinyIntFields := {}
set date ansi
table := dbo1:query(qstr)
if table:neterr()
   msgstop(table:error())
   table:destroy()
   set(_SET_DATEFORMAT,curdateformat)
   return tablearr
else
   if table:lastrec() > 0
      asize( aTinyIntFields, 0 )
      firstrow := table:getrow( 1 )
      for j := 1 to len( table:aFieldStruct )
         if table:aFieldStruct[ j, 4 ] == 1 // tiny integer
            aadd( aTinyIntFields, j )
         endif
      next j
      asize(tablearr,0)
      for i := 1 to table:lastrec()
         asize(rowarr,0)     
         currow := table:getrow(i)
         for j := 1 to table:fcount()         
            aadd(rowarr,currow:fieldget(j))
         next j
         for j := 1 to len( aTinyIntFields )
            if rowarr[ aTinyIntFields[ j ] ] > 0
               rowarr[ aTinyIntFields[ j ] ] := .t.
            else
               rowarr[ aTinyIntFields[ j ] ] := .f.
            endif
         next j
         aadd(tablearr,aclone(rowarr))
      next i
   endif
   table:destroy()
   set(_SET_DATEFORMAT,curdateformat)
   return tablearr
endif
return tablearr

Carlos Reis wrote:
Now the problem is another
The "hb_sendMail" function is not working in this new version. Has there been any change in this function?

# ***** include this lines *****
libs=hbssl
libs=libeay32
libs=ssleay32
Libs=hbtip
Libs=hbtipssl
# ***** include this lines *****

danielmaximiliano wrote:

Carlos Reis wrote:
Now the problem is another
The "hb_sendMail" function is not working in this new version. Has there been any change in this function?

Hola Carlos / Hi Carlos

intente con HMG.3.0.46 / Try With HMG.3.0.46


agregue esta lineas en / Add this lines in c:\hmg.3.0.46\hmg.hbc

line #49

Code: Select all

# ***** include this lines *****
libs=hbssl
libs=libeay32
libs=ssleay32
Libs=hbtip
Libs=hbtipssl
# ***** include this lines *****

Mire aqui / Loook here
ultimo Post / Last post

http://hmgforum.com/viewtopic.php?f=9&t=2559&start=10

Carlos Reis wrote: hello Daniel !
thanks for listening my problem.
I downloaded the version HMG 3.0.46 changed the file c: \ hmg.3.0.46 \ hmg.hbc like you said.
I compiled the program again, but the result was the same.
it could not send the email.
but if I compile the same program with a previous version (HMG.3.0.35), works fine and sends the email
what can I be doing wrong?

the settings on the computer are exactly the same in both cases only changes the version of HMG

danielmaximiliano wrote:

Carlos Reis wrote: hello Daniel !
thanks for listening my problem.
I downloaded the version HMG 3.0.46 changed the file c: \ hmg.3.0.46 \ hmg.hbc like you said.
I compiled the program again, but the result was the same.
it could not send the email.
but if I compile the same program with a previous version (HMG.3.0.35), works fine and sends the email
what can I be doing wrong?

the settings on the computer are exactly the same in both cases only changes the version of HMG

Hi Carlos:
the latest version of HMG is installed in c: \ hmg.3.0.46, is that writing was introduced error.
Send me your code as an example so you can test the operation here.
in my case I have perfect operation with other email servers with Gmail
SSL support.

Carlos Reis wrote:
Hello Daniel
the routine of sending email is inserted into a much larger program.
so I quickly created a simple example that works on the old version HMG 3.0.35
but does not work in the new version HMG 3.0.46
Here I send the routine EnvEmail.prg:

/*
 * $Id: gmail.prg 18434 2012-11-04 13:48:43Z vszakats $
 */

/*
 * Copyright 2009 Viktor Szakats (harbour syenar.net)
 * www - http://harbour-project.org
 */

#require "hbssl"
#require "hbtip"

REQUEST __HBEXTERN__HBSSL__

#include "simpleio.ch"

PROCEDURE Main( cFrom, cPassword, cTo )

   IF ! tip_SSL()
      ? "Error: Requires SSL support"
      RETURN
   ENDIF

   hb_default( @cFrom    , "user@gmail.com" )
   hb_default( @cPassword, "1234567890" )
   hb_default( @cTo      , "danielmaximiliano@yahoo.com.ar" )

   ? hb_SendMail( ;
      "smtp.gmail.com", ;
      465, ;
      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 */, ;
      .T. )

   RETURN

Pop3.log
20121114-15:46:25 :INETCONNECT( origem, 123456789 )
>> <pointer> <<

20121114-15:46:25 :INETERRORCODE( <pointer> )