Naum funciona o hdl:=loadlibrary("bwcc.dll")

[jef2_tim]

Ola amigos...

Estou com problemas de ter q abrir o WorkShop para poder executar o sistema... nao sei pq estou tendo de fazer isto... um amigo deu a dica pra eu colocar a linha hdl:=loadlibrary("bwcc.dll") logo no inicio e freelibrary("bwcc.dll") no fim.. mesmo assim nao consigo abrir... o q pode estar havendo..

valeu amigos pela ajuda estou precisando

[Orlando FMC]

Olá...

Já verificou o caminho do bwcc.dll?

Ao usar loadlibrary você deve especificar o caminho onde está o arquivo bwcc.dll, ou colocar este arquivo na mesma pasta do .exe. Ex.: loadlibrary("c:\windows\sistem\bwcc.dll")

Orlando

[jef2_tim]

o arquivo esta na mesma pasta.... isto ocorreu depois q instalei a fwctrls no ws ...

O arquivo bwcc.dll esta na pasta do sitema ... e mesmo assim nao funciona...

eu to colocando na minha primeira funcao

* SISTEMA : SISTEMA DE AUTOMA€ŽO COMERCIAL - IMPACTUS FOR WINDOWS

* PROGRAMA : IMPAC.PRG

* DATA INICIO... : 16/JUN/03

* ULTIMA REVISAO : 16/JUN/03

* OBJETIVO...... : SISTEMA PRINCIPAL

*

* COPYRIGHT © 2003 IMPACTUS INFORMATICA LTDA.

***

*-------- Includes Principais e Tela Principal

#include "fivewin.ch"

#Include "VoGet.Ch"

#include 'winapi.ch'

Static oTelaPrincipal

*--------

*--------------------

Function Main()

*--------------------

local oBrush,oImpIco

Set resources to "Impac.dll"

hdl:=LoadLibrary("BWCC.DLL")

Define Brush oBrush FileName "LOGO.bmp"

Define Icon oImpIco FileName "Impac.ico"

Define Window oTelaPrincipal;

eae segue o programa

oq sera q pode estar ocorrendo.. sera q esta errado a forma q faço?

vleu amigos...

[karinha]

Olá... Primeiro, copie BIVBX10.DLL para \WINDOWS\SYSTEM Esta DLL deve estar no

diretorio do \WORKSHOP.EXE Verifique. Se Nao Tiver, Peca a Alguem!

Segundo:

// Respeite Esta Hierarquia... Dentro do seu diretorio

SET RESOURCES TO ".\IMPAC.DLL", ;

".\CTL3D.DLL", ;

".\BWCC.DLL" , ;

".\PREVIEW.DLL" // TELAS E DIALOGOS

//PS: Se estiver Usando Windows XP, Veja Nos Topicos Sintaxe Correta.

Na Saida do Seu Programa, embaixo do:

ACTIVATE WINDOW OWND MAXIMIZED

DbCloseAll()

// DeActivate Font oFont // Se estiver usando, ligue

EndDialog()

FreeLibrarys()

FreeResources() // Set Resources To

GlobalFree()

// oBrush:End() // Se tiver usando, ligue

// oTimer:End() // Se tiver usando, ligue

// ReleaseDC( oBmp, oWnd ) // Se estiver usando, ligue

Release All

ResAllFree()

Set _3DLook Off // Ou Set 3DLook Off

// SndPlaySound(".\Encerra.Wav" )

SysRefresh() // Para Descarregar Completamente o bitmap do Fundo

No seu LNK:

STACKSIZE 20000

HEAPSIZE 8520

Se mesmo assim nao funcionar, reporte o codigo do ERRO!

I Love FiveWin The best .and. WorkShop.Exe Abraços.

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[jef2_tim]

ola meus amigos... Eae João...

Cara naum consigo funcionar ... fiz como falow e nao abre o sistema... simplesmente da erro na minha primeira tela do resource...

aqui esta como fiz..

*-------- Includes Principais e Tela Principal

#include "fivewin.ch"

#Include "VoGet.Ch"

#include 'winapi.ch'

Static oTelaPrincipal

*--------

*--------------------

Function Main()

*--------------------

local oBrush,oImpIco

LoadLibrary("BWCC.DLL")

Set resources to "Impac.dll",;

"ctl3d.dll",;

"bwcc.dll",;

