Jump to content
Fivewin Brasil

dll de 16 bits para 32 bits


neto_23

Recommended Posts

Ola no diretorio samples do fivewin tem um bat que ajuda transformar RC em DLL de 32 bits.

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

Link to comment
Share on other sites

bem consegui mudar a dll para 32 bits obrigado.... + tem problema .. eu uma dialog antes de abrir a tela principal do sistema ela serve para pedir a senha do usuario... para ve os acessos e na ativa essa dialog... se eu tiro ela ele passa normal e ativa as outra dialogs o que devo fazer com a dialogs antes da tela principal....

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br

Link to comment
Share on other sites

ELA(DIAGLOG) ABRE ANTES OU DEPOIS DA WINDOW(JANELA) PINCIPAL?

NAO EXISTE RAZAO PARA A SUA DIALOG NÃO ABRIR, MESMO CORROMPIDA, ABRIRIA, DARIA NO MÃXIMO O ERRO 'CANNOT CREATE DIALOG BOX', SE ESTIVESSE CORROMPIDA.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

citação:

antes da janela windows.. kapiaba.. espero retorno.. ok

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br


id=quote>id=quote>

DESVIE PARA UMA FUNCTION, ANTES DA ABERTURA DA WINDOW, SUA DIALOG INICIAL.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

kapiaba já chamo a funcao dentro do init da window

a função é entra()

tentei colocar antes do activate mais da erro de criacao da dialog...

veja a fonte

activate window ownd MAXIMIZED ON INIT(oWnd:Maximize(), aRec:=GetWndRect(oWnd:hWnd))

** chamada da tela do window

INIT PROCEDURE Init_Main()

local oBar, mUsr, aStr, oMeter, oText, oDlg, lEnd

public abar, varco, BrwText, BrwBack, BrwText1, BrwText2, BrwText3, BrwText4, nl, nemp

Public cord,cord3, senh, nusu

Public ma01, ma02, ma03, ma04, ma05, ma06, ma07, ma08, ma09, ma10

Public ma11, ma12, ma13, ma14, ma15, ma16, ma17, ma18, ma19, ma20

Public ma21, ma22, ma23, ma24, ma25, ma26, ma27, ma28, ma29, ma30

Public ma31, ma32, ma33, ma34, ma35, ma36, ma37, ma38, ma39, ma40

Public ma41, ma42, ma43, ma44, ma45, ma46, ma47, ma48, ma49, ma50

Public ma51, ma52, ma53, ma54, ma55, ma56

Public oWnd1,cVndImp

set exclu off

set date brit

set safety off

set dele on

set talk off

set wrap on

set echo off

*set scoreboard off

set fixed on

set bell off

set esca on

set exact on

set deci to 2

set device to screen

set cent on

SET 3DLOOK ON

SET DATE TO BRITISH

SET EPOCH TO (YEAR(DATE())-35)

SET SOFTSEEK ON

sethandlecount(150)

*dt1vl = ctod('20/12/2005')

*dt2vl = date()

*if dt2vl > dt1vl

* ferase('MOVPE01.DBF')

* clear

* quit

*endif

**hBorland:= LoadLibrary('BWCC32.DLL')

**BWCCRegister( GetResources( ) )

hBorland := LoadLib32("BWCC32.DLL")

set resources to "frente.dll"

***bwccregister(getresources())

REQUEST DBFCDX

RDDSETDEFAULT( "DBFCDX" )

DBSETDRIVER("DBFCDX")

REQUEST HB_LANG_PT

set procedure to cmpcria

set procedure to cmpfun

set procedure to cmpent

set procedure to cmpfunci

set procedure to cmpfilia

set procedure to cmpconsu

set procedure to cmpfin

set procedure to cmpgrup

set procedure to cmpprodu

set procedure to cmpsorte

set procedure to cmpentpr

set procedure to cmpsaipr

set procedure to corget

set procedure to tarray

set procedure to tdosprn

