xHarbour.org updated!

Post Reply
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

Enrico I managed to compile, but this version of xharbour does not accept https? I have a system that communicates with a website for registering cargo for transport and I urgently need to access it via https, I used to access it with http normally but the website now only accepts secure protocol (tls 1.2 and above). What is needed? Thank you for your help!
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

karinha wrote:Artiaga, ¿qué necesitas "sacar" de la página web del banco central de Venezuela? ¿No necesitas una clave o autorización?

Code: Select all | Expand

// C:\FWH..\SAMPLES\WARTIAG3.PRG

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cCnpj

   cCnpj := "00000000000000"

   SiteCnpjFazenda( cCnpj )

RETURN NIL

FUNCTION SiteCnpjFazenda( cCnpj )

   LOCAL cUrl

   /*
   cUrl := [http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp?cnpj=] + ;
      StrZero( Val( cCnpj ), 14 )
   */
   cUrl := "https://www.bcv.org.ve" // falta algo????

   ShellExecute(GetActiveWindow(),"open",'"'+cUrl+'"', 0)

RETURN NIL

// FIN - kapiabafwh@gmail.com
 
Regards, saludos.
Karinha had an error in the compilation but I managed to resolve it. The example I posted is for testing purposes only. I need to use https to register the load and it cannot be opened by opening a browser page, understand? I need to be from within the system to enter a document and they process it and return a code to be recorded in the database. I used xharbour 1.2.1 with http normally but they changed it to https so I thought that by updating xharbour I could use it but still giving the error when calling https. Thanks!
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

Enrico Maria Giordano wrote:
karinha wrote:Enrico, no acepta https.
You have to setup your compiler for SSL. Please search in this forum my instructions about that.
Enrico, thank you very much for your help. Through your post I managed to create the libs and put the dll in the executable folder. It is compiling normally but the IF oCli:Open() line is returning false, is there a different new parameter to use https? Thank you again. Code below:

TRY
oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' )
CATCH
CurSorArrow()
MsgInfo('Erro ao criar a conexão','Erro')
RETURN(.F.)
END

IF !EMPTY( oUrl )
oCli = TIPClientHttp():New( oUrl )
IF !EMPTY( oCli )
oCli:nConnTimeout = -1
IF oCli:Open() <============================ this line returns false.
hQuery["mod"] := "login"
hQuery["comp"] := "5"
hQuery["user"] := "login"
hQuery["pass"] := "senha"
oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)'
IF !oCli:PostMultiPart(hQuery)
CurSorArrow()
MsgInfo(oCli:lastErrorMessage,'Erro')
ELSE
cNFSeResp := oCli:ReadAll()
RespC := oCli:GetCookies() // Captura cookie
ENDIF
oCli:Close()
ENDIF
ENDIF
ENDIF
Top
User avatar
Enrico Maria Giordano
Posts: 8728
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:
Contact Enrico Maria Giordano

Re: xHarbour.org updated!

Post by Enrico Maria Giordano »

I need a reduced and self-contained sample that I can compile and execute here. In the meantime, you can try assigning these:

Code: Select all | Expand

oCli:nDefaultPort = nPort
oCli:lSSL = .T.
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

Enrico Maria Giordano wrote:I need a reduced and self-contained sample that I can compile and execute here. In the meantime, you can try assigning these:

Code: Select all | Expand

oCli:nDefaultPort = nPort
oCli:lSSL = .T.
Thanks Enrico.
The service integration manual does not say to define the port.

Code below:


#Include "Fivewin.ch"


Function Main()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()


inicio := 0


Set Century on
Set Date To British
Set Epoch to 1960
Set Multiple On
Set Deleted On


DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999"

@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION Averba()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL


ACTIVATE DIALOG oDlg CENTERED

Return nil



Static Function Averba()
LOCAL oUrl, oCli
LOCAL hQUery := Hash()

TRY
oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' )
CATCH
CurSorArrow()
MsgInfo('Conection Error','Erro')
RETURN(.F.)
END

