sambomb

citação:Olá, Vc precisaria, usar o GetPixel(), para pegar o pixel, e o PutPixel() para imprimir novamente, com o GetPixel, vc pega a cor do Pixel atual, ou seja a posição, de XY, não vejo muita vantagem em uma foto enorme, vc terá um array enorme de informações, mas dá pra fazer Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>Mas o método put pixel é apenas para impressão ou pode-se gravar um bitmap por exemplo? e oGetPixel() tem que ser usado em conjunto com fread()? MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Olá, gostaria de saber se existe algum método para ler os pixels de uma imagem e gravar a partir em um array. Por exemplo: Montar um array de 5 dimensões para cada pixel Vetor horizontal Vetor vertical Red Green Blue E se existe a possibilidade de criar um arquivo de arquivo de imagem a partir de um array similar.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Olá, gostaria de saber se existe algum método para ler os pixels de uma imagem e gravar a partir em um array. Por exemplo: Montar um array de 5 dimensões para cada pixel Vetor horizontal Vetor vertical Red Green Blue E se existe a possibilidade de criar um arquivo de arquivo de imagem a partir de um array similar.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:Para azar o seu eu não bebo, mas com certeza haveria outras formas de me convencer! id=pink>kkkkkkk segue os dados pra contato: msn: tiaopessoa@hotmail.com fone: (31)2555-1530 ou (31)9753-9416 lembrando, o sistema esta homologado no TEF discado e Pay&Go nas bandeiras VISA, REDECARD, AMEX e TECBAN FW 2.5/CLIPPER 5.3b, BLINKER 7 Belzonte - Minas Gerais id=quote>id=quote>Estranha mesma a conversa.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

É porque quando coloquei pra responder a mensagem o beto ainda não tinha respondido e a resposta dele é a mesma que a minha só que mais explicada e exemplificada... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

o Retorno não deveria ser o objeto de menu ao invés de nil? PS.: ja tinham respondido.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 06/11/2008 15:31:38

A não ser que as funções sejam do fivewin e não do xHarbour... mas se não é isso eu não sei o que pode ser .... boa sorte MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Estava me referindo ao compilador que está configurado no xDev pois nele você pode ter mais de um compilador configurado, e sendo assim em um xDev você pode estar usando Fivewin/XHarbour 8.02 (que é o que eu uso..) e no outro estar configurado para usar o 2.6! (a versão mais antiga que eu tenho aqui)... entendeu agora? o xDev apenas indica qual compilador(xHarbour por exemplo) usar.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Verifique os compiladores que estão programados(Projeto->Opções de projeto->Selecionar Compiladores) nas duas versões devem ser diferentes... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:muito facil, crie um arquivo em clipper compila ele com o blinker normal que vem nele e claro, e use o valkiria ou outro descompilador que vc tira essa funcao,,, verifique id=quote>id=quote>hmm??? Só eu que não entendi o que isso tem haver? MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

if ValType(variavel) != "U" transform(xValue,xPicture) end A função ValType() retorna como valor um caracter com o tipo da variavel: A = Array B = Bloco C = Caracter D = Data L = Logico M = Memo N = Numerico O = Objeto U = Undefined = Nil = Nulo = Vazioid=red> id=code>id=code>MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

A dica tem mais de 1 ano... você mudou a versão do Fivewin/XHarbour esse ano? Podem ter sido atualizadas(leia-se mudou o sintaxe) das funções citadas.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:resolvido com a ajuda do amigo ROSSINI muito obrigado a todos especialmente a Rossini Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Rossini nem no tópico postou.... [:S] Posta a solução pra que todo mundo possa saber MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Como proteção de tela acho nao ser viavel... qualquer um pode mudar a proteção de tela, e para bloquear que mude vai dar muito trabalho, mas se for fechar apenas como comodidade.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Define Dialog oDlg; Resource "TDLG"; Of oWnd oDlg:bKeyDown := {|nKey, nFlags|ResetaTimer()} oDlg:bMouseMove := {|nRow, nCol, nKeyFlags|ResetaTimer()} id=code>id=code> MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:vc consegue ler as chaves, usando fread() o tamanho da sequencias de chaves, e sempre o mesmo, vc tem qual descobrir o tamanho Abençoados sejam os pessimistas, eles fizeram backups!!id=red> Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop id=quote>id=quote>Olha a prova... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

