Erro 1128 no BLinker - resolvido

[ram_bh]

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

[ram_bh]

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

[ram_bh]

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!

[kapiaba]

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

[kapiaba]

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

[kapiaba]

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

[kapiaba]

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

[ram_bh]

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-

[ram_bh]

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

[kapiaba]

# 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

[kapiaba]

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

[ram_bh]

Kapiaba, obrigado!

Farei um teste ainda pela manhã e darei retorno.

Um abraço!

Rodrigo Melo

IP.informática.personalizada.

[ram_bh]

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