ram_bh

Olás!

Estou precisando do programa LIB.EXE para 64 bits, alguém tem ou pode informar como obter?

Estou trabalhando com W7 em 64 bits e a versão do LIB.EXE que tem não funciona aqui...

Obrigado!

Rodrigo Melo

Belo Horizonte / MG

Márcio,

/*-----------------------------------------------------------*/

// Copiar e Recuperar arquivos

/*-----------------------------------------------------------*/

#include "FiveWin.ch"

#include "Directry.ch"

Function Copiar()

Local cFile, aFile := {}, aFileBkp := {}

DBCloseAll()

If ! MsgNoYes( "Os arquivos serão compactados e em seguida será realizada a cópia de segurança." + CRLF+CRLF+;

"Se outra cópia de segurança já tiver sido realizada neste mesmo dia, os arquivos serão substituídos. Confirma?", "Copiar arquivos")

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_SETOR.DBF","SETOR",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_MATER.DBF","MATER",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_FORNE.DBF","FORNE",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

Return(Nil)

EndIf

// dados

aFile := Directory(cUniSer + cDirBas + '\*.DBF')

AEval(aFile,{|a|AAdd(aFileBkp,cUniSer + cDirBas + '\'+a[F_NAME])})

// imagens

aFile := Directory(cUniSer + cDirImg + '\*.BMP')

AEval(aFile,{|a|AAdd(aFileBkp,cUniSer + cDirImg + '\'+a[F_NAME])})

aFile := Directory(cUniSer + cDirImg + '\*.ICO')

AEval(aFile,{|a|AAdd(aFileBkp,cUniSer + cDirImg + '\'+a[F_NAME])})

// executavel

aFile := Directory(cUniSer + cDirApl + '\*.EXE')

AEval(aFile,{|a|AAdd(aFileBkp,cUniSer + cDirApl + '\'+a[F_NAME])})

aFile := Directory(cUniSer + cDirApl + '\*.DLL')

AEval(aFile,{|a|AAdd(aFileBkp,cUniSer + cDirApl + '\'+a[F_NAME])})

// ini

aFile := Directory(GetWinDir()+'\MATERIAL.INI')

AEval(aFile,{|a|AAdd(aFileBkp,GetWinDir()+a[F_NAME])})

cFile := cGetFile('Bkp_'+DTOS(Date())+'.Zip',"Escolha uma pasta para gravar a cópia de segurança",,cUniSer+cDirBkp+'\',.t.,.t.,,)

If Empty(AllTrim(cFile))

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_SETOR.DBF","SETOR",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_MATER.DBF","MATER",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_FORNE.DBF","FORNE",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

Return(Nil)

EndIf

Compactar(cFile,aFileBkp)

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_SETOR.DBF","SETOR",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_MATER.DBF","MATER",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

If ! Abrir_DBF(cUniSer + cDirBas + "\TB_FORNE.DBF","FORNE",.t.,"DBFCDX")

DBCloseAll()

Return(.f.)

EndIf

Return(Nil)

/*-----------------------------------------------------------*/

Function Compactar(cFile,aFile)

Local oDlg, oMeter, oText, cMsg, nLen, lVal, nActual := 0

nLen := Len(aFile)

DEFINE DIALOG oDlg FROM 01,01 TO 10,60 TITLE "Compactando arquivos..."

@ 0.5,02 SAY oText VAR cMsg SIZE 180,020 OF oDlg

@ 2.0,02 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200,020

oDlg:bStart := {||lVal:=Hb_ZIPFILE(cFile, aFile, 9,{|cFile,nPos|oText:SetText('Compactando '+cFile),;

nActual:=nPos/nLen*100,oMeter:Set(nActual)},.t.,Nil,.t. ),;

IF(lVal,MsgInfo('Compactação completada com sucesso!'+CRLF+CRLF+;

'Arquivo compactado '+cFile,'Compactação de Arquivos'),;

MsgStop('Cópia de Segurança não pode ser realizada!','Erro')),;

oDlg:END()}

ACTIVATE DIALOG oDlg CENTERED

Return(lVal)

/*-----------------------------------------------------------*/

Function Recuperar()

Local cFile, aFile := {}, nFile := 0, aFDBF := {}, aFBMP := {}, aFICO := {}, aFDLL := {}

If AllTrim(cUsuario) # "SUPORTE"

MsgInfo( "Esta funcionalidade só deve ser executada pelo Suporte, porque os arquivos atuais serão substituídos pelos arquivos recuperados da cópia de segurança." + CRLF+CRLF +;

"Certifique-se da real necessidade desta operação e procure o Suporte sempre em caso de dúvidas.","Aviso")

Return(Nil)

EndIf

cFile := cGetFile('Bkp_*.Zip',"Escolha o arquivo da cópia de segurança a ser recuperado",,cUniSer+cDirBkp+'\',.f.,.t.,,)

If Empty(AllTrim(cFile))

Return(Nil)

EndIf

If ! MsgNoYes( "Serão recuperados somente os arquivos de Dados, de Imagens e DLL." + CRLF+CRLF +;

"Os arquivos atuais serão substituídos pelos arquivos recuperados da cópia de segurança:" + CRLF+CRLF +;

"[ " + cFile + " ]" + CRLF+CRLF +;

"Certifique-se da real necessidade desta operação antes de prosseguir." + CRLF+CRLF +;

"Confirma?","Atenção" )

MsgInfo("Recuperação de arquivos cancelada!","Aviso")

Return(Nil)

EndIf

aFile := Hb_GetFilesInZip(cFile)

For nFile = 1 To Len(aFile)

If Right(aFile[nFile],3) = "DBF"

AAdd( aFDBF, aFile[nFile] )

ElseIf Right(aFile[nFile],3) = "BMP"

AAdd( aFBMP, aFile[nFile] )

ElseIf Right(aFile[nFile],3) = "ICO"

AAdd( aFICO, aFile[nFile] )

ElseIf Right(aFile[nFile],3) = "DLL"

AAdd( aFDLL, aFile[nFile] )

EndIf

Next

Descompactar(cFile,aFDBF,"Dados")

Descompactar(cFile,aFBMP,"Imagens BMP")

Descompactar(cFile,aFICO,"Imagens ICO")

Descompactar(cFile,aFDLL,"DLL")

MsgRun("Organizando arquivos de Dados recuperados...","Aguarde",{||Tabelas(cUniSer,cDirBas,.t.)})

Return(Nil)

/*-----------------------------------------------------------*/

Function Descompactar(cFile,aFile,cTipo)

Local oDlg, nFile := 0, oText, cMsg, oMeter, nActual := 0

nFile := Len(aFile)

DEFINE DIALOG oDlg FROM 01,01 TO 10,60 TITLE "Recuperando arquivos de "+cTipo+" da cópia de segurança..."

@ 0.5,02 SAY oText VAR cMsg SIZE 180, 20 OF oDlg

@ 2.0,02 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200, 20

oDlg:bStart := {||lVal:=Hb_UnZipFile(cFile,{|cFile,nPos|oText:SetText('Descompactando...'+CRLF+cFile),;

nActual:=nPos/nFile*100,oMeter:Set(nActual)},.t.,,cUniSer+'\',aFile ),;

IF(lVal,MsgInfo('Recuperação dos arquivos de '+cTipo+' completada com sucesso'+CRLF+CRLF,'Recuperação'),;

MsgStop('Arquivos de '+cTipo+' não podem ser recuperados',"Atenção")),;

oDlg:END()}

ACTIVATE DIALOG oDlg CENTERED

Return(Nil)

/*-----------------------------------------------------------*/

// fim

Márcio,

Eu fiz uma rotina que zipa as pastas (e arquivos) usadas pela aplicação (dados, imagens, etc...) e grava em um destino a escolha do usuário.

Mas, por motivo de segurança, não permiti que o usuário recupere todas as pastas zipadas...

Não sei como anexar o código aqui... Alguém pode ajudar!?

Se quiser, posso enviar por e-mail para você.

Rodrigo Melo

Belo Horizonte / MG

Jackson, obrigado por responder.

Vou pesquisar o SQLite. O sistema tem poucos usuários, mas as tabelas tem muitos registros... E começo a ficar preocupado com a possibilidade de suporte para recuperar arquivos DBF danificados...

Um abraço!

Rodrigo Melo

Belo Horizonte / MG

Bom dia!

Alguém usa Firebird como SGBD? Pergunto por ser o Firebird um sistema menos exigente de recursos do que MySQL, MariaDB, OracleExpress e outros...

Penso em migrar um sistema de administração de condomínios que ainda utilizada DBF. As tabelas já estão "gordinhas"...

Qual a opinião de vocês?

Obrigado!

Rodrigo Melo

Belo Horizonte / MG

Tente usar a função KeySec():

KeySec()

Starts a timer to write a key code into the keyboard buffer.

Syntax

Keysec( <nKey> , ;
<nTime> , ;
[<nCounter>], ;
[<lMode>] ) --> lSuccess

Arguments <nKey> This is the numeric key code to write into the keyboard buffer. #define constants listed in the Inkey.ch file are used for <nKey>. <nTime> This is a numeric value specifying the time after which the character is written into the keyboard buffer. Positive values indicate the time in seconds, while negative values are interpreted as multiples of 1/18.2 seconds. <nCounter> This parameter specifies the number of times <nKey> should be placed into the keyboard buffer before the timer ends. The default value is 1. <lMode> This parameter defaults to .F. (false). When .T. (true) is passed, the timer is reset when a key is pressed. Return

The function returns .T. (true) when the timer is successfully activated, otherwise .F. (false).

Note: when the function is called without a parameter, the timer is deactivated.

Olás!

Alguma função que permita exibir uma mensagem com imagem?

Tipo uma MsgInfo() com mensagem (texto) e imagem (BMP).

Obrigado!

Rodrigo Melo

Belo Horizonte / MG

Boa tarde!

Resolvido assim:

hWnd := FindWindow ( 0, oWnd:cTitle () )

ShowWindow ( hWnd, 9 )

Obrigado e um abraço a todos!

Rodrigo Melo

Pessoal, bom dia!

Não funcionou da maneira como gostaria, mas... não desisti de encontrar uma solução. O que pretendo é, ao receber novo registro na lista do xbrowse a aplicação emite um alerta para o usuário e ativa a aplicação, se ela estiver fora de foco.

Explicando melhor, o usuário está lendo as mensagens deste fórum e a aplicação está com um Timer verificando se existem novas mensagens na caixa de entrada do usuário. Ao receber uma nova mensagem, a aplicação é exibida em primeiro plano para que a mensagem seja apresentada ao usuário.

Alguma sugestão? Obrigado!

Rodrigo Melo

Resolvido com:

Kapiaba, obrigado!

Mas preciso dar foco na aplicação após a execução do Timer.

Explicando melhor: depois de um período definido no Timer é executada uma função, se atendida uma determinada condição preciso colocar a aplicação em primeiro plano de execução, ou seja, se o usuário estiver em outro aplicativo preciso alternar para a aplicação.

É possível!?

Obrigado!

Rodrigo Melo

Belo Horizonte / MG

Bom dia!

Preciso programar um refresh (a cada minuto, por exemplo) em um xbrowse, como fazer!?

Obrigado!

Rodrigo Melo

Belo Horizonte / MG

Obrigado, RCA Sistemas!

Kapiaba, muito obrigado!

Bom dia!

Alguém pode informar como recuperar o usuário que está logado na rede (windows server 2008)?

A idéia é recuperar o usuário logado e autenticar na aplicação. Obrigado!

Rodrigo Melo

Belo Horizonte

Leonardo, obrigado!

citação:

Para FiveWin mesmo não tem.

Tem um projeto no Google Code que é apenas um teste pelo que se pode ver.

http://code.google.com/p/fivedroid/

Leonardo Machado

Alvorada-RS

Hwgui + x[H]arbour

leonardodemachado@hotmail.com

---

id=quote>id=quote>

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Bom dia!

Faz tempo que não acesso o fórum e quero saber se é possível desenvolver em FW para Android?

Obrigado e um abraço!

Rodrigo Melo

Belo Horizonte

Bom dia!

Faz tempo que não acesso o fórum e quero saber se é possível desenvolver em FW para Android?

Obrigado e um abraço!

Rodrigo Melo

Belo Horizonte

Para as empresas de Belo Horizonte, postei um anúncio na seção Classificados.

Obrigado e um abraço!

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Para as empresas de Belo Horizonte, postei um anúncio na seção Classificados.

Obrigado e um abraço!

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

O encontro foi muito bom mesmo.

No meu caso, particularmente, que procurava uma solução para atualizar os "bons e velhos" aplicativos desenvolvidos em Clipper.

Conheci o FW por amigos, mas não tinha ideia de quanto é utilizado.

Como não atuo como empresa precisava de uma solução para converter os aplicativos desenvolvidos para amigos a mais de 15 anos. Não pretendo atuar como empresa, mas com certeza serei mais um colaborador do FW.

E ainda, tive o prazer de conhecer pessoalmente algumas pessoas que me ajudaram no fórum a elucidar dúvidas. Sem mencionar na oportunidade de iniciar novas amizades.

Aos organizadores e palestrantes, meus parabéns e agradecimentos.

No mais, até o próximo encontro e um grande abraço a todos.

PS: Com certeza o fórum não será mais o mesmo após o VII Congresso...

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Editado por - ram_bh on 08/11/2010 15:43:32

Marcos,

Recomendo a você ao desembarcar no saguão do aeroporto contratar o taxi através das empresas credenciadas. O balcão é de fácil visualização. Tenho esses números, caso prefira fazer reserva.

Taxi especial - COOPERTRAMO (31)3689-2040.

Taxi comum - Cooperfins (31)3689-2113

Taxi comum - Minas Táxi (31)3689-2349.

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Para completar mais um pouco:

Uma diferença importante entre os certificados A1 e A3 é a segurança.

No tipo A3, o certificado é armazenado em um dispositivo (token ou smart-card) com segurança implementada para acesso ao certificado. O que permite a validade por 3 anos. Os programas não tem acesso diretamente ao certificado. O dispositivo de armazenamento implementa segurança e funciona como um driver entre a solicitação do programa e o certificado.

No tipo A1, o certificado é um arquivo que pode ser copiado e armazenado em qualquer meio digital (disquete, pen-drive, etc). Por não ser arquivado em um meio com segurança de acesso implementada, a validade é só de um ano.

Se existir um controle rígido de acesso ao local de armazenamento do certifficado tipo A1, sem problemas para o uso. Caso contrário, recomendo o A3.

Espero ter ajudado.

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Olás!

É possível enviar e-mail através do comando Mail e relacionar os destinatários como CCO?

DEFINE MAIL oMail SUBJECT "Cabeçalho da Mensagem" ;

TEXT "Mensagem do e-mail" TO cDestino,cMail ;

FROM USER RECEIPT

ACTIVATE MAIL oMail

No exemplo acima os destinatários são apresentados em PARA.

Obrigado!

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Olás!

É possível enviar e-mail através do comando Mail e relacionar os destinatários como CCO?

DEFINE MAIL oMail SUBJECT "Cabeçalho da Mensagem" ;

TEXT "Mensagem do e-mail" TO cDestino,cMail ;

FROM USER RECEIPT

ACTIVATE MAIL oMail

No exemplo acima os destinatários são apresentados em PARA.

Obrigado!

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1