IF !EMPTY( oUrl )
oCli = TIPClientHttp():New( oUrl )
IF !EMPTY( oCli )
oCli:nConnTimeout = -1
oCli:lSSL = .T.
IF oCli:Open()
hQuery["mod"] := "login"
hQuery["comp"] := "5"
hQuery["user"] := "xxxxxxxxxxxx"
hQuery["pass"] := "xxxxxxxxxxxx"
oCli:cUserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'
IF !oCli:PostMultiPart(hQuery)
CurSorArrow()
MsgInfo(oCli:lastErrorMessage,'Error')
ELSE
cNFSeResp := oCli:ReadAll()
RespC := oCli:GetCookies() // Get cookie
ENDIF
oCli:Close()
ENDIF
ENDIF
ENDIF

msginfo(cNFSeResp)
msginfo(RespC)

Return Nil
Top
User avatar
Enrico Maria Giordano
Posts: 8728
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:
Contact Enrico Maria Giordano

Re: xHarbour.org updated!

Post by Enrico Maria Giordano »

Sorry, I can't execute your sample. Anyway, I forgot to mention that you have to replace tip.lib with:

Code: Select all | Expand

tipssl.lib
libssl.lib
libcrypto.lib
Try and let me know.
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

Enrico Maria Giordano wrote:Sorry, I can't execute your sample. Anyway, I forgot to mention that you have to replace tip.lib with:

Code: Select all | Expand

tipssl.lib
libssl.lib
libcrypto.lib
Try and let me know.
Enrico,

If I remove tip.lib and leave only tipssl.lib I get the following errors.

Turbo Incremental Link 6.98 Copyright (c) 1997-2023 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_TIP_TIMESTAMP' referenced from D:\SISTEMAS\LINKFLEX\OBJ\FUNCTE.OBJ
Error: Unresolved external '_HB_FUN_TURL' referenced from D:\SISTEMAS\LINKFLEX\OBJ\PROG232.OBJ
Error: Unresolved external '_HB_FUN_HB_BASE64' referenced from D:\LANG\FWH1811\XH1.3.0\LIB\TIPSSL.LIB|client1
Error: Unresolved external '_HB_FUN_TIPENCODERURL_ENCODE' referenced from D:\LANG\FWH1811\XH1.3.0\LIB\TIPSSL.LIB|httpcln1
Error: Unresolved external '_HB_FUN_TIPENCODERBASE64' referenced from D:\LANG\FWH1811\XH1.3.0\LIB\TIPSSL.LIB|httpcln1
Error: Unable to perform link

Thanks!
Top
User avatar
Enrico Maria Giordano
Posts: 8728
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:
Contact Enrico Maria Giordano

Re: xHarbour.org updated!

Post by Enrico Maria Giordano »

Have you put libssl.lib and libcrypto.lib too?
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: xHarbour.org updated!

Post by karinha »

https://docwiki.embarcadero.com/RADStud ... _for_Win32

Arteaga, ejemplo de como generar las *.LIBs

Code: Select all | Expand

// https://docwiki.embarcadero.com/RADStudio/Alexandria/en/IMPLIB.EXE,_the_Import_Library_Tool_for_Win32

/*
IMPLIB <options> <LibName>[.lib] [<DefFiles>... | <DLLs>... ]^
       [@<ResponseFile> | <sourcename> ] [<sourcename> ...]
*/

C:\BCC76\BIN\IMPLIB ACBrMail32.lib ACBrMail32.dll
C:\BCC76\BIN\IMPLIB tipssl.lib     tipssl.dll
C:\BCC76\BIN\IMPLIB libssl.lib     libssl.dll
C:\BCC76\BIN\IMPLIB libcrypto.lib  libcrypto.dll
 
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

Enrico Maria Giordano wrote:Have you put libssl.lib and libcrypto.lib too?
Yes Enrico! My hbmake file:


#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif

RECURSE= NO

