Jump to content
Fivewin Brasil

cnavarro

Membros
 View Profile  See their activity

  • Posts

    110

  • Joined

  • Last visited

  • Days Won

    18

 Content Type 

Posts posted by cnavarro

  9. Visual de Windowns 10 na aplicação

    in Programação

    Posted

    On 3/8/2018 at 10:17 PM, rochinha said:

    Amiguinhos,

    O manifest em questão poderá mudar a aparecencia do aplicativo se o mesmo for executado no Windows 10 com este manifest. Para dar aparencia Windows 10 em seu aplicativo terás de usar alguma biblioteca UI com modificações profundas nas classes. Veja os exemplos que o forense Navarro colocou a disposição com a FiveUI.

    http://wiki.fivetechsoft.com/doku.php?id=fiveui_soporte

  16. Dll externa

    in Programação

    Posted

    Pruebe con 

    DLL32 Function MyNameFunction( parameter1 AS <type1>, ... , parameterN AS <typeN> ) AS <typereturn> PASCAL FROM <namefunctionInDLL> LIB  "arquivo.dll" 

    Busca por "DLL32 Function"... en el foro

  22. Rotina para gravar backup Google Drive - Resolvido

    in Programação

    Posted

    Con este script he conseguido construir el exe de ejemplo de gmail sin problemas

    Quote

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

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

    ECHO Compiling...

    set FWDIR=d:\fwh\fwhteam
    rem set XHDIR=d:\xharbour\xharbour7
    set XHDIR=D:\xharbour\xhb10234_bcc730
    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
    rem set bcdir=d:\borland\bcc7
    set bcdir=d:\borland\bcc73
    set fwh=%FWDIR%

    %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log
    IF ERRORLEVEL 1 GOTO COMPILEERRORS
    @type comp.log
    @type warnings.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

    rem IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1
    IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %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 %fwh%\lib\googlex.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%\codepage.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%\zlib.lib + >> b32.bc
    echo %hdirl%\hbzip.lib + >> b32.bc
    echo %hdirl%\libmisc.lib + >> b32.bc
    echo %hdirl%\tip.lib + >> b32.bc
    echo %hdirl%\png.lib + >> b32.bc
    echo %hdirl%\hbcc.lib + >> b32.bc
    echo %hdirl%\hbcurl.lib + >> b32.bc
    echo %fwh%\lib\libcurl.lib + >> b32.bc
    rem echo %hdirl%\hbcurls.lib + >> b32.bc
    echo %hdirl%\hbssl.lib + >> b32.bc
    echo %hdirl%\tipssl.lib + >> b32.bc

    rem Uso librerias que utilizaba con Harbour

    echo d:\harbour\harbour7\lib\libeay32.lib + >> b32.bc
    echo d:\harbour\harbour7\lib\libssl32.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\ws2_32.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\iphlpapi.lib + >> b32.bc
    echo %bcdir%\lib\psdk\shell32.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

    Voy a probar el ejemplo de GDrive

    Probado ejemplo de GDrive y funciona sin problemas

    No son necesarias mas Librerias, pero me faltan hacer mas pruebas

     

     

×
×
  • Create New...