em cada função sua você adiciona um reset pro timer, o ideal é chamar uma função e nela resetar o timer prq fica mais facil pra dar manutenção, só vai ser trabalhoso demais acho que voce poderia selecionar os mais usados para colocar o reset do timer.... EX: Ao abrir um dialogo procedure abredialogo() rt() Define Dialog DIALOGO e t c . . . Return procedure rt() "resete aqui o timer" return MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 04/11/2008 16:27:42

também resolveria se fizesse um teste e retornasse verdadeiro no valid caso estivesse vazio Algo como: i := 1 While i < = len(variaveis) if Empty(variaveis) i++ else exit end end Return i = len(variaveis) id=code>id=code>Mas obviamente é muito mais trabalhoso mais serve para outros casos aonde você precisa fazer outras coisas que não seja simplesmente sair... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Trascrevedo a minha postagem no forum da toledo citação: DBGOTOP() if OrdWildSeek("*A*") AADD(aNomes,TESTE->Nome) DO WHILE OrdWildSeek("*A*",.T.) AADD(aNomes,TESTE->Nome) ENDDO else Msg("Nenhum registro encontrado") end id=code>id=code> id=quote>id=quote>No seu caso seria mais ou menos assim: DBGOTOP() if OrdWildSeek("*"+cBusca+"*") AADD(aArray,BANCO->CAMPO) DO WHILE OrdWildSeek("*"+cBusca+"*",.T.) AADD(aArray,BANCO->CAMPO) ENDDO else Msg("Nenhum registro encontrado") end id=code>id=code>MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Acho que é isso que vc queria: if at(cBusca,cOndebuscar) != 0 //Rotina de preenchimento end id=code>id=code>MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação: Yuri diz: consulta on-line pelo site dos correios não é mais permitida (faz tempo), para usar os dados oficiais do correio tem que contratar o serviço... id=quote>id=quote> citação: oribeiro diz: cUrl:="http://www.correios.com.br/servicos/dnec/consultaLogradouroAction.do?Metodo=listaLogradouro&CEP="+ cCEP + "&TipoConsulta=cep" id=code>id=code>id=quote>id=quote>Você paga o serviço, ou o que o Yuri disse não procede? Cansei de ver no mercado livre serviços similares que incluem até o frete e que pela vasta utilização não deve ser pago.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

