Jump to content
Fivewin Brasil

Ajuda à um "iniciante(Jr)rs" oriundo do Clipper5.0


AMBROSIO

Recommended Posts

A xDev nao tem um script para trabalhar com o Fw+Cl+Blinker, no caso teria q usar o generic script, para chamar seu Bat, neste caso eh mais simples, usar a xDev soh como editor e compilar manualmente chamndo o Bat.

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

logofw.jpg

"Nois bebi pra fica ruim, se fosse pra fica bom tomava remedio."

Link to comment
Share on other sites

  • Replies 96
  • Created
  • Last Reply

Top Posters In This Topic

Quem foi que disse isso, me diga.... rsrsrs claro que compila galera copie este "iscrite" para dentro da pasta

C:\Program Files\xDevStudio\Scripts com o seguinte nome

ClipperBlinker.xCompiler

ou altere esse arquivo com as instruções abaixo e depois crie o compilador com o primeiro item que é clipper x blinker inidicando os caminhos do clipper e do blinker e manda compilar que dará certo.


/*

* São Paulo , 16/06/2006 @ 06:36

* Revisado em 19/08/2006 @ 07:14

* Alterado em 27/02/2009 @ 12:26 Por Alessandro F. Silva

* -----------------------------

* ClipperBlinker.xCompiler.prg

*

* Arquivo contendo os comandos de Script para processamento de um projeto

* Clipper (em modo console) com o Blinker.

*/

#define CRLF chr(13)+chr(10)

function Prepare

return .t.

function UnPrepare

return .f.

/*

* Esta função é executada, sempre que a xDev precisar compilar um arquivo .PRG

*/

function OnFilePRG

* Preparamos a linha de comando

cmd := 'clipper.exe'

cmd += ' "' + m_sFileName + '"'

cmd += ' /o"' + m_sOutPut + '"'

cmd += ' ' + fMemvar + ' ' + fNoLine + ' ' + fOnlyIt + ' ' + ;

' ' + fNoStrt+ ' ' + fNoOpt + ' ' + fMakPPO

*

* Verificarmos se ele nao quer desativar o DEBUG para este módulo em específico!

* para isto usamos a funcao SameText() que compara os 2 argumentos ignorando

* letras maiúsculas / minúsculas.

*

if !SameText( PRG_DisableDebug, 'sim' )

cmd += ' ' + fDebug

end

* Verificamos as diretrivas #DEFINEs e adicionamos ela na linha de comando!

aDefs := Alltrim(CustomDefines) + ',' + ; // Diretrivas gerais do projeto

Alltrim(PRG_Defines) // Diretrivas específicas deste arquivo

aDefs := StrTran(aDefs, ';', ',' )

aDefs := StrTran(aDefs, ' ', '' )

aDefs := ListAsArray( aDefs, ',')

cmd := alltrim( cmd )

for i := 0 to len( aDefs )

if !Empty(aDefs)

cmd += ' /D' + aDefs

end

next

* Colocamos os outros parametros (se houver)

cmd := alltrim( cmd )

cmd += " " + fMiscOption

* Executamos o comando específico para compilar

runBat(cmd)

bOk := (ErrorLevel() == 0)

return bOk

function OnBuild

