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]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
--
<<<<< 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: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