"Preview.dll"

Define Brush oBrush FileName "LOGO.bmp"

Define Icon oImpIco FileName "Impac.ico"

Define Window oTelaPrincipal;

Title "Impactus - Sistema de Automacao Comercial e Madeireira" ;

From 0,0 to 25,70 ;

Menu BuildMenu() ;

MDI;

Brush oBrush ;

Icon oImpIco

SetHandleCount(250)

// aqui vem codigo fonte contendo minhas vareiaveis publicas e outras funcoes de controle..

/// qui eu abro o primeiro Dialog.. para senha

*---------------- SENHA ACESSO

Select 1

If !Open_File("SAFUSY")

Saf_Sai(1)

Endif

Cto_Snh = 1

Do While .T.

Saf_Snh()

If !Empty(Msenha)

Tst_Snh()

Endif

Goto Top

Locate For Alltrim(1->Aceusy) = Alltrim(Msenha)

If Empty(Msenha) .Or. Eof()

If Cto_Snh < 3

Saf_Ero(102)

Cto_Snh++

Loop

Else

Saf_Sai(1)

Endif

Endif

Nme_Usy = 1->Nmeusy ; Cod_Usy = 1->Codusy ; Trans_Provda = If(1->Autpro = ,.T.,.F.) ; Usy_Dirsup = If(1->Dirsup = ,.T.,.F.)

Ver_Debcli = If(1->Verdeb = ,.T.,.F.) ; Chk_Usy = 1->Chkusy

If Alltrim(Str(Chk_Usy,10,2)) # Alltrim(Str(Chk_Snhreg(),10,2)) .AND. Cto_Snh < 3

Saf_Ero(173)

If Alltrim(Nme_Usy) != [sUPERVISOR]

Close_All()

Saf_Sai(1)

Endif

Endif

Dat_Sys(1)

Close_All()

Exit

Enddo

Ace_Usy = {}

If Alltrim(Nme_Usy) # "SUPERVISOR" .And. Alltrim(Nme_Usy) # "SUPORTE TÂCNICO" .And. !Usy_Dirsup

Select 1

If !Open_File("SAFNAU","NAUCODGO.SAF")

Saf_Sai(1)

Endif

Seek Str(Cod_Usy,5)

If Eof()

Saf_Ero(99)

Set Cursor Off

Endif

Do While Codusy = Cod_Usy

Aadd(Ace_Usy,Codope)

Skip

Enddo

Endif

Close_All()

SET MESSAGE OF oTelaPrincipal TO "Impactus Informatica - (91) 249 - 9921 **** [Versao 1.0] / BetaWin ****" CLOCK DATE KEYBOARD NOINSET

activate Window oTelaPrincipal Maximized Valid MsgYesno("Deseja Finalizar o Sistema Impactus?","Finalizando Operacoes")

Eu acho q o problema esta na tela pra senha... pq eu abro primeiro uma tela pra senha.. entende... e so depois ativo minha otelaprincipal... acho q isto e q esta dando problema...

eu teria de ativar primeiro a tela principal e depois ativar a senha???

Valeu meus amigos...

[karinha]

// Testado e Aprovado em Clipper 5.3B - Cortesia By João Santos

// http://www.gruporibas.com.br/kmt - karinhannah@ubbi.com.br

*-------- Includes Principais e Tela Principal

#Include "FiveWin.Ch"

#Include "Objects.Ch"

#Include "VoGet.Ch" // VoGet.Prg, Você a domina bem? É Classe de Terceiros. ???

//-----------------------------------------------------------------------------

#Define CLR_LGRAY nRGB( 230, 230, 230 )

#Define CLR_LGREEN nRGB( 190, 215, 190 )

//-----------------------------------------------------------------------------

STATIC oTelaPrincipal

FUNCTION Main()

LOCAL oBrush, oImpIco, oBar, oBmp

LOCAL cTitle := "Impactus - Sistema de Automacao Comercial e Madeireira - " + ;

"MENU PRINCIPAL"

//-----Configuracao Geral do Sistema---------------------------------------

// SET 3DLOOK ON // FIVE INFERIOR... Sei la...

SET _3DLOOK ON // ATIVA IMAGEM 3D  OBRIGATàRIO

SET CENTURY ON // 4 DIGITOS PARA O ANO

SET CURSOR ON //-SetCursor( if(Upper("ON") == "ON", 1, 0) )

