Imagens BMP no Clipper 5.2

Mensagem por **vagucs** » 14 Jul 2007 23:54

Nao entendi maligno! vai escrever programas em turbo c++? vc ja nao usa o delphi?

Mensagem por **Maligno** » 15 Jul 2007 04:45

vagucs escreveu:Nao entendi maligno! vai escrever programas em turbo c++? vc ja nao usa o delphi?

Não. Nunca trabalhei com Delphi. É uma ferramenta excelente, mas quero distância da linguagem. Nunca gostei de Pascal. Não fosse a linguagem, até trabalharia com Delphi com o maior prazer.

Mensagem por **Eolo** » 15 Jul 2007 09:47

Código: Selecionar todos

*...
xpto()
*...
quit



function xpto
#include "fgl.ch" 
set cursor off 
set color to w+/n 
clear screen 
cModo = FGLSetMode(FGL_Graphics_640_480_256) 
aLogo = FGLLoadBMP("eolo.bmp") 
If Len(Trim(cModo)) > 0 
    FGLShowDIB(0,0,aLogo,FGL_IMG_DITHER) 
EndIf 
@ 24,00 clear TO 24,79 
@ 24,00 say "PRESSIONE QUALQUER TECLA." 
inkey(0) 
set cursor on 
set color to 
clear screen 
return

Eu não uso nenhuma LIB gráfica, mas resolvi dar uma olhada nesta, incluindo o código como uma função dentro de um prg meu (uso Clipper 52e, Blinker 7, modo protegido).

Compila e linka normalmente, mas dá erro na execução na linha
cModo = FGLSetMode(FGL_Graphics_640_480_256):
"variável FGL_GRAPHI não localizada" (com 10 caracteres)

Onde eu to comendo bola?

Mensagem por **Maligno** » 15 Jul 2007 10:18

Eolo escreveu:cModo = FGLSetMode(FGL_Graphics_640_480_256)

O problema está nesta constante. Verifique no header "fgl.ch" qual o nome correto. O erro deve estar aí. Provavelmente você misturou maiúsculas com minúsculas. Dá erro, apesar do erro mostrar apenas os 10 primeiros caracteres em maiúsculas. O compilador entende que é uma variável indefinida.

Mensagem por **Eolo** » 15 Jul 2007 10:38

Bingo. No código postado está FGL_Graphics e, no CH, FGL_GRAPHICS... Isso resolveu.

Agora, novo pau: FGLSetMode() retorna um Array (?) de 11 elementos e, quando chega no TRIM(cModo), dá "argument error"...

?

Cara, eu achei que eu era o único louco de estar trabalhando no domingo...

Mensagem por **Maligno** » 15 Jul 2007 10:56

Eolo escreveu:Agora, novo pau: FGLSetMode() retorna um Array (?) de 11 elementos e, quando chega no TRIM(cModo), dá "argument error"... ?

Aí a coisa complica. Sem ver o dito cujo não dá. Vou baixar e ver se descubro alguma coisa.

Cara, eu achei que eu era o único louco de estar trabalhando no domingo...

Pois é. Sabe que eu estou bem embalado neste final de semana. Acordei a última vez ontem de manhã.

Mensagem por **Clipper** » 15 Jul 2007 11:22

Opa !

Eu também !

Tente

If Len(cModo) > 0

Já que o que se quer é saber se o número de elementos é maior que 0, a função TRIM só se aplicaria se fosse ser testada uma variável caractere e não uma matriz.

Até logo.

Marcelo

Mensagem por **Stanis Luksys** » 15 Jul 2007 11:32

Opa!

Faz tempo que não passo por aqui, mas tbm vou palpitar...

Se tratando de clipper eu acho a melhor saída a LLIBG, oferece excelentes recursos gráficos (se tratando de DOS), no entanto é uma programação lenta, cheia de detalhes e que tem produtividade zero praticamente.

No caso de cadastro é meio complicado, mas para PDV pode-se fazer um executável por fora, e sendo assim, por que já não ir direto para um fivewin (no 5.3) ou até uma minigui (free no xhb)?

No meu ponto de vista, desencorajo totalmente qualquer tentativa de suprir as necessidades com bibliotecas não portadas para xHarbour, pois o amanhã é incerto, e ele ainda pode ser a salvação, e não só ele, de repente um xbase++ e outros... Tenho notado que as empresas que tinham os programas mais simples do ponto de vista gráfico, mais "puros", realizaram migrações com muito mais facilidade, até mesmo de 5.2 para 5.3, que em teoria nem deveria ser traumático. Enfim, eu começaria a pensar em migração mais do que em libs do clipper...