SHELL =
COMPRESS = NO
EXTERNALLIB = YES
XFWH = YES
FILESTOADD = 5
WARNINGLEVEL = 0
USERDEFINE =
USERINCLUDE =
USERLIBS = D:\lang\fwh1811\bcc760\lib\psdk\msimg32.lib D:\lang\fwh1811\bcc760\lib\psdk\psapi.lib D:\lang\fwh1811\bcc760\lib\psk\shell32.lib
EDITOR = notepad
FWH = D:\lang\fwh1811\fwh1811
CGI = NO
GUI = YES
MT = NO
OBJ = obj
PROJECT = transp32.exe $(PR)
OBJFILES = $(OBJ)\TRANSP.obj $(OBJ)\CALC.obj $(OBJ)\FASTREPH.obj $(OBJ)\FUNCTE.obj $(OBJ)\FUNMDFE.obj //
$(OBJ)\GO_CODE.obj $(OBJ)\INT25.obj $(OBJ)\PROG01.obj $(OBJ)\PROG02.obj $(OBJ)\PROG03.obj //
$(OBJ)\PROG04.obj $(OBJ)\PROG05.obj $(OBJ)\PROG06.obj $(OBJ)\PROG07.obj $(OBJ)\PROG08.obj //
$(OBJ)\PROG09.obj $(OBJ)\PROG10.obj $(OBJ)\PROG100.obj $(OBJ)\PROG101.obj $(OBJ)\PROG102.obj //
$(OBJ)\PROG104.obj $(OBJ)\PROG105.obj $(OBJ)\PROG106.obj $(OBJ)\PROG107.obj $(OBJ)\PROG108.obj //
$(OBJ)\PROG109.obj $(OBJ)\PROG11.obj $(OBJ)\PROG110.obj $(OBJ)\PROG111.obj $(OBJ)\PROG112.obj //
$(OBJ)\PROG113.obj $(OBJ)\PROG114.obj $(OBJ)\PROG115.obj $(OBJ)\PROG116.obj $(OBJ)\PROG117.obj //
$(OBJ)\PROG118.obj $(OBJ)\PROG119.obj $(OBJ)\PROG12.obj $(OBJ)\PROG120.obj $(OBJ)\PROG13.obj //
$(OBJ)\PROG14.obj $(OBJ)\PROG140.obj $(OBJ)\PROG144.obj $(OBJ)\PROG146.obj $(OBJ)\PROG147.obj //
$(OBJ)\PROG148.obj $(OBJ)\PROG149.obj $(OBJ)\PROG15.obj $(OBJ)\PROG150.obj $(OBJ)\PROG151.obj //
$(OBJ)\PROG152.obj $(OBJ)\PROG153.obj $(OBJ)\PROG154.obj $(OBJ)\PROG155.obj $(OBJ)\PROG156.obj //
$(OBJ)\PROG157.obj $(OBJ)\PROG159.obj $(OBJ)\PROG16.obj $(OBJ)\PROG160.obj $(OBJ)\PROG161.obj //
$(OBJ)\PROG162.obj $(OBJ)\PROG164.obj $(OBJ)\PROG165.obj $(OBJ)\PROG168.obj $(OBJ)\PROG169.obj //
$(OBJ)\PROG17.obj $(OBJ)\PROG170.obj $(OBJ)\PROG171.obj $(OBJ)\PROG172.obj $(OBJ)\PROG173.obj //
$(OBJ)\PROG174.obj $(OBJ)\PROG175.obj $(OBJ)\PROG176.obj $(OBJ)\PROG177.obj $(OBJ)\PROG178.obj //
$(OBJ)\PROG179.obj $(OBJ)\PROG18.obj $(OBJ)\PROG180.obj $(OBJ)\PROG181.obj $(OBJ)\PROG182.obj //
$(OBJ)\PROG183.obj $(OBJ)\PROG184.obj $(OBJ)\PROG185.obj $(OBJ)\PROG186.obj $(OBJ)\PROG187.obj //
$(OBJ)\PROG188.obj $(OBJ)\PROG189.obj $(OBJ)\PROG19.obj $(OBJ)\PROG190.obj $(OBJ)\PROG191.obj //
$(OBJ)\PROG192.obj $(OBJ)\PROG193.obj $(OBJ)\PROG194.obj $(OBJ)\PROG195.obj $(OBJ)\PROG196.obj //
$(OBJ)\PROG197.obj $(OBJ)\PROG198.obj $(OBJ)\PROG199.obj $(OBJ)\PROG20.obj $(OBJ)\PROG21.obj //
$(OBJ)\PROG214.obj $(OBJ)\PROG215.obj $(OBJ)\PROG216.obj $(OBJ)\PROG217.obj $(OBJ)\PROG219.obj //
$(OBJ)\PROG22.obj $(OBJ)\PROG220.obj $(OBJ)\PROG221.obj $(OBJ)\PROG222.obj $(OBJ)\PROG223.obj //
$(OBJ)\PROG224.obj $(OBJ)\PROG226.obj $(OBJ)\PROG227.obj $(OBJ)\PROG228.obj $(OBJ)\PROG229.obj //
$(OBJ)\PROG23.obj $(OBJ)\PROG230.obj $(OBJ)\PROG232.obj $(OBJ)\PROG233.obj $(OBJ)\PROG234.obj //
$(OBJ)\PROG235.obj $(OBJ)\PROG25.obj $(OBJ)\PROG26.obj $(OBJ)\PROG27.obj $(OBJ)\PROG28.obj //
$(OBJ)\PROG29.obj $(OBJ)\PROG30.obj $(OBJ)\PROG31.obj $(OBJ)\PROG32.obj $(OBJ)\PROG33.obj //
$(OBJ)\PROG34.obj $(OBJ)\PROG35.obj $(OBJ)\PROG36.obj $(OBJ)\PROG37.obj $(OBJ)\PROG38.obj //
$(OBJ)\PROG39.obj $(OBJ)\PROG40.obj $(OBJ)\PROG41.obj $(OBJ)\PROG42.obj $(OBJ)\PROG43.obj //
$(OBJ)\PROG45.obj $(OBJ)\PROG47.obj $(OBJ)\PROG48.obj $(OBJ)\PROG49.obj $(OBJ)\PROG50.obj //
$(OBJ)\PROG51.obj $(OBJ)\PROG52.obj $(OBJ)\PROG53.obj $(OBJ)\PROG56.obj $(OBJ)\PROG57.obj //
$(OBJ)\PROG58.obj $(OBJ)\PROG59.obj $(OBJ)\PROG60.obj $(OBJ)\PROG61.obj $(OBJ)\PROG62.obj //
$(OBJ)\PROG63.obj $(OBJ)\PROG64.obj $(OBJ)\PROG65.obj $(OBJ)\PROG66.obj $(OBJ)\PROG67.obj //
$(OBJ)\PROG68.obj $(OBJ)\PROG69.obj $(OBJ)\PROG70.obj $(OBJ)\PROG71.obj $(OBJ)\PROG72.obj //
$(OBJ)\PROG73.obj $(OBJ)\PROG74.obj $(OBJ)\PROG75.obj $(OBJ)\PROG76.obj $(OBJ)\PROG77.obj //
$(OBJ)\PROG78.obj $(OBJ)\PROG79.obj $(OBJ)\PROG80.obj $(OBJ)\PROG81.obj $(OBJ)\PROG82.obj //
$(OBJ)\PROG83.obj $(OBJ)\PROG84.obj $(OBJ)\PROG85.obj $(OBJ)\PROG86.obj $(OBJ)\PROG87.obj //
$(OBJ)\PROG88.obj $(OBJ)\PROG89.obj $(OBJ)\PROG90.obj $(OBJ)\PROG91.obj $(OBJ)\PROG92.obj //
$(OBJ)\PROG93.obj $(OBJ)\PROG94.obj $(OBJ)\PROG95.obj $(OBJ)\PROG96.obj $(OBJ)\PROG97.obj //
$(OBJ)\PROG98.obj $(OBJ)\PROG99.obj $(OBJ)\PROG998.obj $(OBJ)\PROG999.obj $(OBJ)\SSAY.obj //
$(OBJ)\TDOSPRN.obj $(OBJ)\TGET.obj $(OBJ)\TSMTP.obj $(OBJ)\TWORDHB.obj $(OBJ)\TXML.obj //
$(OBJ)\TXTPREV.obj $(OB)
PRGFILES = TRANSP.PRG CALC.PRG FASTREPH.PRG FUNCTE.PRG FUNMDFE.PRG //
GO_CODE.PRG INT25.PRG PROG01.PRG PROG02.PRG PROG03.PRG //
PROG04.PRG PROG05.PRG PROG06.PRG PROG07.PRG PROG08.PRG //
PROG09.PRG PROG10.PRG PROG100.PRG PROG101.PRG PROG102.PRG //
PROG104.PRG PROG105.PRG PROG106.PRG PROG107.PRG PROG108.PRG //
PROG109.PRG PROG11.PRG PROG110.PRG PROG111.PRG PROG112.PRG //
PROG113.PRG PROG114.PRG PROG115.PRG PROG116.PRG PROG117.PRG //
PROG118.PRG PROG119.PRG PROG12.PRG PROG120.PRG PROG13.PRG //
PROG14.PRG PROG140.PRG PROG144.PRG PROG146.PRG PROG147.PRG //
PROG148.PRG PROG149.PRG PROG15.PRG PROG150.PRG PROG151.PRG //
PROG152.PRG PROG153.PRG PROG154.PRG PROG155.PRG PROG156.PRG //
PROG157.PRG PROG159.PRG PROG16.PRG PROG160.PRG PROG161.PRG //
PROG162.PRG PROG164.PRG PROG165.PRG PROG168.PRG PROG169.PRG //
PROG17.PRG PROG170.PRG PROG171.PRG PROG172.PRG PROG173.PRG //
PROG174.PRG PROG175.PRG PROG176.PRG PROG177.PRG PROG178.PRG //
PROG179.PRG PROG18.PRG PROG180.PRG PROG181.PRG PROG182.PRG //
PROG183.PRG PROG184.PRG PROG185.PRG PROG186.PRG PROG187.PRG //
PROG188.PRG PROG189.PRG PROG19.PRG PROG190.PRG PROG191.PRG //
PROG192.PRG PROG193.PRG PROG194.PRG PROG195.PRG PROG196.PRG //
PROG197.PRG PROG198.PRG PROG199.PRG PROG20.PRG PROG21.PRG //
PROG214.PRG PROG215.PRG PROG216.PRG PROG217.PRG PROG219.PRG //
PROG22.PRG PROG220.PRG PROG221.PRG PROG222.PRG PROG223.PRG //
PROG224.PRG PROG226.PRG PROG227.PRG PROG228.PRG PROG229.PRG //
PROG23.PRG PROG230.PRG PROG232.PRG PROG233.PRG PROG234.PRG //
PROG235.PRG PROG25.PRG PROG26.PRG PROG27.PRG PROG28.PRG //
PROG29.PRG PROG30.PRG PROG31.PRG PROG32.PRG PROG33.PRG //
PROG34.PRG PROG35.PRG PROG36.PRG PROG37.PRG PROG38.PRG //
PROG39.PRG PROG40.PRG PROG41.PRG PROG42.PRG PROG43.PRG //
PROG45.PRG PROG47.PRG PROG48.PRG PROG49.PRG PROG50.PRG //
PROG51.PRG PROG52.PRG PROG53.PRG PROG56.PRG PROG57.PRG //
PROG58.PRG PROG59.PRG PROG60.PRG PROG61.PRG PROG62.PRG //
PROG63.PRG PROG64.PRG PROG65.PRG PROG66.PRG PROG67.PRG //
PROG68.PRG PROG69.PRG PROG70.PRG PROG71.PRG PROG72.PRG //
PROG73.PRG PROG74.PRG PROG75.PRG PROG76.PRG PROG77.PRG //
PROG78.PRG PROG79.PRG PROG80.PRG PROG81.PRG PROG82.PRG //
PROG83.PRG PROG84.PRG PROG85.PRG PROG86.PRG PROG87.PRG //
PROG88.PRG PROG89.PRG PROG90.PRG PROG91.PRG PROG92.PRG //
PROG93.PRG PROG94.PRG PROG95.PRG PROG96.PRG PROG97.PRG //
PROG98.PRG PROG99.PRG PROG998.PRG PROG999.PRG SSAY.PRG //
TDOSPRN.PRG TGET.PRG TSMTP.PRG TWORDHB.PRG TXML.PRG //
TXTPREV.PRG $(PS)
OBJCFILES = $(OBC)
CFILES = $(CF)
RESFILES = telas.res telas1.res
RESDEPEN = telas.res telas1.res
TOPMODULE = TRANSP.PRG
LIBFILES = $(FWH)\lib\fivehx.lib $(FWH)\lib\fivehc.lib lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtgui.lib codepage.lib ct.lib tipssl.lib libssl.lib libcrypto.lib pcrepos.lib hsx.lib hbsix.lib zlib.lib libmisc.lib hbzip.lib
EXTLIBFILES =
DEFFILE =
HARBOURFLAGS = -w0
CFLAG1 = -OS $(SHELL) $(CFLAGS) -d -c -L$(HB_DIR)\lib;$(FWH)\lib
CFLAG2 = -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS =
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -aa -L$(FWH)\lib
IFLAGS =
LINKER = ilink32