SET DATE BRITISH // FORMATO DD/MM/AAAA

SET DATE FORMAT "dd/mm/yyyy" // IGUAL AO ANTERIOR, APENAS REFOR€O.

SET DELETED ON // ON IMPEDIR VER REGISTROS MARCADOS PARA APAGAR

SET EPOCH TO (Year(Date())-50)// PARA IMPEDIR QUE O ANO SEJA 00

SET ESCAPE ON // TECLA ESC LIGADA, POSSO ESCAPAR.

SET EXCLUSIVE ON // REDE NETUSE LIGADA

SET INTENSITY ON // -Set( 28, "ON" ) INTENSIDADE DE CORES

SET MULTIPLE ON // PARA QUE SE POSSA ACIONAR QUANTAS JANELAS QUISER

// Nao Esqueca de Copiar Estas DLLs Para o Diretorio dos Fontes.

SET RESOURCES TO ".\IMPAC.DLL", ;

".\CTL3D.DLL", ;

".\BWCC.DLL" , ;

".\PREVIEW.DLL" // TELAS E DIALOGOS

SET WRAP ON //-Set( 35, "ON" ) // PARA MENUS

SETCANCEL( .F. ) // INUTILIZA ALT + C PARA ABORTAR PROGRAMA

SETHANDLECOUNT( 150 ) // MAXIMO N§ DE ARQUIVOS ABERTOS

//-------------------------------------------------------------------------

// Chame a Senha de Acesso Aqui... Ou... Vide Abaixo na Janela.

// Senha de Acesso... Ligue e Teste Para Ver...

// SENHA_ACESSO() // Chamar a Senha de Acesso do Sistema.

//-------------------------------------------------------------------------

DEFINE BRUSH oBrush FILENAME "LOGO.BMP"

DEFINE ICON oImpIco FILENAME "IMPAC.ICO"

DEFINE WINDOW oTelaPrincipal ;

TITLE cTitle ;

MENU BuildMenu() ;

BRUSH oBrush ;

ICON oImpIco ;

MENUINFO 3 ;

BORDER SINGLE ;

MDI

// Ou Chame a Senha Aqui, Depois de Mostrar a Janela... Recomendavel.

// Senha de Acesso... Ligue e Teste Para Ver...

// SENHA_ACESSO() // Chamar a Senha de Acesso do Sistema.

//-------------------------------------------------------------------------

// Area Reservada Para a Barra de Botoes...

DEFINE BUTTONBAR OBAR ;

BUTTONSIZE 40,40 ;

_3DLOOK ; // Imagem na Tela em 3D

TOP ;

OF oTelaPrincipal

// Tratamentos Para a Barra de Botäes

oBar:bRClicked := { || ( NIL ) } // Mouse Direito

oBar:bLClicked := { || ( NIL ) } // Mouse Esquerdo

oBar:SetColor( CLR_LIGHTGRAY, CLR_LGREEN )

oBar:Adjust()

// Area Reservada para o Botoes...

// Botao 1, 2, 3, 4, 5... Etc

DEFINE BUTTON OF OBAR RESOURCE "SAIDA" ;

MESSAGE "Saida do Programa" ;

ACTION ( oTelaPrincipal:End() ) ;

TOOLTIP "Saida do Programa" ;

NOBORDER GROUP ;

CENTER

//-------------------------------------------------------------------------

SET MESSAGE OF oTelaPrincipal TO "Impactus Informatica - " + ;

"(91) 249 - 9921 **** [Versao 1.0] / BetaWin **** " ;

CLOCK DATE KEYBOARD NOINSET COLOR CLR_HBLUE

ACTIVATE WINDOW oTelaPrincipal MAXIMIZED ;

VALID MsgYesno( "Deseja Finalizar o Sistema Impactus?", ;

"Finalizando Operacoes" )

DbCloseAll()

// DeActivate Font oFont

EndDialog()

FreeLibrarys()

FreeResources() // Set Resources To

GlobalFree()

// oBrush:End()

// oTimer:End()

ReleaseDC( oBmp, oTelaPrincipal )

Release All

ResAllFree()

// Set 3DLook Off // Five Inferior... Sei la...

Set _3DLook Off

// SndPlaySound(".\Encerra.Wav" )

SysRefresh() // Para Descarregar Completamente o bitmap do Fundo

