Copy/Del/Ren c/ corringa

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Re: Copy/Del/Ren c/ corringa

Mensagem por sygecom »

Veja se os exemplos em Anexo, ajuda.
Anexos
copy_del_ren.prg
(2.48 KiB) Baixado 110 vezes
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
TerraSoftware
Usuário Nível 3
Usuário Nível 3
Mensagens: 353
Registrado em: 28 Jul 2004 13:14
Localização: Cianorte-PR
Contato:

Re: Copy/Del/Ren c/ corringa

Mensagem por TerraSoftware »

Maligno, vc tem razão, o negócio é criar uma funcao no braço mesmo, já tenho algo muito proximo do que preciso, basta agora aperfeicoar, eu perguntei se ja existia algo pronto foi mesmo para ter certeza, para nao ter que reinventar a roda, mas como nao tem, entaum maos a obra!

Anacatacombs, nao desejo usar o comando RUN, eu tambem acho que ele deve ser evitado em aplicações win32, imagine uma tela de backup bem elaborada com um visual grafico, com termometro e todas aquelas firulas e derepente uma telinha do DOS aparece (mesmo que rapidinho), vai ofuscar toda a beleza da janela.
Com relação a impbar, realmente eu tenho, embora nao seja mais em forma de lib e sim em prg, ou seja, tenho o codigo fonte dela, só que hoje tenho ela completamente desmembrada, ou seja, todas as funcoes que fazem parte desta lib (e sao varias) estaum espalhadas em diversos arquivos. Adotamos uma politica de segurança de codigo fonte aqui onde trabalho (visto que já fomos roubados por ex-funcionários), algumas funcoes importantes estaum desmembradas e espalhadas, existe até funcoes que foram incorporadas ao xharbour, visto que o mesmo permite fazer isso já que temos os binarios dele (deu um trabalho aprender isso!!!!). Resumindo, para disponibilizar a impbar teria que te mandar o xharbour junto, pois é como se a gente tivesse nosso proprio xharbour (personalizado), nosso codigo fonte nao compila em outro, ou pelo menos parte dele.
Mas posso te ajudar a obter um codigo novo similar a impbar, requer algum conhecimento em C puro, mas nada que seja muito dificil. Existe tambem outras libs para xharbour muito boas para a impressão de codigos de barra, já deu uma procurada?
De onde vc é? Já que no seu perfil nao traz sua localidade. Onde fica este "Vale dos Sonhos", rs.rs.
:xau
www.sisterra.com.br
xHarbour 1.0.0 - Bcc 6.3 - Gtwvw/Hwgui
DbfCdx/MySql
anacatacombs
Membro Master
Membro Master
Mensagens: 472
Registrado em: 12 Jul 2005 16:53
Localização: Cianorte-Paraná
Contato:

Re: Copy/Del/Ren c/ corringa

Mensagem por anacatacombs »

Ixe, de C eu não entendo nada :( fica complicado.
Procurei algo a respeito, porém não encontrei muita alternativa, acho que não soube procurar direito, vou tentar fazer algo do gênero ou descompilar a lib.
Obrigada pela disposição e boa vontade de me ajudar :D

[]'s
Ana
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Re: Copy/Del/Ren c/ corringa

Mensagem por sygecom »

Se quiser dar uma olhada, no link abaixo postei uns exemplos de codigo de barra:
Exemplo Codigo de Barra
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: Copy/Del/Ren c/ corringa

Mensagem por Hasse »

Oi anacatacombs.

Os recursos do xHarbour não fazem aquilo que você deseja ?

Veja se no tópico abaixo tem algo que te ajude:
viewtopic.php?f=4&t=6465
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
anacatacombs
Membro Master
Membro Master
Mensagens: 472
Registrado em: 12 Jul 2005 16:53
Localização: Cianorte-Paraná
Contato:

Re: Copy/Del/Ren c/ corringa

Mensagem por anacatacombs »

Olá..
Tudo no Harbour é novo pra mim, estou nessa apenas a 1 semana.
Vou estudar o tópico, e tentar entender.

Obrigada

[]'s

Ana
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: Copy/Del/Ren c/ corringa

Mensagem por Hasse »

Estou à tua disposição.

Tenho alguma intimidade com a classe Win32prn()
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Re: Copy/Del/Ren c/ corringa

Mensagem por asimoes »

Amigos,

Alguém já viu:

FileCopy()

Código: Selecionar todos


// The example demonstrates the two modes of FileCopy()

   PROCEDURE Main
      LOCAL cSourceFile := "LargeFile.txt"
      LOCAL cTargetFile := "NewLargeFile.txt"
      LOCAL nCounter    := 1

      CLS

      ? "Regular copy "
      ?? FileCopy( cSourceFile, cTargetFile ), "bytes"

      ? "Backup copy "
      cTargetFile := "A:\backup.001"

      ?? cTargetFile, FileCopy( cSourceFile, cTargetFile ), "bytes"

      DO WHILE FileCOpen()
         WAIT "Please insert a new diskette in drive A:"

         nCounter ++
         cTargetFile := "A:\backup." + StrZero( nCounter, 3 )
         ? cTargetFile, FileCCont( cTargetFile ), "bytes"
      ENDDO

   RETURN
RenameFile():

Código: Selecionar todos

RenameFile()
Renames a file and handles errors. 
Syntax
RenameFile( <cOldFile>, <cNewFile> ) --> nErrorCode

Arguments
<cOldFile> 
This is a character string holding the name of the file to rename. It must include path and file extension. The path can be omitted from <cOldFile> when the file resides in the current directory. 
<cNewFile> 
This is a character string with the new file name including file extension. Drive and/or path are optional. Return
The function returns zero on success or a numeric error code on failure. 
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Copy/Del/Ren c/ corringa

Mensagem por Maligno »

FileCopy é uma função do XHarbour. Algum erro aí?
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Re: Copy/Del/Ren c/ corringa

Mensagem por asimoes »

Mestre Maligno,

O exemplo que postei é só para mostrar que existem as funções prontas do xh para : copiar, deletar e renomear arquivos.

FileCopy()
FileDelete()
RenameFIle()

[]´s
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Copy/Del/Ren c/ corringa

Mensagem por Maligno »

Ah, sim. Desculpe. Agora entendi. :)
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Responder