se não me engano o Kapiaba faz algo que eu achei funcional, dividir em anos as tabelas e fazer um temporário com os conteudos do período de tempo antes de consultar... por exemplo, você vai dividir sua tabela em 10, uma para cada ano de 98 a 08 E quando for pesquisar um periodo de 2006 a 2008 por exemplo vc cria um temporário com as 3 tabelas(06,07,08) e faz a pesquisa a partir dela.... e com sql é até mais facil fazer essa manipulação.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Modifiquei o código aqui para ficar mais simples de entender e segue o resultado.... deu CERTO!!!! mas o xBlite continua dando erro Acho que meu erro tava quando alimentava a função, tem a alteração em vermelho abaixo. **************************************************************************** static function Extrair() **************************************************************************** * * Abrir um zip * Parametros: * Retorno: * * Autor: Samir * 15/10/2008 - 17:24:34 * **************************************************************************** local Result := .F., aAux := {}, i := 0, cBuffer := "", nExtraidos := 0 Select TMPZIP dbsetorder(2) dbgotop() if dbseek("E") While !Eof() cBuffer := AllTrim(CAMINHO) cBuffer := cFileName(cBuffer) id=red> aAdd(aAux,cBuffer) dbskip() if STATUS != "E" exit end end end dbsetorder(1) IF Len(aAux) = 0 Msg("Nenhum arquivo selecionado para extração") Return Result end For i := 1 to Len(aAux) AtualizaProgresso(oProgresso,i,Len(aAux)) Result := oZip:Extrair(aAux,cGtBackup[3]) if Result nExtraidos++ end end if nExtraidos > 0 if nExtraidos++ != Len(aAux) Msg(Str(nExtraidos,,,.T.)+" arquivo(s) extraído(s) com sucesso de "; Str( Len(aAux),,,.T.)+" arquivo(s) possíveis") else Msg("Arquivo(s) extraído(s) com sucesso!") end else Msg("Erro ao extrair o(s) arquivo(s)") end Zera() Return Result /*------------------------------------------------------------------------*/ **************************************************************************** METHOD Extrair(paFile,pcDestPath,lAvisa) CLASS TZIP **************************************************************************** * * Extrair arquivos de um ZIP pré existente * Parametros: * paFile = Array com os nomes dos arquivos a serem extraidos * OBS.: Também aceita caracter para o caso de apenas 1 arquivo * * pcDestPath = Caracter com o caminho completo do destino para extrair o arquivo * * lAvisa = Idenfica a necessidade de confirmação para sobreescrever * * Retorno: Lógico = .T. se conseguiu gravar, .F. se ocorreu algum erro * * Autor: Samir * 10/10/2008 - 15:17:35 * **************************************************************************** local lExtrai:=.T., i:=0, Result := .F., cNomeArquivo := ::cPath+::cNome Default lAvisa := .F. if !VerificaIntegridade(paFile,pcDestPath) Return Result end if ValType(paFile) == "C" paFile := {paFile} end for i := 1 to Len(paFile) if lAvisa lExtrai := CheckUnZip(pcDestPath,paFile) end //-- Testa se pode extrair ou não if lExtrai Result := HB_UNZIPFILE(cNomeArquivo ,/*bBlock*/, .T., ::cPass,; pcDestPath, paFile/*,pFileProgress*/) end end return Result /*------------------------------------------------------------------------*/ **************************************************************************** static function VerificaIntegridade(paFile,pcDestPath) **************************************************************************** * * Verificar a integridade dos parâmetros passados * Parametros: paFile,pcDestPath * Retorno: Lógico, .T. se estiver Ok * * Autor: Samir * 30/10/2008 - 09:06:35 * **************************************************************************** local cTipoFile:=ValType(paFile), cTipoDest:=ValType(pcDestPath) //-- Verifica integridade do parâmetro paFileName if cTipoFile == "U" Msg("Parâmetro de arquivos vazio") Return .F. elseif cTipoFile != "A" .and. cTipoFile != "C" Msg("Parâmetro de arquivos inválido") Return .F. end //-- Verifica integridade do parâmetro pcDestPath if cTipoDest == "U" Msg("Parâmetro de destino vazio") Return .F. elseif cTipoDest != "C" Msg("Parâmetro de destino inválido") Return .F. end //-- Verifica se o destino indicado existe if !IsDirectory(pcDestPath) Msg("Destino não existe") Return .F. end Return .T. /*------------------------------------------------------------------------*/ **************************************************************************** static function CheckUnZip(pcDestPath,pcNome) **************************************************************************** * * Procurar por arquivos com o mesmo nome dentro da pasta onde vai extrair * Parametros: pcDestPath = Destino de extração dos arquivos * pcNome = Nome do arquivo a sert extraido * Retorno: Lógico, .T. se encontrar, .F. se não encontrar * * Autor: Samir * 10/10/2008 - 16:33:32 * **************************************************************************** local Result := .T. if !File(pcDestPath+pcNome) Return .T. end if Result if SN("Arquivo "+paFile+" já encontrado, sobreescreve") Result := .T. else Result := .F. end end Return Result /*------------------------------------------------------------------------*/ id=code> id=code>Obrigado a todos que tiveram paciência, e especialmente ao Yuri que deu uma luz ao modificar a função MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Essa do StrToken eu não conhecia.... é muito util MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:como vc tá usando uma classe sua, eu adaptei seu código para funcionar sem ela e testei aqui, tudo ok, descompactou beleza... Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say id=quote>id=quote>Então a dúvida é, o que pode estar fazendo isso? O que influenciaria tanto o xBlite quanto o meu programa? [Edit] Passa os parâmetros que você utilizou para ver se é algum parâmetro que eu to usando errado, mas acho que não é isso.... PS.: Testei o meu programa em outra máquina também e não funcionou.... [/Edit] MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 29/10/2008 17:52:03