Enviando mensajes de WhatsApp

User avatar
Andrés González
Posts: 625
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Re: Enviando mensajes de WhatsApp

Post by Andrés González »

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 9:48 pm

Re: Enviando mensajes de WhatsApp

Post by Frafive »

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
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Re: Enviando mensajes de WhatsApp

Post by sysctrl2 »

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: Select all

@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 "
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Enviando mensajes de WhatsApp

Post by Antonio Linares »

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
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Re: Enviando mensajes de WhatsApp

Post by sysctrl2 »

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 "
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Re: Enviando mensajes de WhatsApp

Post by sysctrl2 »

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: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Enviando mensajes de WhatsApp

Post by FiveWiDi »

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 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Re: Enviando mensajes de WhatsApp

Post by JmGarcia »

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: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Enviando mensajes de WhatsApp

Post by FiveWiDi »

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 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Enviando mensajes de WhatsApp

Post by Antonio Linares »

Carlos,

Que te muestra aqui ?

? oWA:Connect()

.T. ó .F. ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Re: Enviando mensajes de WhatsApp

Post by Frafive »

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
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Enviando mensajes de WhatsApp

Post by Antonio Linares »

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: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Enviando mensajes de WhatsApp

Post by FiveWiDi »

Antonio Linares wrote:Carlos,

Que te muestra aqui ?

? oWA:Connect()

.T. ó .F. ?
.T.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Re: Enviando mensajes de WhatsApp

Post by sysctrl2 »

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 9:48 pm

Re: Enviando mensajes de WhatsApp

Post by Frafive »

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
Post Reply