N�o consigo salvar arquivo no servidor da rede

Question

Ol�,Estou usando o codigo abaixo para salvar um arquivo e ele funciona corretamente, o arquivo � salvo na pasta C:ContasPDF da maquina:CopyFile(PChar(ABREPDF.FileName), PChar(CContasPDF + edcod...

Luiz Carlos · Answer

Desculpe, o codigo correto que estou usando para salvar no servidor �:

CopyFile(PChar(ABREPDF.FileName), PChar(NOME_DO_SERVIDOR:C\ContasPDF\ + edcodigo.Text + \ + ExtractFileName(abrePDF.FileName)), True)

Este codigo acima n�o esta funcionando para salvar o arquivo no servidor, alguem sabe por que?
i
Grato

Luiz Carlos

Luiz Carlos · Answer

Alguem pode ajudar, agora tentei usando o codigo abaixo e tambem n�o funciona. Preciso fazer isso via CODIGO pois o programa sera colocado em um site para que o proprio usuario baixe e instale o programa, quer dizer, n�o sou eu que vou instalar e por isso n�o posso fazer via mapeamento de rede.

Var
NovoNome : String;

begin
\\ o nome do servidor esta no edServ
NovoNome := \\ + edServ.Text + \ContasPDF\ + EDCODIGO.Text + \ + ExtractFileName(FRMAGENDA.abrePDF.FileName);

\\ABREPDF � um opendialog
if ((not FileExists(NovoNome)) or (Application.MessageBox(PChar(J� existe um arquivo com este nome anexado ao contato, deseja substituir o arquivo existente?),
PChar(Confirma��o),
MB_OKCANCEL + MB_ICONQUESTION) = mrOk)) and
(CopyFile(PChar(ABREPDF.FileName), PChar(NovoNome), false)) then
ShowMessage(Conta gravada com sucesso!);
end
else
showmessage(Nenhum arquivo foi selecionado);

Grato

Luiz Carlos

Romulo Contro · Answer

que windows � o da outra maquina?se for vista/7, tem que desativar o compartilhamento de rede com senha, ou ent�o, colocar a senha toda vez que reiniciar o pc...faz o seguinte... tenta acessar a pasta compartilhada da outra maquina que vc quer copiar, e verifica se pede senha... se pedir, este est� sendo o problema... se n�o, a� � outra coisa......

Luiz Carlos · Answer

Ol� Romulo, quer dizer entao que o codigo que postei abaixo para salvar o arquivo no servidor esta correto?

Var
NovoNome : String;

begin
\\ o nome do servidor esta no edServ
NovoNome := \\ + edServ.Text + \ContasPDF\ + EDCODIGO.Text + \ + ExtractFileName(FRMAGENDA.abrePDF.FileName);

\\ABREPDF � um opendialog
if ((not FileExists(NovoNome)) or (Application.MessageBox(PChar(J� existe um arquivo com este nome anexado ao contato, deseja substituir o arquivo existente?),
PChar(Confirma��o),
MB_OKCANCEL + MB_ICONQUESTION) = mrOk)) and
(CopyFile(PChar(ABREPDF.FileName), PChar(NovoNome), false)) then
ShowMessage(Conta gravada com sucesso!);
end
else
showmessage(Nenhum arquivo foi selecionado);

Grato

Luiz Carlos

Romulo Contro · Answer

n�o cheguei testar ele nao, mas se vc disse que funciona pra salvar local, na rede tamb�m dever� funcionar...

eu notei que vc colocou sem aspas nas barras:
NovoNome := \\ + edServ.Text + \ContasPDF\ + EDCODIGO.Text + \ + ExtractFileName(FRMAGENDA.abrePDF.FileName);

no delphi t� com aspas?

e outra coisa, vc ja testou de acessar o diretorio pra ver se pede senha?

outra sugest�o tamb�m � vc mapear a pasta compartilhada como uma unidade na maquina dos clients...

por exemplo, deixar l� a pasta compartilhada como H:\...

Luiz Carlos · Answer

Romulo, as aspas sumiram qdo colei o Codigo aqui no post. Vou testar novamente l� na rede do cliente, mas se n�o der certo vou tentar o mapeamento da pasta na rede. Se eu colocar a pasta como H:, o codigo ent�o ficaria assim correto?

//edserv.text vai conter a letra da pasta mapeada, neste caso H
NovoNome := edserv.text + :\ContasPDF\ + EDCODIGO.Text + \ + ExtractFileName(FRMAGENDA.abrePDF.FileName);

Grato

Luiz Carlos

Rafael Mota · Answer

J� tentou colocar o IP do servidor no lugar do Nome?? Parece bobagem, mas j� passei por problema parecido e resolveu.......

Romulo Contro · Answer

acredito que ficaria certo sim, se tiver com permiss�o pra copiar e tudo mais, n�o tem pq n�o dar certo...mas qualquer coisa avisa a�!...

Luiz Carlos · Answer

Valeu Romulo, consegui resolver com o mapeamento da pasta no serivdor.GratoLuiz Carlos...

Romulo Contro · Answer

precisando tamo a�! :D...

F�rum N�o consigo salvar arquivo no servidor da rede #420281