RETURN NIL

//-----------------------------------------------------------------------------

FUNCTION BuildMenu( bAddlMenus ) // Seu Menu Principal.

Local oMenu

MENU oMenu

MENUITEM "Cadastros " ;

MESSAGE( "Manutenção de Todos os Cadastros Referentes "+ ;

"aos Diversos Tipos de Clientes" )

MENU

MENUITEM "Atualização dos Clientes" ;

ACCELERATOR ACC_ALT, ASC( "A" ) ;

MESSAGE "Atualização dos Clientes nos "+ ;

"Bancos de Dados Multi-Tarefa"

ENDMENU

ENDMENU

RETURN( oMenu )

//-----------------------------------------------------------------------------

*---------------- SENHA ACESSO

STATIC FUNCTION SENHA_ACESSO()

// Jogue sua senha de acesso Para uma funcao propria...

/*

Select 1

Goto Top

If !Open_File("SAFUSY")

Saf_Sai(1)

Endif

Cto_Snh = 1

Do While .T.

Saf_Snh()

If !Empty(Msenha)

Tst_Snh()

Endif

//Goto Top

Locate For Alltrim(1->Aceusy) = Alltrim(Msenha)

If Empty(Msenha) .Or. Eof()

If Cto_Snh < 3

Saf_Ero(102)

Cto_Snh++

Loop

Else

Saf_Sai(1)

Endif

Endif

Nme_Usy = 1->Nmeusy ; Cod_Usy = 1->Codusy ; Trans_Provda = If(1->Autpro = ,.T.,.F.) ; Usy_Dirsup = If(1->Dirsup = ,.T.,.F.)

Ver_Debcli = If(1->Verdeb = ,.T.,.F.) ; Chk_Usy = 1->Chkusy

If Alltrim(Str(Chk_Usy,10,2)) #

Alltrim(Str(Chk_Snhreg(),10,2)) .AND. Cto_Snh < 3

Saf_Ero(173)

If Alltrim(Nme_Usy) != [sUPERVISOR]

Close_All()

Saf_Sai(1)

Endif

Endif

Dat_Sys(1)

Close_All()

Exit

Enddo

Ace_Usy = {}

If Alltrim(Nme_Usy) # "SUPERVISOR" .And. Alltrim(Nme_Usy) #

"SUPORTE TÂCNICO" .And. !Usy_Dirsup

Select 1

If !Open_File("SAFNAU","NAUCODGO.SAF")

Saf_Sai(1)

Endif

Seek Str(Cod_Usy,5)

If Eof()

Saf_Ero(99)

Set Cursor Off

Endif

Do While Codusy = Cod_Usy

Aadd(Ace_Usy,Codope)

Skip

Enddo

Endif

Close_All()

*/

RETURN NIL

// Fim do Programa do Menu Principal. Cortesia By João Santos - Só esta vez!

// I love FiveWin .And. WorkShop.Exe The Best!

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[vagner]

(hehehhe), lá vou eu

João, já falei, para de usar o WS e não terá problema

Brincadeirinha, bom qual seu RWindows, verifique se há algo de errado na digitação, bloqueie parte da aplicação e vá liberando aos poucos, ou tente ir colocando "?", para ver até onde chega no seu programa.

Abraços

Vagner Wirts

São Paulo-Brasil

[jef2_tim]

Eu ainda nao consigo executar sem estar o ws aberto...

Notei q ele deu um aviso hoje... eu abri o sistema e deu o erro la de acesso ao resource... com a tela aberta ainda eu executei o WS e ele me deu aviso de erro que precisa do bwcc 2.o ou superior... será q nao pode ser pq estou com uma bwcc antiga ou algo assim????

ja fiz tudo oq os amigos passram mas mesmo assim ele fica com esta onda de precisar estar aberto o ws...

valeu amigos

[personal]

Realmente faz telas muito mais rápido.

o Problema esta no tempo que perdemos para

fazer estas telas funcionarem.

hniraK..............(lá vem páu).

Oliveira, Sérgio A.

PERSONAL - LINS

pcspersonal@uol.com.br

MSN - sergio@personal.com.br

[vagner]

(hehehehe), gostei da resposta do Personal

Abraços

Vagner Wirts

São Paulo-Brasil

[karinha]

HE HE HE HE... Jef... Não esquente com os frustados do @Say que não

