Jump to content
Fivewin Brasil

[x]Harbour & Blinker


Recommended Posts

citação:

Oi amigos!

Será possível usar o bom Blinker para linkeditar meus programas agora em Harbour?

-----------------------------------------------------------

FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2


id=quote>id=quote>

NATURALMENTE QUE NÃO. BLINKER É PARA 16 BITS.

HARBOUR E XHARBOUR PARA 32 BITS.

Então...

OPA, CORRIGINDO, A NÃO SER QUE NÃO USES NENHUM COMANDO NOVO.

hehehehehe. Foi mal.

EM TEMPO: MODO CONSOLE, Heim?

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 12/05/2008 11:46:21

Link to comment
Share on other sites

Obrigado pela atenção.

Não sei se entendi.

O Blinker linkedita em 32 bits, também. Assim diz o fabricante.

E, em 16 bits, é normal o uso com qq lib. O que você quer dizer com "COMANDO NOVO"?

Já que blinker pode ser usado para empacotar programa em Borland C/C++ e Harbour converte prg para C, não poderiamos usar Blinker para gerar os exe a partir dos obj resultantes do Harbour?

-----------------------------------------------------------

FiveWin 8.04/ Harbour 1.1-1 / Workshop / ADS 6.2

Link to comment
Share on other sites

CLARO QUE NÃO... A NAO SER, QUE USES UM FLAG PARA QUANDO QUISERES COMPILAR EM CLIPPER, POSSAS.

QUANDO QUISERES COMPILAR EM XHABROUR, POSSAS.

Para você entender, veja estes comandos do XHARBOUR:


PROCEDURE MAIN()

LOCAL nResult:= 0, a, x

CLS

? 'Checking Windows Version & Platform Details'

? '-------------------------------------------'

?

?? 'Platform is: '

IF OS_ISWINNT()

?? "VER_PLATFORM_WIN32_NT. i.e. NT, 2000, XP or 2003 Server"

ELSEIF OS_ISWIN9X()

?? "VER_PLATFORM_WIN32_WINDOWS. i.e. 95, 98 or ME"

ELSE

?? "UNKNOWN?????????"

ENDIF

?

? 'Release Version of Windows is: '

DO CASE

CASE OS_ISWIN95()

?? "95"

CASE OS_ISWIN98()

?? "98"

CASE OS_ISWINME()

?? "ME"

CASE OS_ISWINNT351()

?? "NT3.51"

CASE OS_ISWINNT4()

?? "NT4.00"

CASE OS_ISWIN2000()

?? "2000"

CASE OS_ISWINXP()

?? "XP"

CASE OS_ISWIN2003()

?? "2003 Server"

OTHERWISE

?? "UNKNOWN"

ENDCASE

?

? 'Details of version'

a:= os_versioninfo()

IF !EMPTY( a )

? " MajorVersion: ", a[ 1 ]

? " MinorVersion: ", a[ 2 ]

? " BuildNumber: ", a[ 3 ]

? " PlatformId: ", a[ 4 ]

? " ExtraData: ", a[ 5 ]

ENDIF

?

IF OS_ISWTSCLIENT()

? "Running as a Windows Terminal Server Client"

ELSE

? "NO Windows Terminal Server Client detected"

ENDIF

?

? 'Checking and setting network for Windows'

? '----------------------------------------'

?

IF OS_ISWTSCLIENT() .AND. !OS_NETREGOK() // Note: If Windows Terminal Server client DONOT

// attempt to set registry.

? 'Registry on WTS server is not set correctly for networking.'

? 'Please check with System Administrator to set the registry correctly.'

ELSEIF OS_NETREGOK( .T. )

? 'Registry set OK for networking'

ELSE

? 'Failed to set registry - May need "Administrator" rights'

ENDIF

?

IF !OS_NETVREDIROK( @nResult )

? 'Invalid RVREDIR.VXD file installed'

IF nResult = 950

? 'You need file VREDRUPD.EXE if your vredir.vxd is dated "09:50:00"'

ELSEIF nResult == 1111

? 'You need file VRDRUPD.EXE if your vredir.vxd is dated "11:11:10"'

ENDIF

ENDIF

WAIT

RETURN

id=code>id=code>

ISTO NÃO EXISTE EM CLIPPER, PORTANTO, EXPLODIRIA SEU PROGRAMA.

DEVE HAVER ALGUM ENGANO, O CLIPPER/BLINKER É 16 BITS, MAS ´RODA´ EM 32 BITS. SE TE ENTENDI...

EM TEMPO: EU?? EU?? HEU NAÕ HERRRO NUNKGA... HEHEHEHEHE.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 12/05/2008 17:38:51

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...