Link := fRandom( ".\", ".lnk" )

Text := ""

Text += "BLINKER INCREMENTAL OFF"+CRLF

Text += "BLINKER CLIPPER SYMBOL OFF"+CRLF

Text += "BLINKER OVERLAY PAGEFRAME ON"+CRLF

Text += "BLINKER OVERLAY UMB ON"+CRLF

Text += "BLINKER EXECUTABLE COMPRESS 1"+CRLF

Text += "BLINKER EXECUTABLE EXTENDED 2048"+CRLF

Text += "BLINKER EXECUTABLE NODELETE"+CRLF

Text += "BLINKER EXECUTABLE ALIGNMENT 64"+CRLF

Text += "BLINKER PROCEDURE DEPTH 50"+CRLF

Text += "BLINKER OVERLAY THRESHOLD 64"+CRLF

Text += "BLINKER SEGMENT THRESHOLD 65500"+CRLF

Text += "BLINKER OVERLAY OPSIZE 60"+CRLF

Text += "BLINKER CACHE XMS 50%, 2048"+CRLF

Text += "BLINKER CACHE EMS 50%, 2048"+CRLF

/*

* Text += "BLINKER EXECUTABLE CLIPPER /F:255 /DYNF:8 /SWAPK:65535 /SWAPPATH:'\' /TEMPPATH:'\'"+CRLF

*/

Text += ""+CRLF

Text += "NOBELL"+CRLF

Text += ""+CRLF

Text += "MAP A,S"+CRLF

Text += ""+CRLF

Text += "PACKCODE"+CRLF

Text += "PACKDATA"+CRLF

Text += ""+CRLF

Text += "BeginArea"+CRLF

Text += " FILE mpar,vmw,cdxlock"+CRLF

/*

* Incluimos os arquivos .OBJ no projeto

*/

aFiles := Project( "*.OBJ" )

*alert( aFiles )

FOR i := 1 TO Len( aFiles )

Text += " FILE " + aFiles + CRLF

End

Text += "EndArea"+CRLF

Text += ""+CRLF

/*

* Incluimos os arquivos .OBJ no projeto

*/

/*

aFiles := Project( "*.LIB" )

FOR i := 1 TO Len( aFiles )

Text += "LIB " + aFiles + CRLF

End

Text += ""+CRLF

*/

// só descomente se for usar lib de terceiros Text += "LIB BtnGet,SButton,SBrowse,Vlib,Tip"+CRLF

Text += "SEARCH Five,FiveC,Objects,WinApi"+CRLF

Text += "SEARCH DbfCdx,_DbfCdx,Clipper,Extend,Terminal"+CRLF

Text += ""+CRLF

Text += "DEFBEGIN"+CRLF

Text += " NAME SIG"+CRLF

Text += " DESCRIPTION 'By Conexao Plus Informática'"+CRLF

Text += " EXETYPE WINDOWS 3.11"+CRLF

Text += " CODE PRELOAD MOVEABLE DISCARDABLE"+CRLF

Text += " DATA PRELOAD MOVEABLE"+CRLF

Text += " STACKSIZE 8500"+CRLF

Text += " HEAPSIZE 4096"+CRLF

// descomente se for usar arquivos .RC Text += " RC SIG"+CRLF

Text += " SEGMENT 'PLANKTON_TEXT' NONDISCARDABLE"+CRLF

Text += " SEGMENT 'EXTEND_TEXT' NONDISCARDABLE"+CRLF

Text += " SEGMENT 'OM_TEXT' NONDISCARDABLE"+CRLF

Text += " SEGMENT 'OSMEM_TEXT' NONDISCARDABLE"+CRLF

Text += " SEGMENT 'SORTOF_TEXT' NONDISCARDABLE"+CRLF

Text += " SEGMENT 'STACK_TEXT' NONDISCARDABLE"+CRLF

Text += "DEFEND"+CRLF

Text += ""+CRLF

Text += "OUTPUT "+m_sOutPut+""+CRLF

MemoWrite(link,text)

runBat("Blinker @" + Link)

FErase( Link )

return ErrorLevel() == 0

id=code>id=code>

Alessandroid=blue>

FW20d+CL53b+Blk7+@Say+CDX

FW9.02+xHb110+@Say+CDX

"O fracasso jamais me surpreenderá, se minha vontade de vencer for suficientemente forte..."id=red>

Editado por - aferra on 17/06/2009 16:18:22

Link to comment
Share on other sites

Ambrósio,

Já conseguiu avançar?

Deu mais um passo à frente, hehe

Só para te desanimar...

Eu estou há quase 2 anos e me considero uma aprendiz de feiticeiro(a)...

Não sei porque tanta dificuldade...

Aprender o clipper foi muito mais fácil... Tinha tantos livros, fontes disponíveis...

Não vejo necessidade de tanto segredo.

Quanto mais se ensina mais se aprende !!!

E quanto mais um software for usado, mas atualizado e corrigido ele será !!!

Veja Windows, Google, YouTube...

Espero que o Fwh seja MUITO USADO, assim a gente terá bastante trabalho pela frente !!!

id=blue>

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites

citação:

heheh ICO

essa foto e coisa do DEMONIO <<<< CAPETA >>>>>hihihihihii


id=quote>id=quote>

Ué ?.. qual foto ??

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia.

-

Não Abandone Seu Tópicoid=red>

Link to comment
Share on other sites

citação:

Ambrósio,

Já conseguiu avançar?

Deu mais um passo à frente, hehe

Só para te desanimar...

Eu estou há quase 2 anos e me considero uma aprendiz de feiticeiro(a)...

Não sei porque tanta dificuldade...

Aprender o clipper foi muito mais fácil... Tinha tantos livros, fontes disponíveis...

Não vejo necessidade de tanto segredo.

Quanto mais se ensina mais se aprende !!!

E quanto mais um software for usado, mas atualizado e corrigido ele será !!!

Veja Windows, Google, YouTube...

Espero que o Fwh seja MUITO USADO, assim a gente terá bastante trabalho pela frente !!!

id=blue>

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.


id=quote>id=quote>

Ola Fatima...o que vc falou eh verdade...

Mas estou caminhando, logo-logo ja estarei no seu nivel...

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Link to comment
Share on other sites

citação:

seja bem vindo Ambrosio, aqui tudo o que sabemos se multiplica....


id=quote>id=quote>

Valeu LUIS. Obrigado pela força...

Tamu aew na area pra aprender FW...

E d que foto ENDEMONHADA vc ta falando que o ICO tem?

Temos que converter ele, oq acha? kkkkkkkkkk

Abraço

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Link to comment
Share on other sites

Mês que vem faz 1 ano que utilizo Fivewin

obs.: Diferente de todos(ou quase todos) eu nunca tinha visto clipper antes!

Fora que devo ser um dos usuários mais novos do fórum icon_smile.gif

Posso garantir que MUITO do que eu aprendi foi devido ao fórum, leio todo dia as duvidas e as soluções que as pessoas enfrentam e isso ajuda muito na hora de resolver as minhas próprias "pindaibas"

MSN: samirid=red>abreuid=black>@hotmail.com

Skype: Samirid=red>Abreuid=black>

xHarbour 1.1.0 + FwXh 8.02

Link to comment
Share on other sites

citação:

Mês que vem faz 1 ano que utilizo Fivewin

obs.: Diferente de todos(ou quase todos) eu nunca tinha visto clipper antes!

Fora que devo ser um dos usuários mais novos do fórum icon_smile.gif

Posso garantir que MUITO do que eu aprendi foi devido ao fórum, leio todo dia as duvidas e as soluções que as pessoas enfrentam e isso ajuda muito na hora de resolver as minhas próprias "pindaibas"

MSN: samirid=red>abreuid=black>@hotmail.com

Skype: Samirid=red>Abreuid=black>

xHarbour 1.1.0 + FwXh 8.02


id=quote>id=quote>

Opa! Valeu a dica aew colega...

...mas agora em vc ser o "mais novo membro do forum", humm, sei naum. Como conseguiu estas 5 estrelinhas aew? (usu. AVANÇADO). rsssss

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Link to comment
Share on other sites

citação:

Acho q ele quis dizer mais novo na idade. :)