ALLOBJ = c0w32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend

#DEPENDS

#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**

.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**

.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -I$(FWH)\include -o$* $**

.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<

#BUILD

$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(CC_DIR)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

karinha wrote:https://docwiki.embarcadero.com/RADStud ... _for_Win32

Arteaga, ejemplo de como generar las *.LIBs

Code: Select all | Expand

// https://docwiki.embarcadero.com/RADStudio/Alexandria/en/IMPLIB.EXE,_the_Import_Library_Tool_for_Win32

/*
IMPLIB <options> <LibName>[.lib] [<DefFiles>... | <DLLs>... ]^
       [@<ResponseFile> | <sourcename> ] [<sourcename> ...]
*/

C:\BCC76\BIN\IMPLIB ACBrMail32.lib ACBrMail32.dll
C:\BCC76\BIN\IMPLIB tipssl.lib     tipssl.dll
C:\BCC76\BIN\IMPLIB libssl.lib     libssl.dll
C:\BCC76\BIN\IMPLIB libcrypto.lib  libcrypto.dll
 
Regards, saludos.
Karinha, thanks but the libs were generated this way.
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: xHarbour.org updated!

Post by karinha »

Arteaga, mira si estas usando todas las LIBs:

Code: Select all | Expand

C:\XHBBCC76\lib\vm.Lib               +
C:\XHBBCC76\lib\rdd.Lib              +
C:\XHBBCC76\lib\common.Lib           +
C:\XHBBCC76\lib\rtl.Lib              +
C:\XHBBCC76\lib\lang.Lib             +
C:\XHBBCC76\lib\macro.Lib            +
C:\XHBBCC76\lib\hbsix.Lib            +
C:\XHBBCC76\lib\dbfntx.Lib           +
C:\XHBBCC76\lib\PcRepos.Lib          +
C:\XHBBCC76\lib\dbffpt.Lib           +
C:\XHBBCC76\lib\dbfcdx.Lib           +
C:\XHBBCC76\lib\hbzip.Lib            +
C:\XHBBCC76\lib\hbmzip.Lib           +
C:\XHBBCC76\lib\zlib.Lib             +
C:\XHBBCC76\lib\ct.Lib               +
C:\XHBBCC76\lib\gtgui.Lib            +
C:\XHBBCC76\lib\tip.Lib              +
C:\XHBBCC76\lib\hbzebra.Lib          +
C:\XHBBCC76\lib\codepage.Lib         +
C:\XHBBCC76\lib\png.Lib              +
C:\XHBBCC76\lib\pp.Lib               +
c:\XHBBCC76\lib\libcrypto.lib        +
c:\XHBBCC76\lib\libssl.lib           +
c:\XHBBCC76\lib\tipssl.lib           +
C:\BCC76\lib\cw32.Lib                +
C:\BCC76\lib\uuid.lib                +
C:\BCC76\lib\ws2_32.lib              +
C:\BCC76\lib\import32.lib            +
C:\BCC76\lib\psdk\msimg32.Lib        +
C:\BCC76\lib\psdk\odbc32.Lib         +
C:\BCC76\lib\psdk\rasapi32.Lib       +
C:\BCC76\lib\psdk\nddeapi.Lib        +
C:\BCC76\lib\psdk\psapi.Lib          +
C:\BCC76\lib\psdk\gdiplus.lib        +
C:\BCC76\lib\psdk\iphlpapi.Lib       +
C:\BCC76\lib\psdk\shell32.lib        +
C:\BCC76\lib\psdk\wininet.Lib        +
C:\BCC76\lib\import32.Lib
 
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

