Enviando mensajes de WhatsApp

[Andrés González]

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

[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

[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

[Antonio Linares]

Cesar,

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

[sysctrl2]

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

[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.

[FiveWiDi]

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.

[JmGarcia]

...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.

[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.

[Antonio Linares]

Carlos,

Que te muestra aqui ?

? oWA:Connect()

.T. ó .F. ?

[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

[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

[FiveWiDi]

Carlos,

Que te muestra aqui ?

? oWA:Connect()

.T. ó .F. ?

.T.

[sysctrl2]

FraFive, no me da ningun error,
saludos.

[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