topic-24635

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Re: Enviando mensajes de WhatsApp
Posted: Fri Sep 14, 2012 06:48 AM

FRAFIVE, puedes decir que has enlazado para que no te salgan los errores de base64?

Saludos

Andrés González desde Mallorca

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Re: Enviando mensajes de WhatsApp
Posted: Fri Sep 14, 2012 07:46 AM

Hola
Para compilar en xharbour, tenemos que enlazar la lib:

CT_LIB = $(HARBOUR_LIB_DIR)\ct.lib
libmisc_LIB = $(HARBOUR_LIB_DIR)\libmisc.lib
TIP_LIB = $(HARBOUR_LIB_DIR)\tip.lib

Y en el prg, cambiar hb_strformat por strformat.

Un saludo

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Enviando mensajes de WhatsApp
Posted: Fri Sep 14, 2012 10:20 PM

Hola FraFive,

has podido crear un ejemplo con XHarbour ?

he seguido el post he agregado las librerias que mensionas y me sigue marcando los siguientes errores.

tambien me he bajado el xhb mas reciente que mensiona Antonio.

saludos.

Error: Unresolved external '_HB_FUN_HB_SOCKETGETHOSTS' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_SOCKETOPEN' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_SOCKETCONNECT' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_STRFORMAT' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_BASE64DECODE' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_BASE64ENCODE' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_SOCKETRECV' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_SOCKETSEND' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_SOCKETSHUTDOWN' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ
Error: Unresolved external '_HB_FUN_HB_SOCKETCLOSE' referenced from C:\FWH1202\SAMPLES\SCWHATSAPP.OBJ

aqui mi buildx.bat

Code (fw): Select all Collapse

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 12.02 - Feb. 2012          xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2012     for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

if "%FWDIR%" == "" set FWDIR=c:\fwh1202
if "%XHDIR%" == "" set XHDIR=c:\xhb1208
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui

set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\bcc582
set fwh=%FWDIR%

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\libmisc.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
rem echo %hdirl%\png.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
ECHO * Compile errors *
GOTO EXIT

:LINKERROR
ECHO * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Enviando mensajes de WhatsApp
Posted: Sat Sep 15, 2012 09:21 AM

Cesar,

Asegurate de que estes usando ese xharbour mas reciente que has descargado. Parece que estes enlazando otra version...

regards, saludos

Antonio Linares
www.fivetechsoft.com

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Enviando mensajes de WhatsApp
Posted: Sat Sep 15, 2012 05:21 PM

Muy cierto Antonio, al parecer si estoy usando una ver. anterior
voy a revisar
Gracias.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Enviando mensajes de WhatsApp
Posted: Sat Sep 15, 2012 05:48 PM

Listo Antonio siguiendo las indicaciones de este hilo, ya pude compilar con Xharboyr 1.2.1 de agosto 2012

otra cosa, no estoy muy familiarizado con los telefonos moviles

me podrias explicar que es el Nickname ? o como se obtiene ?

saludos..

Cesar - SysCtrl Soft.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Enviando mensajes de WhatsApp
Posted: Sat Sep 15, 2012 06:33 PM

sysctrl2 wrote:Listo Antonio siguiendo las indicaciones de este hilo, ya pude compilar con Xharboyr 1.2.1 de agosto 2012

otra cosa, no estoy muy familiarizado con los telefonos moviles

me podrias explicar que es el Nickname ? o como se obtiene ?

saludos..

Cesar - SysCtrl Soft.

Mírate el punto 4 de esta página: http://www.whatsapp.com/faq/es/android/20964972

El Nick lo escoges tu.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Enviando mensajes de WhatsApp
Posted: Sun Sep 16, 2012 06:17 PM

JmGarcia wrote:...Cuando tenga el código fuente de STRFORMAT probaré a ver...

Curiosamente al linkar la librería "\xHarbour\lib\libmisc.lib" ya no me da el error de que la función STRFORMAT no existe.

Ahora en cambio me da error en BASE64DECODE y BASE64ENCODE.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Enviando mensajes de WhatsApp
Posted: Sun Sep 16, 2012 10:22 PM

Hola a todos,

A ver si se les ocurre algun motivo por el cual a mi no me funciona el envío de WhastApp.

Tengo 2 SIM sobre la mesa que hace 1 hora he registrado en WhastApp desde un HTC con Android.
Cada vez he desinstalado el WhastApp, he parado el móvil completamente, he insertado el SIM correspondiente, he instalado el WhastApp indicando el número de teléfono del SIM en cuestión, les he enviado un WhastApp desde WebsApp al SIM, lo ha recibido en el HTC, y lo he contestado desde el HTC. Todo bien, recibo y envío desde el HTC.

Saco el SIM del móvil, al cabo de 15 ó 30 minutos pruebo con las rutinas usando el número de teléfono del SIM y su IMEI, enviando a un familiar un WhastApp y....NADA, no recibe NADA.

Llevo 3 semanas jugando con estas rutinas para ver si consigo algo.
Tiro la toalla, que venga "Rita la Cantaora" y lo pruebe, yo estoy "hasta arriba".

Río solo, en casa ya empiezan a mirarme mal, ya temen un problema psiquiátrico... en fin; en España empezaran a emitir una serie que se llama "Guasap", no la miraré para no tirar el televisor por la ventana.

Ea! Aquí lo dejo. (Tenía ganas de escribir) si ya lo sé este no es un foro para desahogarte, les pido disculpas y si el administrador lo borra lo entenderé.

Por favor recuerden la primera frase de este post. No "Hola a todos" no, la siguiente.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Enviando mensajes de WhatsApp
Posted: Mon Sep 17, 2012 05:10 AM

Carlos,

Que te muestra aqui ?

? oWA:Connect()

.T. ó .F. ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Re: Enviando mensajes de WhatsApp
Posted: Mon Sep 17, 2012 07:48 AM

SysCtrl, te da algun error al ejecutar el exe que has compilado con xharbour ? a mi me da este error:

Path and name: C:\aTest\Test.exe (32 bits)
Size: 1,646,592 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 09/17/12, 09:48:24
Error description: Error BASE/1089 Non-integer parameters: HB_BITOR
Args:
[ 1] = N 1271.48
[ 2] = N 16384

Un saludo

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Enviando mensajes de WhatsApp
Posted: Mon Sep 17, 2012 08:02 AM

Javier,

Error description: Error BASE/1089 Non-integer parameters: HB_BITOR

Modifica las llamadas a hb_bitor() asi:

hb_bitor( Int( ... ) )

para que los valores que se le pasen no tengan decimales

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Enviando mensajes de WhatsApp
Posted: Mon Sep 17, 2012 08:37 AM

Antonio Linares wrote:Carlos,

Que te muestra aqui ?

? oWA:Connect()

.T. ó .F. ?

.T.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Enviando mensajes de WhatsApp
Posted: Mon Sep 17, 2012 06:59 PM

FraFive, no me da ningun error,
saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Re: Enviando mensajes de WhatsApp
Posted: Tue Sep 18, 2012 03:04 PM

Hola

Con xharbour puede generar el exe sin problemas, oWA:Connect() me devuelve .t., pero oWA:cAccount_status no me devuelve nada y no envia nada, parece que no funciona con xharbour ?

Un saludo

FiveTech Support Forums