karinha wrote:Arteaga, mira si estas usando todas las LIBs:

Code: Select all | Expand

C:\XHBBCC76\lib\vm.Lib               +
C:\XHBBCC76\lib\rdd.Lib              +
C:\XHBBCC76\lib\common.Lib           +
C:\XHBBCC76\lib\rtl.Lib              +
C:\XHBBCC76\lib\lang.Lib             +
C:\XHBBCC76\lib\macro.Lib            +
C:\XHBBCC76\lib\hbsix.Lib            +
C:\XHBBCC76\lib\dbfntx.Lib           +
C:\XHBBCC76\lib\PcRepos.Lib          +
C:\XHBBCC76\lib\dbffpt.Lib           +
C:\XHBBCC76\lib\dbfcdx.Lib           +
C:\XHBBCC76\lib\hbzip.Lib            +
C:\XHBBCC76\lib\hbmzip.Lib           +
C:\XHBBCC76\lib\zlib.Lib             +
C:\XHBBCC76\lib\ct.Lib               +
C:\XHBBCC76\lib\gtgui.Lib            +
C:\XHBBCC76\lib\tip.Lib              +
C:\XHBBCC76\lib\hbzebra.Lib          +
C:\XHBBCC76\lib\codepage.Lib         +
C:\XHBBCC76\lib\png.Lib              +
C:\XHBBCC76\lib\pp.Lib               +
c:\XHBBCC76\lib\libcrypto.lib        +
c:\XHBBCC76\lib\libssl.lib           +
c:\XHBBCC76\lib\tipssl.lib           +
C:\BCC76\lib\cw32.Lib                +
C:\BCC76\lib\uuid.lib                +
C:\BCC76\lib\ws2_32.lib              +
C:\BCC76\lib\import32.lib            +
C:\BCC76\lib\psdk\msimg32.Lib        +
C:\BCC76\lib\psdk\odbc32.Lib         +
C:\BCC76\lib\psdk\rasapi32.Lib       +
C:\BCC76\lib\psdk\nddeapi.Lib        +
C:\BCC76\lib\psdk\psapi.Lib          +
C:\BCC76\lib\psdk\gdiplus.lib        +
C:\BCC76\lib\psdk\iphlpapi.Lib       +
C:\BCC76\lib\psdk\shell32.lib        +
C:\BCC76\lib\psdk\wininet.Lib        +
C:\BCC76\lib\import32.Lib
 
