Fórum copiar e gravar arquivo com delphi #470257
17/02/2014
0
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
Curtir tópico
+ 0Posts
18/02/2014
Ricardo Araujo
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
18/02/2014
Luiz Estevam
vou fazer alguns teste, se der certo posto aqui.
fico muito grato.
Gostei + 0
07/03/2014
Luiz Estevam
fica a dica. verificar se o arquivo existe.
grato.
Gostei + 0
16/03/2015
Luiz Estevam
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
17/03/2015
Jaime Santos
Att.
Gostei + 0
17/03/2015
Luiz Estevam
att.
Gostei + 0
17/03/2015
Luiz Estevam
att.
Gostei + 0
18/03/2015
Jaime Santos
Att.
Gostei + 0
18/03/2015
Thiago Santana
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
22/03/2015
Emerson Nascimento
192.168.1.101\DIR\SISTEMA.EXE
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)