set procedure to testmemo

IF ! MsgYesNo(OemToAnsi("Verifique se data e hora estÆo corretos!")+CRLF+CRLF+;

"DATA: "+DTOC(DATE())+CRLF+;

"HORA: "+LEFT(TIME(),5)+CRLF+CRLF+;

OemToAnsi("EstÆo corretos?"),;

OemToAnsi("Aten‡Æo!"))

dDatu := DATE()

lSuccess := .f.

IF MsgGet("Acerte a data","Acerte a data",@dDatu,".\BITMAPS\TIME.BMP")

nDia := DAY(dDatu)

nMth := MONTH(dDatu)

nYar := YEAR(dDatu)

lSuccess := SetDate(nDia,nMth,nYar)

ENDIF

SysRefresh()

cHora := LEFT(TIME(),8)

IF MsgGet("Acerte a hora","Acerte a hora",@cHora,".\BITMAPS\TIME.BMP")

wsegu := SECS(cHora)

wh:=int(wsegu/3600)

wm:=int(mod(wsegu,3600)/60)

ws:=wsegu-secs(strzero(wh,2)+":"+strzero(wm,2)+":00")

lSuccess := SetTime(wh,wm,ws,0)

ENDIF

SysRefresh()

ENDIF

BrwText := CLR_BLACK

BrwBack := 14483196 // Amarelo enbranquecido

BrwText1 := CLR_RED

BrwText2 := CLR_BLUE

BrwText3 := CLR_GREEN

BrwText4 := CLR_WHITE

cria()

sele 7

use empre

set index to empre

set order to 1

go top

if reccount() = 0

set cursor on

do ceca03

else

endif

ceca01()

criaind()

iniprg = 't'

iniexe = 't'

abar = 'ab002'

abri()

sele 30

go top

if reccount() = 0

cfu = 'MAAL'

nfu = 'COMPRA PREMIADA'

seg = 'CCPE'

esp = '*****'

sele 30

append blank

lock()

repla codfu with cfu,nomfu with nfu,senha with seg,espel with esp,inici with date()

unlock

commit

endif

entra() aqui é a chamada.... e não da certo

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br

Link to comment
Share on other sites

NAO, NAO!

USE ANTES DO DEFINE WINDOW... CHAMADA DA FUNCAO, QUE VAI ATIVAR A DIALOG.

A WINDOW(JANELA), SÓ DEVE ATIVAR-SE, DEPOIS QUE VOCE FEZ, O QUE TINHA QUE FAZER, AI FECHE ADIALOG(oDlg:End()) E AI, A WINDOW SE ATIVARA.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

mostra esse seguinte erro kapiaba...

Application

===========

Path and name: D:\CMPFWH\COMPRA.EXE (32 bits)

Size: 1,863,683 bytes

Time from start: 0 hours 0 mins 0 secs

Error occurred at: 26/01/2006, 13:38:34

Error description: Error FiveWin/3 Cannot create Dialog Box:

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: SENENT

Stack Calls

===========

Called from: => CREATEDLGERROR(0)

Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)

Called from: cmpent.prg => ENTRA(49)

Called from: compra.prg => MENUPRI(50)

kapiaba melhor dll ou rc para esse tipo de trabalho....

se a dll estiver corrompida como ajeitar ela....

abracos e obrigado novamente se que vc não tem direito nenhum de ajudar.... obrigado assim mesmo...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br

Link to comment
Share on other sites

citação:

mostra esse seguinte erro kapiaba...

Application

===========

Path and name: D:\CMPFWH\COMPRA.EXE (32 bits)

Size: 1,863,683 bytes

Time from start: 0 hours 0 mins 0 secs

Error occurred at: 26/01/2006, 13:38:34

Error description: Error FiveWin/3 Cannot create Dialog Box:

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: SENENT

Stack Calls

===========

Called from: => CREATEDLGERROR(0)

Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)

Called from: cmpent.prg => ENTRA(49)