Regards, saludos.
Karinha,

I'm linking all the necessary libs, some that you use I don't use like zebra and others. What it seems is that tipssl.lib does not have all the functions of tip.lib. If I stop linking to tip.lib, it gives an error saying that some functions are missing. Do you have something working with https?
Thanks!
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: xHarbour.org updated!

Post by karinha »

Arteaga, I don't have an example that uses SSL with HTTPS, do you have anything to send me?

Arteaga, no tengo un ejemplo que use SSL con HTTPS, ¿tienes algo para enviarme?

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
wartiaga
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: xHarbour.org updated!

Post by wartiaga »

karinha wrote:Arteaga, I don't have an example that uses SSL with HTTPS, do you have anything to send me?

Arteaga, no tengo un ejemplo que use SSL con HTTPS, ¿tienes algo para enviarme?

Regards, saludos.
Karinha, try this sample:


#Include "Fivewin.ch"

Function Main()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()


inicio := 0


Set Century on
Set Date To British
Set Epoch to 1960
Set Multiple On
Set Deleted On


DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999"

@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION Averba()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL


ACTIVATE DIALOG oDlg CENTERED

Return nil



Static Function Averba()
LOCAL oUrl, oCli
LOCAL hQUery := Hash()

TRY
oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' )
CATCH
CurSorArrow()
MsgInfo('Conection Error','Erro')
RETURN(.F.)
END

IF !EMPTY( oUrl )
oCli = TIPClientHttp():New( oUrl )
IF !EMPTY( oCli )
oCli:nConnTimeout = -1
oCli:lSSL = .T.
IF oCli:Open()
hQuery["mod"] := "login"
hQuery["comp"] := "5"
hQuery["user"] := "xxxxxxxxxxxx"
hQuery["pass"] := "xxxxxxxxxxxx"
oCli:cUserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'
IF !oCli:PostMultiPart(hQuery)
CurSorArrow()
MsgInfo(oCli:lastErrorMessage,'Error')
ELSE
cNFSeResp := oCli:ReadAll()
RespC := oCli:GetCookies() // Get cookie
ENDIF
oCli:Close()
ENDIF
ENDIF
ENDIF

msginfo(cNFSeResp)
msginfo(RespC)

Return Nil
Top
Post Reply

Return to “WhatsNew / Novedades”