Quanto ao que o Maligno disse lá em cima, concordo plenamente, Delphi é excelente, temos contribuições e compoentes a rodo, mas a sintaxe Pascal é de matar... Um dia eu ainda caio pro Visual C da MS, mas o precinho é bem salgado! hehe

Falou galerinha!

Mensagem por **Maligno** » 15 Jul 2007 11:54

Eolo escreveu:quando chega no TRIM(cModo), dá "argument error"... ?

O erro está certo.

A função FGLSetMode() retorna uma matriz com a configuração anterior.
Na versão da LIB que o Leonardo montou estão faltando muitos arquivos e sobrando muitos outros, sem nada a ver com a LIB em si. Pegue na minha área pública a versão 3.0 oficial. Diretório LIBs do Clipper.

Mensagem por **Maligno** » 15 Jul 2007 12:01

Stanis Luksys escreveu:Um dia eu ainda caio pro Visual C da MS, mas o precinho é bem salgado! hehe

Faça como muita gente faz: pegue emprestado. E quando puder, "devolva".

))
Falando em C++, uma ótima opção é o Turbo C++: é o ambiente BDS completo (igual ao Delphi), mas com uma só "personalidade". Uma pechincha: R$1200. Me parece que a Borland Shop até parcela.

Mensagem por **Stanis Luksys** » 15 Jul 2007 12:09

Maligno escreveu:
Stanis Luksys escreveu:Um dia eu ainda caio pro Visual C da MS, mas o precinho é bem salgado! hehe
Faça como muita gente faz: pegue emprestado. E quando puder, "devolva". ))
Falando em C++, uma ótima opção é o Turbo C++: é o ambiente BDS completo (igual ao Delphi), mas com uma só "personalidade". Uma pechincha: R$1200. Me parece que a Borland Shop até parcela.

Pois é, mas as coisas andam difíceis... A fiscalização tem aumentado. Para aprender e se habituar ao ambiente é uma alternativa válida, mas para comercializar o produto final fica complicado.

No mais, não é só isso que pesa, falta tempo também, afinal como sabemos, programar é sinônimo de dedicação completa, e se for pra não se dedicar o suficiente, é perda de tempo. Tenho umas pendências que um dia hão de acabar

e aí eu me aventuro mais, assim como um dia fiz com Clipper, com xHb etc

Agora, se você pudesse me dar algumas informações básicas de como pegar um demo deste Turbo C++ e alguma documentação, tenho interesse...

Valeu!!

Mensagem por **Eolo** » 15 Jul 2007 12:19

Po, seu site tá de bronca comigo:

Warning: require_once(./pfb/inc/config.inc.php) [function.require-once]: failed to open stream: No such file or directory in /home/buzinello/www/pub/index.php on line 16

Fatal error: require_once() [function.require]: Failed opening required './pfb/inc/config.inc.php' (include_path='.:/usr/local/lib/php') in /home/buzinello/www/pub/index.php on line 16

Mensagem por **Eolo** » 15 Jul 2007 12:21

Ah, a sua observação "O erro está certo" procede mas, po, imagina um principiante lendo... Sacanagem.

)))))))))))

Mensagem por **Maligno** » 15 Jul 2007 13:11

Eolo escreveu:Po, seu site tá de bronca comigo:

me desculpe. Foi um ajuste que tive que fazer. Terminei agora. Está tudo ok.

Mensagem por **sygecom** » 15 Jul 2007 13:32

Maligno escreveu:
Eolo escreveu:quando chega no TRIM(cModo), dá "argument error"... ?
O erro está certo.
A função FGLSetMode() retorna uma matriz com a configuração anterior.
Na versão da LIB que o Leonardo montou estão faltando muitos arquivos e sobrando muitos outros, sem nada a ver com a LIB em si. Pegue na minha área pública a versão 3.0 oficial. Diretório LIBs do Clipper.

Falatando não esta Maligno, sobrando talvez sim, coloquei no link o clipper + blinker ...para quem baixar não comer mosca...procurando o que falta...para compilar o FGDEMO...agora me diz uma coisa baixando a LIB do seu Link....resolve o problema do colega ?

Eolo escreveu:Ah, a sua observação "O erro está certo" procede mas, po, imagina um principiante lendo... Sacanagem. )))))))))))

Eu não uso essa LIB, mas coloquei o link para quem quiser usar..e junto esta o clipper 5.3 +bliker 7.0 ...
Resolveu o problema ?

Abraços
Leonardo Machado