Called from: compra.prg => MENUPRI(50)

kapiaba melhor dll ou rc para esse tipo de trabalho....

se a dll estiver corrompida como ajeitar ela....

abracos e obrigado novamente se que vc não tem direito nenhum de ajudar.... obrigado assim mesmo...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br


id=quote>id=quote>

AGORA SIM, COMEÇAMOS A FALAR A MESMA LINGUA.

AQUI, NINGUEM TEM DIREITO A NADA -> Olha a democracia... hehehe... TODOS TEEM OBRIGAÇÃO DE AJUDA-LO.

VEJA: 'CANNOT CREATE DIALOG BOX'. AGORA VOCE ESTÃ NO CAMINHO CERTO. FALTOU VOCE INCORPORAR A BWCC.DLL

OU ENTAO, VOCE ESTA CHAMANDO UMA BROWSE QUE NAO É COMPATIVEL, TIPO DEFINISTES NA DIALOG, UMA TSBROWSE, E ESTAIS CHAMANDO NO MODULO, TWBROWSE -> Capiche??

MELHOR, É VOCE USAR ARQUIVO.RES OU ARQUIVO.RC.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

kapiaba mudei para o rc e tirei a janela de senha e gerei senha.rc e copiei para compra.rc funcionou beleza....mais ai eu pensei como essa senha.rc so tem a janela de senha e os cadastro do sistema foram todo ativado.. como vou fazer para mudar as telas se não esta nessar senha.rc... ai criei uma pasta rc e copiei todo *.rc para a pasta e deixei somente a compra.rc e deu erro.. novamente... retornei todos e continuo o mesmo erro vou usar o rc + eu acho que esta corrompido. como fazer para normalizar o arquivo.rc

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br

Link to comment
Share on other sites

Olá não tem corrupção, Abra a BWCC32.DLL Só isso...

LOCAL hBorland

hBorland:= LoadLibrary('BWCC32.DLL')

BWCCRegister( GetResources( ) )

No final do Menu principal:

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

EM 32 BITS, A EXTENSAO DO ARQUIVO, É .RES, INCORPORE QUANTOS ARQUIVOS.RES, FOREM NECESSÃRIOS.

AJUDAR É UM PRAZER, NÃO UMA OBRIGAÇÃO... Say lá quem escreu isso... hehehehehe

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

kapiaba eu não coloquei do jeito que voce falou mais estou usando o arquivo.rc e compilo ele com verce 4.3 e tirei a chamada bwcc32.dll do programa e da certo. Será que vai da Problema futuro.. desse jeito deu certo... o tu acha que pode da problema se não fizer essa chamada.. eu nao estou usando dll e sim rc, é preciso mesmo assim...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br

Link to comment
Share on other sites

citação:

kapiaba eu não coloquei do jeito que voce falou mais estou usando o arquivo.rc e compilo ele com verce 4.3 e tirei a chamada bwcc32.dll do programa e da certo. Será que vai da Problema futuro.. desse jeito deu certo... o tu acha que pode da problema se não fizer essa chamada.. eu nao estou usando dll e sim rc, é preciso mesmo assim...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br


id=quote>id=quote>

SE VOCE NAO USAR EM NENHUM MOMENTO CONTROLES BORLAND, NÃO TERÃS PROBLEMAS.

SE COM O VERCE, INCORPORA O ARQUIVO.RC NA BOA, ENTAO BELEZA. EU NAO CONSIGO INCORPORAR NEM A PAU, SÓ COM EXTENSAO .RES EM 32 BITS. WORKSHOP.EXE DEFAULT 32 BITS.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

kapiaba mudei para extensão res e fiz a chamada que vc falou deu certo tambem... vou ficar nessa....me tira uma duvida vc esta trabalhando com o pelles ... o peles é igual o workshop ou ele é compilador... o workshop ta mostrando a tela direitinho para mim mais quando chamo o sistema ele da diferenca de letra... botoes fora do lugar alguns erros de posicao.... qual é melhor para trabalhar com 32 bits o pelles ou ws...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br

