Fórum Salvar arquivo na maquina servidor #419744
11/07/2012
0
Olá,
Estou usando o codigo abaixo para salvar um arquivo numa pasta pre-determinada (C:\ContasPDF) e está funcionando corretamente, o arquivo é salvo na pasta C:\ContasPDF da maquina.
Só que vou precisar fazer isso em uma rede local, ou seja, todas as estações vão salvar os arquivos na pasta C:\ContasPDF que fica na maquina servidor. Como ficaria o Codigo abaixo para fazer isso?
//AbrePDF é um OPENDIALOG
if AbrePDF.Execute then
begin
if CopyFile(PChar(ABREPDF.FileName), PChar(C:\ContasPDF\ + edcodigo.Text + \ + ExtractFileName(abrePDF.FileName)), True) then
ShowMessage(Conta salva com sucesso!);
end
else
showmessage(Nenhum arquivo foi selecionado)
Grato
Luiz Carlos
Estou usando o codigo abaixo para salvar um arquivo numa pasta pre-determinada (C:\ContasPDF) e está funcionando corretamente, o arquivo é salvo na pasta C:\ContasPDF da maquina.
Só que vou precisar fazer isso em uma rede local, ou seja, todas as estações vão salvar os arquivos na pasta C:\ContasPDF que fica na maquina servidor. Como ficaria o Codigo abaixo para fazer isso?
//AbrePDF é um OPENDIALOG
if AbrePDF.Execute then
begin
if CopyFile(PChar(ABREPDF.FileName), PChar(C:\ContasPDF\ + edcodigo.Text + \ + ExtractFileName(abrePDF.FileName)), True) then
ShowMessage(Conta salva com sucesso!);
end
else
showmessage(Nenhum arquivo foi selecionado)
Grato
Luiz Carlos
Luiz Carlos
Curtir tópico
+ 0
Responder
Posts
11/07/2012
Cauê Nishijima
Ola LUIZ CARLOS,
Você só tem que compartilhar essa pasta que se encontra no servidor e mapea-la em alguma unidade de rede em cada máquina.
Você não esta utilizando 3 camadas né (DataSnap)? Se estivesse todas as estações se comunicariam com um servidor de aplicação que se encontra em seu servidor, e o mesmo se encarregaria de salvar na pasta, o que evitaria a necessidade de mapear uma pasta compartilhada em cada estação.
Abraços
Cauê Nishijima
Você só tem que compartilhar essa pasta que se encontra no servidor e mapea-la em alguma unidade de rede em cada máquina.
Você não esta utilizando 3 camadas né (DataSnap)? Se estivesse todas as estações se comunicariam com um servidor de aplicação que se encontra em seu servidor, e o mesmo se encarregaria de salvar na pasta, o que evitaria a necessidade de mapear uma pasta compartilhada em cada estação.
Abraços
Cauê Nishijima
Responder
Gostei + 0
11/07/2012
Deivison Melo
Verifique no link abaixo, existem informações para ajudar vc em sua empreitada!!
http://www.forum-invaders.com.br/vb/archive/index.php/t-11214.html
http://www.forum-invaders.com.br/vb/archive/index.php/t-11214.html
Responder
Gostei + 0
12/07/2012
Luiz Carlos
Cauê, não estou usando 3 camadas, o programa é instalado nas estações. Eu testei e funcionou da seguinte forma em uma rede local (coloquei a pasta C:\ContasPDF do servidor para compartilhar com as estações):
CopyFile(PChar(ABREPDF.FileName), PChar(\\NOME_DA_MAQUINASERVIDOR\ContasPDF\ + edcodigo.Text + \ + ExtractFileName(abrePDF.FileName)), True)
Gostaria de saber é se esta solução acima vai funcionar em qualquer rede local, pois o programa sera distruibuido pela Internet.
Grato
Luiz Carlos
CopyFile(PChar(ABREPDF.FileName), PChar(\\NOME_DA_MAQUINASERVIDOR\ContasPDF\ + edcodigo.Text + \ + ExtractFileName(abrePDF.FileName)), True)
Gostaria de saber é se esta solução acima vai funcionar em qualquer rede local, pois o programa sera distruibuido pela Internet.
Grato
Luiz Carlos
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)