Re: [delphi-br] Problema com cópia de Arquivo.

Fri, 26 May 2006 04:40:29 -0700

Sim consegui. Funcionou.

Valeu Elazar.

Cordialmente, Filipe.
  ----- Original Message -----
  From: elazar
  To: delphi-br@yahoogrupos.com.br
  Sent: Thursday, May 25, 2006 5:55 PM
  Subject: RES: [delphi-br] Problema com cópia de Arquivo.


  Filipe


  e se voce fizer assim...funciona...
  CopyFile( pChar(vms_Caminho), pChar(vms_Destino), False);


  mas me diga uma coisa...tu conseguiu compilar este codigo que voce
  passou???

  procedure TForm1.Button1Click(Sender: TObject);
  var
      vms_Caminho, vms_Destino : AnsiString;
      vmp_Arquivo, vmp_Destino : PChar;
  begin
      TRY
      vms_Caminho := 'C:\teste.txt';
      vms_Destino := 'C:\teste\teste.txt';

      STRPCOPY(vmp_Arquivo, vms_Caminho);
      STRPCOPY(vmp_Destino, vms_Destino);
      CopyFile(vmp_Arquivo , vmp_Destino, False);
     
      EXCEPT
      ShowMessage(Ocorreu um erro ao copiar o arquivo);
      End;
      END;
  end;
   
  ----
  eu criaria uma funcao...

  ex;.

  procedure Tform1.CopiarArquivo(Origem, Destino : String; Substituir :
  Boolean = 'False');
  begin
    //
    if FileExists(Origem) then
      CopyFile( pchar(Origem), pchar(Destino), Substituir)
  end;



  Atenciosamente;
  Elazar

  -----Mensagem original-----
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  Em nome de FILIPE GMAIL
  Enviada em: quinta-feira, 25 de maio de 2006 16:24
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Problema com cópia de Arquivo.


  Bom dia a todos,

      Pessoal estou com problemas ao copiar um arquivo de uma pasta para
  outra, será que alguém pode me dar uma ajuda? Uso Delphi 5 e dá um
  "Access Violation" quando tento executar o código abaixo, o problema é
  que eu preciso parametrizar os nomes dos arquivos e só posso fazer isso
  com String ou AnsiString, por isso preciso passar para pChar, se alguém
  puder me ajudar. Estou mandando o código simplificado abaixo:

  procedure TForm1.Button1Click(Sender: TObject);
  var
      vms_Caminho, vms_Destino : AnsiString;
      vmp_Arquivo, vmp_Destino : PChar;
  begin
      TRY
      vms_Caminho := 'C:\teste.txt';
      vms_Destino := 'C:\teste\teste.txt';

      STRPCOPY(vmp_Arquivo, vms_Caminho);
      STRPCOPY(vmp_Destino, vms_Destino);
      CopyFile(vmp_Arquivo , vmp_Destino, False);
     
      EXCEPT
      ShowMessage(Ocorreu um erro ao copiar o arquivo);
      End;
      END;
  end;

  Valeu, Filipe Ferrarini Gevaerd.

  [As partes desta mensagem que não continham texto foram removidas]



[As partes desta mensagem que não continham texto foram removidas]





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a