4 respuestas en este tema

[edgwin]

Que tal amigos del foro.

Estoy intentando copiar un archivo a una carpeta compartida en otro equipo, lo que intento es lo siguiente:

delphi

procedure TfrmMain.prcCopiARed(vFile:string;vModa:string);
var
   NetResource: TNetResource;
   vIniFile : TIniFile;
   vRuta : PChar;
begin
   vIniFile := TIniFile.Create('./Config.ini');
   if vModa = '' then
      vRuta := PChar(vIniFile.ReadString('RUTA','RX','')) // ruta: \\132.147.160.50\RIS
   else
      vRuta := PChar(vIniFile.ReadString('RUTA','MA','')); // ruta: \\132.147.160.51\RIS
   NetResource.dwType := RESOURCETYPE_DISK;
   //Letra con la cual sera mapeado el recurso
   NetResource.lpLocalName := 'X:';
   //Nombre del recurso
   NetResource.lpRemoteName := vRuta;
   NetResource.lpProvider := '';
   WNetAddConnection2(NetResource, 'Agsrvc2ls','Crservice', CONNECT_UPDATE_PROFILE);
   CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False);
   WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True);
end;

Cabe mensionar que el usuario y password es correcto, si se conecta a la  unidad de red, y si cambio, en la linea "CopyFile" a una unidad local,  si me copia el archivo ...

Pero no me copia nada a la unidad de RED "x", alguna sugerencia?

Saludos!

[cHackAll]

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 WNetAddConnection('\\192.9.200.249\Vol1', 'Agsrvc2ls', 'Crservice');
 CopyFile('c:\windows\explorer.exe', '\\192.9.200.249\Vol1\explorer.exe', False);
 WNetCancelConnection('\\192.9.200.249\Vol1', True);
end;

[edgwin]

Gracias cHackAll por responder.

No me funciono, voy a optar por hacer un programa cliente servidor de archivos para pasalo de esta manera.

Saludos!

[escafandra]

Prueba a no usar CopyFile sustituyéndola por la siguiente:

delphi

function SHCopy(Source, Target: String): integer;
var
  FS: SHFILEOPSTRUCT;
begin
  ZeroMemory(@FS, sizeof(SHFILEOPSTRUCT));
  FS.wFunc:= FO_COPY;
  FS.pFrom:= PCHAR(Source + #0 + #0);
  FS.pTo:= PCHAR(Target + #0 + #0);
  FS.fFlags:= FOF_NOCONFIRMATION;
  Result:= SHFileOperation(FS);
end;

Saludos.

[AVESECA]

buenas, trabajo con equipos ZK y me interesaria obtener una aplicacion que se comunique con los equipos y me traiga un archivo de texto con los registros,
el software de zk no me es util, me pueden alludar alguien tiene un desarrollo particular que puedan comercializar? muchas gracias