ram_bh Posted March 25, 2010 Report Share Posted March 25, 2010 Todos bem? Passei a receber esta mensagem de erro ao usar o blinker: BLINKER : 1128 : PROGRAMA.PRG() : unrecognised OBJ record type 2FH A mesma mensagem é apresentada ao serem utilizados Clipper 5.2 ou 5.3, como também o blinker 4.1, 6.0 e 7.0. O programa é muito simples. Alguém pode ajudar? Obrigado! Rodrigo Melo Belo Horizonte Editado por - ram_bh on 26/03/2010 23:46:54 Quote Link to comment Share on other sites More sharing options...
ram_bh Posted March 25, 2010 Author Report Share Posted March 25, 2010 Todos bem? Passei a receber esta mensagem de erro ao usar o blinker: BLINKER : 1128 : PROGRAMA.PRG() : unrecognised OBJ record type 2FH A mesma mensagem é apresentada ao serem utilizados Clipper 5.2 ou 5.3, como também o blinker 4.1, 6.0 e 7.0. O programa é muito simples. Alguém pode ajudar? Obrigado! Rodrigo Melo Belo Horizonte Editado por - ram_bh on 26/03/2010 23:46:54 Quote Link to comment Share on other sites More sharing options...
ram_bh Posted March 25, 2010 Author Report Share Posted March 25, 2010 Pois é, tradução do car....! (kkkk) Eu não sei o que fazer, sinceramente. Eu já usei outras cópias dos compiladores e dos linkeditores. Também já salvei o programa em diferentes editores e nada... Mas, obrigado! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2010 Report Share Posted March 25, 2010 Mostre seu LNK e RMK. Está usando RMAKE.EXE?? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2010 Report Share Posted March 25, 2010 http://www.itlnet.net/programming/program/Reference/c53g02c/ng18790.html João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2010 Report Share Posted March 25, 2010 http://www.itlnet.net/programming/program/Reference/c53g02c/ng18790.html 1128: : unrecognized .OBJ record type nnh Explanation: Blinker encountered an object record type which is not currently supported. It is possible that the module in question is corrupted. If recreating or reinstalling the module does not solve the problem, contact Computer Associates technical support. Also, Blinker may have encountered a new type of object record; perhaps one which has been created by a new compiler version which is not supported by the version of Blinker being used. Action: Refer to the file BLINKER.TXT in directory in which CA- Clipper is installed for details on upgrading to the full version of Blinker. 1128: : unrecognized. OBJ nnh tipo de registro Explicação: Blinker encontrou um tipo de registro que não é objeto suportados no momento. É possÃvel que o módulo em questão é corrompido. Se recriando ou reinstalar o módulo não resolve o problema, contate Computer Associates suporte técnico. Além disso, Blinker pode ter encontrado um novo tipo de objeto de registro, talvez um que tenha foi criado por uma nova versão do compilador que não é suportado pelo versão do Blinker sendo usado. Acção: Consulte o BLINKER.TXT arquivo no diretório em que CA - Clipper está instalado para obter detalhes sobre o upgrade para a versão completa do Blinker. id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2010 Report Share Posted March 25, 2010 No diretorio de trabalho, de um DEL *.OBJ e recompile para ver. Veja se vc. nao tem um .obj que nao seja do FIVEWIN. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ram_bh Posted March 25, 2010 Author Report Share Posted March 25, 2010 Sim, estou usando RMAKE. Seguem os arquivos RMK e LNK: // RMK #ifdef BLINKER Linker=BLINKER #else #ifdef EXOSPACE Linker=EXOSPACE #else Linker=BLINKER #endif #endif .PRG.OBJ: Clipper $* /n /w /m /q >>erro.txt PROGRAMA.OBJ : PROGRAMA.PRG // FIM RMK -X-X- // LNK OUTPUT PROGRAMA.EXE BLINKER INCREMENTAL OFF BLINKER EXECUTABLE CLIPPER F250 BLINKER EXECUTABLE EXTENDED BLINKER EXECUTABLE COMPRESS 1 BLINKER EXECUTABLE NODELETE BLINKER PROCEDURE DEPTH 70 BLINKER CLIPPER SYMBOL OFF PACKCODE PACKDATA NOEXTDIC STACK 7148 NOBELL BEGINAREA FILE PROGRAMA.PRG ENDAREA DEFBEGIN name IP description "Programa" version 1.0 exetype Windows 3.1 code preload discardable preload data preload moveable stacksize 12500 heapsize 8192 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND #FiveWin SEARCH Five, FiveC, Objects, WinApi #Clipper LIB Clipper, Extend, DBFNTX, Terminal // FIM LNK -X-X- Quote Link to comment Share on other sites More sharing options...
ram_bh Posted March 25, 2010 Author Report Share Posted March 25, 2010 Segue o programa: // Programa // #INCLUDE "FIVEWIN.CH" Function Programa() Local oDbf Public oWnd, oMsg Set _3DLook On Request DBFNTX RDDSetDefault( "DBFNTX" ) MsgRun("Verificando arquivos, aguarde...","Aviso",{||Ver_DBF()}) Define Window oWnd Title "Sistema de Sistema" MDI Menu Menu() Set Message Of oWnd To "® Minha Empresa" Keyboard Date Time Define MSGITEM oMsg Of oWnd:oMsgBar ; PROMPT "V-1.0" SIZE 50 TOOLTIP ("Versão do aplicativo") ; ACTION MsgInfo( "V-0.99" + CRLF+CRLF + ; "Março / 2010","Versão do aplicativo") Define MSGITEM OF oWnd:oMsgBar ; TOOLTIP " Impressora padrão: "+CRLF+" "+PrnGetName()+" "; ACTION PrinterSetup() Define MSGITEM oMsg OF oWnd:oMsgBar; PROMPT " IP " SIZE 50 COLOR "n/W"; TOOLTIP "Desenvolvido por..." ACTION Sobre() Activate Window oWnd Maximized Valid MsgNoYes("Deseja sair?", "Informe:") Return(NIL) // Static Function Menu() Local oMenu MENU oMenu MENUITEM "&Converter" ACTION Converter() MESSAGE "Converter arquivos" MENUITEM "&Enviar" MESSAGE "Enviar arquivos" MENU MENUITEM "&Cliente" ACTION Enviar("C") MESSAGE "Enviar arquivo para cliente" MENUITEM "&Fornecedor" ACTION Enviar("F") MESSAGE "Enviar arquivo para fornecedor" ENDMENU MENUITEM "&Emitir" ACTION Emitir() MESSAGE "Emitir relatorios" MENUITEM "&Sair" ACTION oWnd:End() MESSAGE "Sair do aplicativo" ENDMENU Return(oMenu) // Function Converter() Return(NIL) Function Enviar() Return(NIL) Function Emitir() Return(NIL) Function Sobre() MsgInfo(" Empresa " + CRLF+CRLF + ; " Telefone " + CRLF+CRLF+CRLF + ; " E-mail ","Desenvolvido por:") Return(NIL) Function Ver_DBF() Return(NIL) // fim Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2010 Report Share Posted March 25, 2010 # Pode Ser Baixado em www.spravki.net.ru/ VersÆo European 6.0 ou em: # http://www.clipperbr.hpg.com.br Tem Blinker 7.0 Muito Bom BLINKER CLIPPER SYMBOL OFF # BLINKER LINK VERSION 7.00 # //3.3 # COMPRIMIR EXECUTAVEL 1=MAXIMO 5=DEFAULTS BLINKER EXECUTABLE COMPRESS 1 # Evita Erro Quando a quantidade de Fontes e muito grande By netspeed(Marcio) BLINKER EXECUTABLE ALIGNMENT 128 # VERBOSE NOBELL BLINKER INCREMENTAL OFF # BLINKER PROCEDURE DEPTH 90 # MAP A,S PACKCODE PACKDATA FILE MDIMENU FILE BACKUP FILE BMPVIEW FILE CONTATO FILE DBMANT FILE DIRETORY FILE GARANTIA FILE REDE FILE REINDEXA FILE REINICIA FILE RESTORE FILE SORT FILE VENDAS FILE ALUNOS FILE ALTALUNO FILE SAIDASCX FILE DEBITOCX FILE ALTDEBCX FILE ALTTUALU FILE CRIATURM FILE TABPRECO FILE CHAMADAS FILE CONFCURS #-- ACESS¢RIOS DO PROGRAMA FILE __WAIT #// ISTO, BAIXEI DA INTERNET TIRA ALGUNS BUGS DIVIDE BY ZERO FILE MPAR #// PARA EVITAR ALGUNS POSSIVEIS PROBLEMAS DE MEMORY LOW FILE MSGPOR #// MENSAGENS DO CLIPPER EM PORTUGUES FILE VMW #// ISTO, BAIXEI DA INTERNET TIRA ALGUNS BUGS #--- CLASSES FILE ANIMABMP #// ANIMAR AS BITMAPS DO SISTEMA FILE BMP_RAND #// Criar BitMaps Para o Fundo de Janela FILE BTNGET #// F9 OU F2 EM INCORCAM.PRG BY EDNALDO ROLIM FILE CALEND #// CALEND RIO - INTERNET FILE CORGET #// COR NOS GETS FILE DR_FOCUS #// CALEND RIO #// NAO REMOVER ESTE .OBJ NAO TENHO O PRG FILE DRCAL #// CALEND RIO - INTERNET FILE DSAY #// SAY DINAMICO - Tela Girat¢ria FILE HELP32 #// PARA CONTROLE DOS HELP's FILE IMAGE #// PARA TRATAMENTO DE IMAGENS *.JPG FILE MSGBAR #// MENSAGENS NA BARRA DE STATUS FILE MSGGET #// PARA ALTERAR AS MENSAGENS DO GET NA BUSCA RµPIDA. FILE MSGGETCP #// GET NA BUSCA RµPIDA DO CIC_CPF COM PICTURE. FILE MSGMETER FILE MSGRUN #// MSGRUN MENSAGENS DO RUN FILE PRINTER #// CONTROLA A IMPRESSORA JATO DE TINTA FILE SSAY #// DEIXA OS GETS TRANSPARENTES NA LISTBOX BY EDNALDO ROLIM FILE SYSFAR #// IMPRESSORA MATRICIAL USB COMPLEMENTO FILE TBUFFER #// Para wAgenda FILE TDOSPRN #// IMPRESSORA MATRICIAL ESTE NAO USA PROW() ESTE ‚ MELHOR FILE TLIST #// Classe Tlist.Prg(Diret¢rio) FILE TSHUT #// Classe Para Reiniciar o Micro. FILE TWCAPTUR #// NAO DEIXA A CALCULADORA SE MULTIPLICAR, VEM UMA Sà FILE WBROWSE #// INCORPORADO O ALT+LETRA BY EDNALDO FILE WINDOW #// PARA ALTERAR A COR DO TOOLTIP SE EU QUISER #--- CLASSES QUE OS PROGRMAS GERADOS A PARTIR DO PROGRAMA GENERA.EXE PRECISAM FILE RPREVIEW #// PARA IMPRESSORA FILE TGET #// TGET MODIFICADO PARA FW195, ALFREDO ARTEAGA, NÆO USEI.(FW24) FILE UTIL #// LIBRERIA-LIBRARY-BIBLIOTECA OUTPUT CURSOS DEFBEGIN NAME FIVEWIN DESCRIPTION 'CLIPPER FOR WINDOWS LIBRARY' EXETYPE WINDOWS 3.1 CODE PRELOAD MOVEABLE DISCARDABLE DATA PRELOAD MOVEABLE STACKSIZE 11500 HEAPSIZE 8520 SEGMENT 'PLANKTON_TEXT' NONDISCARDABLE SEGMENT 'EXTEND_TEXT' NONDISCARDABLE SEGMENT 'OM_TEXT' NONDISCARDABLE SEGMENT 'OSMEM_TEXT' NONDISCARDABLE SEGMENT 'SORTOF_TEXT' NONDISCARDABLE SEGMENT 'STACK_TEXT' NONDISCARDABLE DEFEND #------------------------------------------------------------------------------ # LIBS DE TERCEIROS LIB C:\FW24\LIB\BTNGET LIB C:\FW24\LIB\FOLDER #LIB C:\FW24\LIB\SBUTTON #------------------------------------------------------------------------------ # LIBS DO FIVEWIN - BUSCAR SEMPRE NO DIRETà RIO DO FIVEWIN LIB C:\FW24\LIB\FIVE LIB C:\FW24\LIB\FIVEC LIB C:\FW24\LIB\OBJECTS LIB C:\FW24\LIB\WINAPI #------------------------------------------------------------------------------ # LIBS DO CLIPPER 5.3B - ESTAS, DEVEM BUSCAR SEMPRE EM \CLIP53\LIB LIB C:\CLIP53\LIB\CLIPPER LIB C:\CLIP53\LIB\DBFCDX, _DBFCDX LIB C:\CLIP53\LIB\EXTEND LIB C:\CLIP53\LIB\TERMINAL # #----------------FIM DO ARQUIVO LNK-------------------------------------------- id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2010 Report Share Posted March 25, 2010 // Diretivas Para o Pre-Porcessador e RMake Usando Arquivo.RC COMPILAR := /ES2/M/N/W // Se o Arquivo 'CLIPPER.LOG' Ja Existe, Entao Delete #IFFILE CLIPPER.LOG #! DEL CLIPPER.LOG #! DEL BLINKER.LOG #ENDIF .PRG.OBJ: CLIPPER $< $(COMPILAR) >> CLIPPER.LOG // DEFINICAO DAS REGRAS DE DEPENDENCIA DOS *.OBJ //--- PROGRAMAS NORMAIS MDIMENU.OBJ : MDIMENU.PRG BACKUP.OBJ : BACKUP.PRG BMPVIEW.OBJ : BMPVIEW.PRG CALEND.OBJ : CALEND.PRG CONTATO.OBJ : CONTATO.PRG DBMANT.OBJ : DBMANT.PRG DIRETORY.OBJ : DIRETORY.PRG GARANTIA.OBJ : GARANTIA.PRG REDE.OBJ : REDE.PRG REINDEXA.OBJ : REINDEXA.PRG REINICIA.OBJ : REINICIA.PRG RESTORE.OBJ : RESTORE.PRG SORT.OBJ : SORT.PRG VENDAS.OBJ : VENDAS.PRG WAGENDA.OBJ : WAGENDA.PRG ALUNOS.OBJ : ALUNOS.PRG // Incluir Alunos do Curso ALTALUNO.OBJ : ALTALUNO.PRG // Alterar Alunos do Curso SAIDASCX.OBJ : SAIDASCX.PRG // Saidas do Caixa DEBITOCX.OBJ : DEBITOCX.PRG // Debitos dos alunos -> InclusÆo ALTDEBCX.OBJ : ALTDEBCX.PRG // Alterar Debitos dos Alunos. ALTTUALU.OBJ : ALTTUALU.PRG // Alterar a Turma do Aluno CRIATURM.OBJ : CRIATURM.PRG // Criar Turmas... TABPRECO.OBJ : TABPRECO.PRG // Tabela de Pre‡os e Servi‡os CHAMADAS.OBJ : CHAMADAS.PRG // Pasta de Chamadas dos Alunos CONFCURS.OBJ : CONFCURS.PRG // Configura‡Æo do Sistema //--- CLASSES ANIMABMP.OBJ : ANIMABMP.PRG // DEIXA A BITMAP ANIMADA BMP_RAND.OBJ : BMP_RAND.PRG // Criar BitMaps Para o Fundo de Janela BTNGET.OBJ : BTNGET.PRG // PARA CHAMAR F9 NO INCORCAM CORGET.OBJ : CORGET.PRG // POR CORES NOS GETS DRCAL.OBJ : DRCAL.PRG // CALENDµRIO DSAY.OBJ : DSAY.PRG // SAY DINAMICO - Tela Girat¢ria HELP32.OBJ : HELP32.PRG // PARA CONTROLE DOS HELPS IMAGE.OBJ : IMAGE.PRG // PARA IMAGENS JPG MSGBAR.OBJ : MSGBAR.PRG // MENSAGENS NA BARRA DE STATUS MSGGET.OBJ : MSGGET.PRG // PARA OS GETS DE BUSCA RAPIDA MSGGETCP.OBJ : MSGGETCP.PRG // PARA OS GETS DE BUSCA RAPIDA DO CIC_CPF MSGMETER.OBJ : MSGMETER.PRG MSGRUN.OBJ : MSGRUN.PRG // MSGRUN MENSAGENS DO RUN PRINTER.OBJ : PRINTER.PRG // CONTROLAR A IMPRESSORA A JATO SSAY.OBJ : SSAY.PRG // PARA SAYS TRANSPARENTES SYSFAR.OBJ : SYSFAR.PRG // IMPRIMIR EM MATRICIAL PARA USB TBUFFER.OBJ : TBUFFER.PRG // Para wAgenda TDOSPRN.OBJ : TDOSPRN.PRG // IMPRIMIR EM MATRICIAL TLIST.OBJ : TLIST.PRG // Classe Tlist.Prg(Diret¢rio) TSHUT.OBJ : TSHUT.PRG // Classe Para Reiniciar o Micro. TWCAPTUR.OBJ : TWCAPTUR.PRG // PARA CAPTURAR CALCULADORA WBROWSE.OBJ : WBROWSE.PRG // INCORPORADO O ALT+LETRA BY EDNALDO WINDOW.OBJ : WINDOW.PRG // PARA A COR DO TOOLTIP RPREVIEW.OBJ : RPREVIEW.PRG // PARA PREVIEW TGET.OBJ : TGET.PRG // TGET MODIFICADO UTIL.OBJ : UTIL.PRG // LIBRERIA - LIBRARY - BIBLIOTECA CURSOS.EXE : CURSOS.RES IF NOT ERRORLEVEL 1 BLINKER @CURSOS.LNK >> BLINKER.LOG IF EXIST CURSOS.RC BRC -31 -K CURSOS // Sem ExtensÆo... O Blinker Sabe. IF NOT ERRORLEVEL 1 CURSOS.EXE // Obrigat¢rio Criar Um Arquivo.Res Para Linkar o Arquivo.RC CURSOS.RES : CURSOS.RC // Dependencia do Arquivo.Res Com o Arquivo.RC // FIM DO ARQUIVO.RMK id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ram_bh Posted March 26, 2010 Author Report Share Posted March 26, 2010 Kapiaba, obrigado! Farei um teste ainda pela manhã e darei retorno. Um abraço! Rodrigo Melo IP.informática.personalizada. Quote Link to comment Share on other sites More sharing options...
ram_bh Posted March 26, 2010 Author Report Share Posted March 26, 2010 Kapiaba, consegui resolver desta forma: // comp.bat set include= set include=\clip53\include;\fw24\include; set obj= set obj=\clip53\obj;\fw24\obj; set lib= set lib=\clip53\lib;\fw24\lib; set path=%path%;\clip53\bin;\bli70\bin; del erro.txt del prog.obj del prog.exe clipper prog /n /w /m >erro.txt blinker fi prog @prog // fim comp.bat // prog.lnk BLINKER INCREMENTAL OFF BLINKER EXECUTABLE COMPRESS MAP A,S PACKCODE PACKDATA DEFBEGIN name FiveWin description 'Clipper for Windows library' exetype Windows 3.1 code moveable discardable data preload moveable stacksize 9500 heapsize 2048 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND NOBELL SEARCH Five, FiveC, Objects LIB WinApi, Clipper, Extend, DbfCdx,_DbfCdx, Terminal // fim prog.lnk Obrigado e um abraço a todos! Rodrigo Melo Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.