9 replies to this topic

[Kipow]

Hola, tengo el siguiente codigo que utilizo para sustituir los ejecutables de mi sistema en caliente (en uso)

delphi

MoveFile(PWideChar('C:\MIPROGRAMA\EXE\EJECUTABLE.EXE'),PWideChar('C:\MIPROGRAMA\EXE\EJECUTABLE.TMP');
MoveFile(PWideChar('C:\WINDOWS\TEMP\MIPROGRAMA\EJECUTABLE.EXE'),PWideChar('C:\MIPROGRAMA\EXE\EJECUTABLE.EXE'));

(Funciona ignoren los espacios en la segunda instruccion, no me dejo quitarlos el editor del post.)

Pues realmente si funciona me deja sustituir el ejecutable en caliente (en uso) pero resulta que la carpeta C:\MIPROGRAMA\EXE es un recurso compartido en la red. luego de ejecutar las sentencias anteriores algo sucede al recurso compartido, puedo accederlo desde el explorador de windows y ejecutarlo en el servidor que es desde donde actualizo el ejecutable, ahora bien si intento hacerlo desde otra pc accediendo al recurso compartido no me deja simplemente no hace nada, para que funcione tengo que quitar el recurso compartido y volver a compartir. alguna idea de porque sucede esto?

Gracias por el tiempo.

saludos.

[cHackAll]

Puedes explicar un poco mejor el escenario... que no me queda claro?

PD; puedes recompartir la carpeta por codigo

[Kipow]

Gracias por tu tiempo.

1. Carpeta en el servidor C:\MIPROGRAMA\EXE
2. Recurso compartido EXE.
3. Ejecuto el codigo del post anterior todo ok.
4. Al intentar acceder desde otro pc a MIPROGRAMA.EXE asi \\servidor\exe\MIPROGRAMA.EXE no hace nada.
5. En el servidor el recurso aparece como compartido pero si lo quito y lo vuelvo a compartir ya me funciona bien MIPROGRAMA.EXE.

A tu segunda pregunta si puedo recompartir por codigo pero solamente local asi lo tengo ahorita, pero me interesa que puedan actualizar MIPROGRAMA desde cualquier estacion. te coloco el codigo que utilizo para des/compartir.

delphi

function ShareFolder(ServerName, NetName, Path : WideString) : boolean;
var
    shareInfo:SHARE_INFO_2;
    pass:widestring;
    status:NET_API_STATUS;
begin
  pass:='';
 
  zeroMemory(@shareInfo,sizeof(SHARE_INFO_2));
  shareInfo.shi2_netname:=PWideChar(netname);
  shareInfo.shi2_type:=STYPE_DISKTREE;
  shareInfo.shi2_remark:=PWideChar('Compartiendo Carpeta '+netname);
    shareInfo.shi2_permissions:=shareInfo.shi2_permissions or ACCESS_ALL;
 
  shareInfo.shi2_max_uses:=200;
  shareInfo.shi2_current_uses:=0;
  shareInfo.shi2_path:=PWideChar(path);
  shareInfo.shi2_passwd:=PWideChar(pass);
  status:=NetShareAdd(PWideChar(servername),2,@shareInfo,nil);
  if status<>NERR_SUCCESS then
    raise exception.Create(MensajeErrorShare(status));
end;
 
 
function UnShareFolder(ServerName, Netname : WideString) : Boolean;
var
    status:NET_API_STATUS;
begin
  status:=NetShareDel(PWideChar(servername),PWideChar(netName),0);
  if status<>NERR_SUCCESS then
    raise exception.Create(MensajeErrorShare(status));
end;

[cHackAll]

Todo funciona normal, pero cuando en el servidor actualizas el ejecutable usando MoveFile ya no es posible acceder al mismo desde otro equipo... es eso?

[Kipow]

Exactamente Chackall jajaja en resumen ese es el problema.

[cHackAll]

Bueno, en algunas cosas soy lento

Lo unico que se me ocurre es que; dado que el SO crea un caché de los recursos compartidos, por alguna razon al cambiar el recurso en si deja de ser accesible.

Lo que yo haria es actualizar, y re-compartir la carpeta.

[Kipow]

mas bien sera que no me di a entender con facilidad. aun asi las funciones para compartir y descompartir no me funcionan a la perfeccion, resulta que efectivamente recomparten pero no hacen lo mismo que cuando lo hago manualmente.

[Kipow]

Bueno, ya con sueño, pero encontre otra forma de hacer lo que necesito (aunque aun no en delphi).  con el comando NET FILE #id /CLOSE desde la linea de comando logro matar el proceso y ya puedo simplemente copiar encima el ejecutable nuevo. peeeero no se como hacer eso desde delphi. considerando que necesito listar todos los procesos que correspondan a mi ejecutable. (esto lo hago con NET FILE aunque ahi aparecen todos los archivos compartidos en uso). Alguna idea? cual sera el api que hace las funciones del NET FILE?

[Kipow]

Bueno ya estoy casi listo. las APIs que me sirven son NetFileEnum y NetFileClose, el NetFileEnum me lista los archivos abiertos desde otras PCs y el NetFileClose cierra algo asi como el manejador pero no cierra las aplicaciones y eso me parece excelente porque las PCs clientes siguen trabajando normal (me imagino porque la aplicacion ha de estar toda en memoria la verdad no se). ahora me queda una duda como puedo hacer lo mismo pero con los archivos abiertos localmente?

[Kipow]

Bueno Al final todo lo solucione de una forma tan sencilla. Moviendo el archivo en uso y copiando el nuevo. algo como

delphi

MoveFil(PChar('c:\miprograma\exe\programa.exe'),pchar('c:\miprograma\exe\temp.tmp');
CopiarArchivo(pchar('c:\nuevo.exe'),PChar('c:\miprograma\exe\programa.exe'));

esta es la funcion copiar, nada del otro mundo.

delphi

function CopiarArchivo(const FromFolder: string; const ToFolder: string) : boolean;
var
  Fo      : TSHFileOpStruct;
  buffer  : array[0..4096] of char;
  p       : pchar;
begin
  FillChar(Buffer, sizeof(Buffer), #0);
  p := @buffer;
  StrECopy(p, PChar(FromFolder)); //this is folder that you want to copy
  FillChar(Fo, sizeof(Fo), #0);
  Fo.Wnd    := 0;
  Fo.wFunc  := FO_COPY;
  Fo.pFrom  := @Buffer;
  Fo.pTo    := PChar(ToFolder); //this is where the folder will go
  Fo.fFlags := FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
  result := ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false));
end;

Gracias a todos por su atencion y espero esta info le sea util a mas de uno.

Lo unico es que para poder acceder a la nueva version del ejecutable se deben de cerrar las instancias anteriores.