FwxH 9.04 | xHb 1.2.1 | xDev 0.72 | SqlLib | MySql


id=quote>id=quote>

Putz!!!! Verdade, "nem pensei nisso"...acho que deve ser a idade mesmo..kkkkkkkkkkkkkkkkkk

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Link to comment
Share on other sites

citação:

Com certeza minha amiga...pelo que vejo terei que contratar alguem tbm pra me dar algumas aulinhas tbm...

Este ultimo post seu eh muito interessante tbm, mas surgem varias duvidas justamente pela falta de conhecimento e principalmente falta de um manual,livro,professor..tem que ser no fuçometro mesmo , como diz nosso amigo logo acima...

Por exemplo:

Como configurar o xDev (ate ja o instalei e criei um projeto, mas nao avancei mais nada, nem tela consegui)

Pq usar o Pelles? Tmb tentei instalar, mas meu PC eh Win98, nao consegui.

Instalei o FW demo, segui as intruções e consegui configurar, pelo menos isso.

Ja peguei alguns prgs do proprio site Projeto xHarbour, fiz algumas alteraçoes, compilei pelo BUILD(linha do DOS), funcionou e tudo...mas quero mais, muito mais, pois quero usar o FW profissionalmente ... Confesso, estou perdidão mesmo...

Editado por - AMBROSIO on 16/06/2009 17:53:25


