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

Fri, 26 May 2006 04:30:45 -0700

Olha só Elazar:

Já resolvi o problema do Access Violation.

Era ali mesmo, é que na verdade eu estava copiando um arquivo .cds criado por um client data set que gera um arquivo para poder rodar stand alone, porém quando eu queria mover este arquivo eu não estava fechando o client data set e as conversões de pchar talvez estivessem modificando o ponteiro do CDS para o arquivo .cds e quando finalizava a operação o CDS tentava encontrar o local, mas não achava mais... daí o access violation que eu resolvi fechando o CDS antes de mover o arquivo. Ufa...

Galera, valeu pelo apoio, sou novo na lista, mas deu pra ver que todos são muitos empenhados, espero poder ajudar também nas dúvidas e participar nas discussões.

Saudações, Filipe Ferrarini Gevaerd.
  ----- Original Message -----
  From: elazar
  To: delphi-br@yahoogrupos.com.br
  Sent: Thursday, May 25, 2006 6:01 PM
  Subject: RES: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido


  Ok. pessoal, tambem tentei compilar,,,e compila normal.

  mas porque da o access violation quando o cara executa???
  o que tem de errado...


  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;


  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:39
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido


  Pessoal, já resolvi o problema...

  Se interessar a alguém utilizei o seguinte código:

  MoveFile(pchar (vms_Caminho) ,pchar(vms_Destino));

  e funcionou tb para CopyFile.


  Abraços a todos, flw.

  Filipe Ferrarini Gevaerd.

  ----- Original Message -----
  From: FILIPE GMAIL
  To: [EMAIL PROTECTED]
  Sent: Thursday, May 25, 2006 4:26 PM
  Subject: Fw: Problema com cópia de Arquivo.


  Ah, esqueci de falar ele até copia o arquivo, mas dá um erro muito
  estranho de access violation, alguém sabe me dizer o porquê?

  Valeu, Filipe

  Cópia da Mensagem original:



  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