sabem usar o WorkShop.Exe The Best e 'Moooorrreeemm' de inveja!

Não esqueça, que um dos mais 'PODEROSOS' usuários de WORKSHOP.EXE the best do mundo,

frequenta este FORUM de maravilhas. (Brincadeira pessoal) Conte sempre comigo...

Se for WORKSHOP.EXE the best... @Say? Eu não SAY mesmo! Inhaca! Eca! Melaca!

Faca o seguinte: Como voce provavelmente esteja usando o Windows ME ou

Superior, baixe a BWCC.DLL de um ano superior a 1998...

Voce Pode Baixe em DICAS mais dicas... Nos exemplos que tem la.

Ou em: http://www.borland.com/

Ou em: http://www.gruporibas.com.br/kmt - Baixe meu DEMO que tem a

BWCC.DLL mais recente.

Quando o Windows é Superior ao Windows 98, a BWCC.DLL tem de ser de

ANO >= 2000 Tandeu? É só isso. Abraços.

Ahhh Copie para o diretorio do WorkShop e o dos fontes Ok?

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[karinha]

Data: 04/05/2004 9:01:32

De:Jeferson Procopio

Para:

Assunto:Valeu Joao

Bom dia joao...

Entrei agora no forum e encontrei sua ajuda la... valeu mesmo cara pela ajuda...

vou fazer os testes agora...

Estou indo este mes para SP e gostaria de saber se podemos trocar ideias chegando

ae... eu trabalho com automacao comercial, impressao fiscal e tef...

um clipper abracaum ae pra ti

t+

Resposta: Não tô a fim de 'trocar' idéias não... Mas se você quiser 'trocar' umas

cervejinhas, tamos ae... hehehehe. Quando chegar, ligue-me... Fone: 3106-2832

Mande um Mail para o Vagner Wirts, solicitando o Celular dele, assim você fica

'armado' com dois telefones para contatos, caso eu não esteja no local dos fatos.

Cerveja vai... cerveja vem... e ae, você vai 'arrancando' tudo o ke quer...

'Nóis' aqui em Sampa, somos 'movidos' a ALCOOOOOL... Brahma, Antarctica, New Skin!

Quanto mais 'bebados', eu e o Vagner, vamos 'soltando' tudo sobre FIVEWIN! Moleza!

Seja muito bem vindo a São Paulo! Ela é grande... Assustadora... Mas, 'docinho' de

coco. Quando estiver para vir, 'poste' o endereço do hotel que ficarás, assim fica

fácil pra gente ir te 'pegar'. hehehehehe. Abraços.

vwirts@ig.com.br E_Mail do Maior do Mundo: Vagner Wirts the best!

Data: 04/05/2004 9:26:58

De:Jeferson Procopio

Para:

Assunto:Forum FW - Jef-Belem_PA

Eae Joao...

cara... eu tenho muitas publics... queria saber se isto pode

causar algum problema no sistema no futuro...

e se causa como eu poderia resolver pois uso muito elas... tem alguma ideia?

valeu

Resposta: Isto, só será informado, em reunião futura em um bar muito gostoso de

São Paulo, by Vagner Wirts. Minha opinião pessoal, não darei por enquanto!

A única coisa que posso te adiantar: EU NÃO USO!

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[vagner]

Olá Jef,

muitas publics, pode dar problema sim , eu postei uma vez nesse maravilhoso fórum uma resposta para isso, onde cria-se uma classe e fica sendo uma única var publica , infelizmente já não lembro mais onde está, mas o Evandro (Grande Imortal), que faz tempo q não aparece, usa bastante, dê um alô para ele q ele lhe postará, ou procure em dicas + dicas, deve ter , se não encontrar mail-me q procuro e lhe mando.

Abraços

Vagner Wirts

São Paulo-Brasil

[evandro]

Olá,

Estou em um cliente e por isto meio afastado. Mas aí vai.

Crie uma classe e nela especifique suas variáveis públicas.

CLASS TVarSist

DATA var1 AS array INIT { {}, {}, {}, {} }

DATA var2 AS string INIT 'XX'

DATA var3 AS numeric INIT 0

DATA var4 AS logical INIT .t.

ENDCLASS

No início do sistema:

public oVS

oVS:=TVarSist()

E chame as variáveis assim:

aVar:=oVS:var1

oVS:var2:='Teste'

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)