id=quote>id=quote>

Ambrosio, vamos ser bem profissional:

o FW é uma biblioteca ótima para quem trabalha com xBase, só que o ambiente operacional é outro e a nossa cultura de linha uma atrás da outra, tem que ser esquecida, visto que o windows trabalha com eventos independentes. Então a primeira coisa a fazer é procurar um manual simples do fivewin e começar como se estivesse aprendendo outra linguagem. Isto demora mais ou menos uns dois meses, aí sim vai começar a dominar, tanto o ambiente como as rotinas.

Falou

Crisvam - xHarbour_FWH_9.02 - Whorkshop

Link to comment
Share on other sites

As estrelinha vão surgindo de acordo co o numero de postagem, assim como de novo membro,junior até avançado..

o Samir depois que o Kapiaba sumiu está sendo um dos que mas respondem no forum.. Tem gente ai que nunca respondeu a ninguém fica só dando pitaco e criticando osoutros e tá com um monte de estrelinha e já é quase avançado...

Putz! Depois dessa vou esperar o premioid=size1>

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia.

-

Não Abandone Seu Tópicoid=red>

Link to comment
Share on other sites

O Ico, faz isso não, com um "puxão" desse o Samir vai gritar.kkkkkkkkkk

Alias, segundo as "mais" linguas, o "ilustre" kapiaba resolveu "trabaia". Fazer o que né? Vai ver virou funcionário lá no Senado.kkkkkkkkkkkkkkkkk

Decker

celeyendecker@hotmail.com

São Paulo - S.P.

Fivewin(Demo)-Clipper5.3-WS

Link to comment
Share on other sites

citação:

Era mais novo na idade mesmo, faço 21 anos agora dia 26/06...

MSN: samirid=red>abreuid=black>@hotmail.com

Skype: Samirid=red>Abreuid=black>

xHarbour 1.1.0 + FwXh 8.02


id=quote>id=quote>

Opa!!! Parabens adiantado meu amigo.

Que Deus esteja sempre lhe concedendo saude e inteligencia.

Um abraçao de irmão pra vc...Ops, ou seria de "pai" Tenho 41 anos..rsss

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Editado por - AMBROSIO on 19/06/2009 15:32:12

Link to comment
Share on other sites

citação:

citação:

Era mais novo na idade mesmo, faço 21 anos agora dia 26/06...

MSN: samirid=red>abreuid=black>@hotmail.com

Skype: Samirid=red>Abreuid=black>

xHarbour 1.1.0 + FwXh 8.02


id=quote>id=quote>

Opa!!! Parabens adiantado meu amigo.

Que Deus esteja sempre lhe concedendo saude e inteligencia.

Um abraçao de irmão pra vc...Ops, ou seria de "pai" Tenho 41 anos..rsss

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Editado por - AMBROSIO on 19/06/2009 15:32:12


id=quote>id=quote>

Puxão mesmo foi este icon_smile_big.gif

41 ??? e a foto no MSN é do seu avo ?? icon_smile_big.gif

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia.

-

Não Abandone Seu Tópicoid=red>

Link to comment
Share on other sites

Caramba ICO, to muito véio no MSN?

Acho que era por causa do "cavanhaque" isso nos envelhece uns 15 anos +-,,,,tirei de vez, agora to com cara de "bebê"

heheheheheheheh

Ambrosio de Barros Filho.

JRAMBRO

Iniciante: Fivewin for [x]Harbour, xDev

Editado por - AMBROSIO on 22/06/2009 13:36:08

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