Link to comment
Share on other sites

citação:

kapiaba mudei para extensão res e fiz a chamada que vc falou deu certo tambem... vou ficar nessa....me tira uma duvida vc esta trabalhando com o pelles ... o peles é igual o workshop ou ele é compilador... o workshop ta mostrando a tela direitinho para mim mais quando chamo o sistema ele da diferenca de letra... botoes fora do lugar alguns erros de posicao.... qual é melhor para trabalhar com 32 bits o pelles ou ws...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br


id=quote>id=quote>

NAO POSSO TE RESPONDER ISSO, PORQUE DARIA UMA LELE DAQUELES... hehehehehe.

EU USO WORKSHOP.EXE the best, EM ALGUMA DIALOGS, EU USO O RESIZE16, NOUTRAS, AS VEZES, O RESIZE16 NAO FUNCIONA REDONDO, ENTAO, EU REDIMENSIONO NO WORKSHOP.EXE the best, MAS É O UNICO TRABALHO QUE VOCE VAI TER, EM 4/5 SEMANAS, JA CONVERTESTES O TEU PORGRAMA NUNA NICE! É isso. Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe

Link to comment
Share on other sites

citação:

citação:

kapiaba mudei para extensão res e fiz a chamada que vc falou deu certo tambem... vou ficar nessa....me tira uma duvida vc esta trabalhando com o pelles ... o peles é igual o workshop ou ele é compilador... o workshop ta mostrando a tela direitinho para mim mais quando chamo o sistema ele da diferenca de letra... botoes fora do lugar alguns erros de posicao.... qual é melhor para trabalhar com 32 bits o pelles ou ws...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br


id=quote>id=quote>

NAO POSSO TE RESPONDER ISSO, PORQUE DARIA UMA LELE DAQUELES... hehehehehe.

EU USO WORKSHOP.EXE the best, EM ALGUMA DIALOGS, EU USO O RESIZE16, NOUTRAS, AS VEZES, O RESIZE16 NAO FUNCIONA REDONDO, ENTAO, EU REDIMENSIONO NO WORKSHOP.EXE the best, MAS É O UNICO TRABALHO QUE VOCE VAI TER, EM 4/5 SEMANAS, JA CONVERTESTES O TEU PORGRAMA NUNA NICE! É isso. Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe


id=quote>id=quote>

Com certeza, AMANHÃ, entre uma breja e outra, você confessa.... hehehehehehehehehe.

AI QUE SEDE.

assinatpaulo.jpg

Link to comment
Share on other sites

citação:

kapiaba mudei para extensão res e fiz a chamada que vc falou deu certo tambem... vou ficar nessa....me tira uma duvida vc esta trabalhando com o pelles ... o peles é igual o workshop ou ele é compilador... o workshop ta mostrando a tela direitinho para mim mais quando chamo o sistema ele da diferenca de letra... botoes fora do lugar alguns erros de posicao.... qual é melhor para trabalhar com 32 bits o pelles ou ws...

fw27-blinker7-clipper53B-cdx-Workshop

gabrieis@bol.com.br


id=quote>id=quote>

Meu amigo....

Quando iniciei meus trabalhos com a fivewin clipper (16 bits), pela facilidade de se fazer as dialogs em minutos, resolvi ser adpto ao WorkShop (Não vou falar que tem um dedo do Kapiaba nisso, tem logo é todos os dedos)...

Já quando passei a trabalhar com a fivewin for harbour 2.7, resolvi migrar para o Pelles C, pois ele é 32 bits e não me arrependo, lógico, no começo estranhei e me atrapalhei, mas por apenas uns 10 minutos, depois estava dominado...

Não quero interferir na sua decisão, mas esta é a minha opinião.....

Pelles C 10 X 0 WorkShop (para 32 bits)

assinatchris.jpg

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...