Leaderboard

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%"

Amiguinhos, Compilei o exemplo com 65mil e tralálá funções, com Harbour Simples 0.45 e Borland C++ 5.40. Demorou uns 20 minutos pra compilar. Tudo bem que minha maquininha não é boa. Mas o executável ficou com somente 1,3Mb e a execução demorou 1 segundo. Minha dica: Teste com versões diferentes de Borland. Se é que usa Borland.

Putz, velho pra karalyio() e o BCC?

Faça o mesmo teste compilando os prgs separados com as funções separadas com a opção /n e depois execute o programa.

É 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

Eu sou eu, o eco é o eco hauhauhau Trabalhamos juntos na mesma empresa e na mesma equipe

Amiguinhos, kkkkkkkkkkkkk resume a história ai pra pessoas que, como eu, querem saber da fofoca hahahahaha resume a história ai pra pessoas que, como eu, querem saber da fofoca hahahahaha Também adoro uma fofoca. O primeiro sucesso dele foi a tGantt 16bits, vendida como tPlan.

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.

Show() de bola ecob, muito obrigado, o QueryResult(cSQL) me retornou exatamente o que eu queria, como estou gatinhando nisso ainda, me ajudou muito, esses links que me passaram, me servem de aprendizado, vlw mesmo a todos.