copiar e gravar arquivo com delphi
Bom dia!
Estou com um problema em gravar através do Aplicativo em Delphi 7, arquivo com extensão PDF, XML, TXT no servidor.
Estou fazendo assim copiar um arquivo;
//origem
Arquivo.LoadFromFile(´C:\teste\nomedoarquivo.Txt´);
//destino em um servidor sistema operacional windows server 2008
Arquivo.SaveToFile (´192.168.0.10:C:\novolocal\nomedoarquivo.txt´);
Da um erro que parece de endereço.
Desde já fico grato.
Estou com um problema em gravar através do Aplicativo em Delphi 7, arquivo com extensão PDF, XML, TXT no servidor.
Estou fazendo assim copiar um arquivo;
//origem
Arquivo.LoadFromFile(´C:\teste\nomedoarquivo.Txt´);
//destino em um servidor sistema operacional windows server 2008
Arquivo.SaveToFile (´192.168.0.10:C:\novolocal\nomedoarquivo.txt´);
Da um erro que parece de endereço.
Desde já fico grato.
Luiz Estevam
Curtidas 0
Respostas
Ricardo Araujo
17/02/2014
bom dia Colega,
da uma olhada neste código, este exemplo uso em minha aplicação. e bem simples mas funciona..
var
Origem, Destino: string;
begin
Origem := 'c:\Origem\NomeArq.txt';
Destino := 'c:\Destino\NomeArq.txt';
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
da uma olhada neste código, este exemplo uso em minha aplicação. e bem simples mas funciona..
var
Origem, Destino: string;
begin
Origem := 'c:\Origem\NomeArq.txt';
Destino := 'c:\Destino\NomeArq.txt';
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
GOSTEI 0
Luiz Estevam
17/02/2014
Boa tarde, barreto!
vou fazer alguns teste, se der certo posto aqui.
fico muito grato.
vou fazer alguns teste, se der certo posto aqui.
fico muito grato.
GOSTEI 0
Luiz Estevam
17/02/2014
deu certo o que eu ja tinha feito e o que vc passou, mas o erro e que o usuário tinha deletado os arquivos do pc.
fica a dica. verificar se o arquivo existe.
grato.
fica a dica. verificar se o arquivo existe.
grato.
GOSTEI 0
Luiz Estevam
17/02/2014
Boa noite copiar arquivo com o copyFile no mesmo PC funciona legal, mas o que não estou conseguindo e copiar do servidor para um PC
ex:
copiar -> 192.168.1.101:C:\DIR\SISTEMA.EXE para C:\DIR\SISTEMA.EXE
já tentei com LoadFromFile DA UM ERRO pq ele fica com o endereço furado seguindo o ex:
ficaria assim C:\DIR\192.168.1.101:C:\DIR\SISTEMA.EXE para vc ver que ele acrescenta o diretório corrente na lida de endereço.
como deixa só o endereço certo.
grato
ex:
copiar -> 192.168.1.101:C:\DIR\SISTEMA.EXE para C:\DIR\SISTEMA.EXE
já tentei com LoadFromFile DA UM ERRO pq ele fica com o endereço furado seguindo o ex:
ficaria assim C:\DIR\192.168.1.101:C:\DIR\SISTEMA.EXE para vc ver que ele acrescenta o diretório corrente na lida de endereço.
como deixa só o endereço certo.
grato
GOSTEI 0
Jaime Santos
17/02/2014
Bom dia, amigo, você já verificou as permissões do compartilhamento do PC ao qual você deseja copiar?
Att.
Att.
GOSTEI 0
Luiz Estevam
17/02/2014
Jaime, o que fiz foi compartilhamento da pasta onde se encontra o sistema.exe para leitura/gravação.
att.
att.
GOSTEI 0
Luiz Estevam
17/02/2014
Jaime, o que fiz foi compartilhamento da pasta onde se encontra o sistema.exe para leitura/gravação.
att.
att.
GOSTEI 0
Jaime Santos
17/02/2014
Permissão total? Isso no computador para o qual você deseja copiar e não o computador do qual deseja copiar, não é? Dê uma olhada nas diretivas de segurança do mesmo, tente desabilitar firewall e qualquer antivírus que esteja em execução para fins de teste.
Att.
Att.
GOSTEI 0
Thiago Santana
17/02/2014
Quando se trata de arquivos que os usuários podem ter acesso é bom sempre tomar alguns cuidados como por exemplo:
Verificar permissão no arquivo;
Verificar existência do diretório;
Verificar se o arquivo existe;
Dentre outros!
Bom que seu problema foi resolvido!
Verificar permissão no arquivo;
Verificar existência do diretório;
Verificar se o arquivo existe;
Dentre outros!
Bom que seu problema foi resolvido!
GOSTEI 0
Emerson Nascimento
17/02/2014
Quando você faz o compartilhamento de uma pasta, não deve mais usar o drive no endereço. No caso deve ficar assim:
192.168.1.101\DIR\SISTEMA.EXE
192.168.1.101\DIR\SISTEMA.EXE
GOSTEI 0