ecob
Membros-
Posts
32 -
Joined
-
Last visited
-
Days Won
1
ecob last won the day on October 17 2018
ecob had the most liked content!
ecob's Achievements
Newbie (1/14)
8
Reputation
-
Oi @gibaf, obrigado por responder. Eu desconheço como é trabalhar com .hrb, teria algo pra me indicar a ler e aprender? Em todo caso, vou pesquisar aqui, obrigado pela dica. edit @gibaf, roda em xharbour e com sqllib? se tiver algum exemplo bem simples, agradeço.
-
@oribeiro, aqui criamos tudo na unha, ou seja, com "@SAY", então ao criar uma tela, com grid, group, button, etc etc, criamos um único código q se adapta a resolução que for. Para isso, criamos 2 variáveis apenas para pegar a resolução com a função ScrResolution, depois criamos a dialog.
-
Cria um campo mediumblob, que armazena até 16mb se não me engano, e salve conforme o @rochinha já orientou. Quanto ao preview, faria como o rochinha falou, gerava um jpg da primeira página do pdf, dependendo o tamanho faria um resize pra ficar menorzinho, e salvaria no banco da mesma forma que o PDF, então seria 2 campos no BD.
-
ecob reacted to a post in a topic: Gravar e Restaurar arquivo PDF, em uma Tabela MYSQL
-
rochinha reacted to a post in a topic: Demora para iniciar o sistema
-
rochinha reacted to a post in a topic: Demora para iniciar o sistema
-
Caros, bom dia. Percebemos que na compilação com xharbour, usando FUNCTIONS simplesmente, é feita alguma espécie de carregamento na memória que deixa a inicialização super lenta como relatado. Para isso não acontecer, é necessário criar STATIC FUNCTIONS do que não é usado por outros módulos. Thanks
-
Entendi @rochinha. É que compilando com o harbour, a sqllib não funcionaria, acredito. Vou voltar a tentar achar uma solução semana que vem. Agradeço por hora.
-
aferra reacted to a post in a topic: Criar arquivo.LIB fivewin
-
Boa tarde. Precisei criar uma lib esses dias, e fui fazendo um apanhado de informações para aprender como fazer. Então venho postar aqui o script final que fiz, apenas a título de informação para alguém que venha a buscar pelo google essa informação, rs. fivewin 8.01 xharbour 1.10 bcc 5.5.1 set var_file_lib=\users\eco\minhalib.lib DEL %var_file_lib% set var_harbour=\xharbour-1.10.00\bin\harbour.exe set var_bcc32=\BCC55\Bin\bcc32.exe set var_tlib=\BCC55\Bin\tlib.exe set var_include=C:\BCC55\include;C:\FWH\include;C:\xharbour-1.10.00\include set var_dir_lib=\BCC55\Lib;\xharbour-1.10.00\lib set var_FON=\USERS\PASTA_DE_PROGRAMAS set var_OBJ=\USERS\PASTA_DE_PROGRAMAS\PRJ\OBJ set var_programa=meuprograma SET var_ext=PRG @%var_harbour% %var_FON%\%var_programa%.%var_ext% /N /M /I%var_include% /O%var_OBJ%\ SET var_ext=C @%var_bcc32% -W -DHB_STATISTICS_OFF -DHB_OS_WIN_32 -O2 -OS -d -L%eco_dir_lib% -c -I%var_include% -n%var_OBJ% %var_OBJ%\%var_programa%.%var_ext% SET var_ext=OBJ @%var_tlib% "%var_file_lib%" /0 /P32768 +"%var_OBJ%\%var_programa%.%var_ext%"
-
Rochinha, vc tem o script de compilação fácil aí?
-
Vlw pela dica rochinha... vou ver se consigo uma versão do harbour e testar, ao invés do xHarbour Mto interessante o EXE com só 1.3mb Vlw Kapiaba, vou testar essa dica sua aí tb
-
ecob reacted to a post in a topic: Demora para iniciar o sistema
-
ecob reacted to a post in a topic: Demora para iniciar o sistema
-
Borland C++ 5.5.1
-
Então Kapiaba, falei errado. Estou compilando com xHarbour versão 1.10.00 Fivewin 8.01
-
ecob reacted to a post in a topic: Conexão Sql Fw Nativo (Resolvido)
-
É isso certo? harbour.exe ".\Main.PRG" /n /q /o".\Main.c" /M /N Fiz e continuou a mesma coisa =/ Bom dia João. Aqui também cheguei a separar, deixei 10 mil funções em cada PRG, e deu essa demora mesmo, 32 segundos. Será esse um problema do fivewin/harbour? Pois é tempo demais para carregar uma aplicação. Como falei, isso não acontece em C# por exemplo. Então kapiaba, estou compilando com harbour, veja: harbour.exe ".\Main.PRG" /n /q /o".\Main.c" /M /N harbour.exe ".\Func20.PRG" /n /q /o".\Func20.c" /M /N harbour.exe ".\Func30.PRG" /n /q /o".\Func30.c" /M /N harbour.exe ".\Func40.PRG" /n /q /o".\Func40.c" /M /N
-
ecob reacted to a post in a topic: Demora para iniciar o sistema
-
kapiaba reacted to a post in a topic: Demora para iniciar o sistema
-
É isso que você não está entendendo Kapiaba. O número de funções importa sim. Pegue um editor de texto e crie 60 mil funções, exatamente como estou falando, e faça o teste. Eu deixei 10 mil funções em cada PRG, e a demora continua a mesma. A demora vai ser a mesma se eu tiver 500 PRG's com 120 funções cada. O seu projeto é muito pequeno, por isso sobe na hora. Nosso projeto é modularizado como vc fala, isso que mandei é só um teste, por isso joguei tudo no mesmo fonte. Compila exatamente o fonte em anexo e me diga quanto tempo demora...... qualquer coisa, pegue de 5 em 5 mil funções e joga em novos PRG's e me diga se melhorará a velocidade. Link do fonte: https://drive.google.com/open?id=1zYEplqHHPSWvVOgSoG_mkO3-1PsLfWLZ
-
Mas Kapiaba, olhando ali atrás não parece q tem 60 mil funções no seu PRG, apenas 7 além da MAIN. Por que o hora incial aí está zerado?
-
Eduardo Bilato reacted to a post in a topic: Demora para iniciar o sistema
-
Não Kapiaba. Nós trabalhamos juntos. Ele criou o tópico pq eu tinha perdido minha conta, mas acabei encontrando meu dados de login, rsrs
-
Oi Giovany, obrigado por responder. Estou compilando via xdev V0.70. Olha o projeto que criei, com um único PRG. Só existe UMA variável local no projeto e um parâmetro, o mais simples possível. Deixando somente a função MAIN no PRG, a execução é instantânea. Deixando 10 mil funções no PRG, a execução é praticamente instantânea ainda. Mas deixando 60 mil funções no PRG, a execução demora 32 segundos. Segue o projeto completo: Segue abaixo o fonte completo do programa #include 'fivewin.ch' * * * * FUNCTION Main(cTime01) LOCAL cTime02:=TIME() DEFAULT cTime01:='' cTime01:=SUBSTR(cTime01,1,AT(',',cTime01)-1) cTime01:=STRZERO(VAL(SUBSTR(cTime01,1,AT(':',cTime01)-1)),2) + SUBSTR(cTime01,AT(':',cTime01)) IF EMPTY(cTime01) RETURN ENDIF ?'Hora inicial: '+cTime01,'Hora que EXE realmente carregou: '+cTime02,'Demora para abrir EXE: '+ELAPTIME(cTime01,cTime02) RETURN FUNCTION TESTFUNC_00001() ; MSGINFO('','') ; RETURN FUNCTION TESTFUNC_00002() ; MSGINFO('','') ; RETURN FUNCTION TESTFUNC_00003() ; MSGINFO('','') ; RETURN FUNCTION TESTFUNC_00004() ; MSGINFO('','') ; RETURN FUNCTION TESTFUNC_00005() ; MSGINFO('','') ; RETURN . . . FUNCTION TESTFUNC_60000() ; MSGINFO('','') ; RETURN Segue como estou fazendo a chamada do programa Segue o retorno do programa Caso alguém possa replicar esse teste e postar os resultados, agradeço. Fiz o mesmo em C#, e não tive o problema descrito, somente em Fivewin.