Conflicto con archivos

[danielmj]

Hola, si es cierto abro 2 veces el archivo "X" pero entre estas dos veces abro el archivo "Y", es decir, la secuencia seria esta: "x" --> "y" --> "x" con lo cual al abrir "y" no deberia darme error al intentar abrir "x" ¿no? con tanta x e y es un lio, espero estar explicandome bien.

saludos y gracias.

[ecfisa]

Empezado por danielmj

Hola, si es cierto abro 2 veces el archivo "X" pero entre estas dos veces abro el archivo "Y", es decir, la secuencia seria esta: "x" --> "y" --> "x" con lo cual al abrir "y" no deberia darme error al intentar abrir "x" ¿no? con tanta x e y es un lio, espero estar explicandome bien.

saludos y gracias.

Hola danielmj.

Tál como te mencionó Neftalí el código que se visualiza no tendría que dar ese error.

Si limitas el código a:

Código Delphi [-]
...
var
  hdl: THandle;
  FileData: TWin32FindData;
  Size:int64;
begin
  with OpenDialog1 do
    if Execute then
    begin
      Size := 0;
      hdl  := FindFirstFile(PChar(FileName), FileData);
      if (hdl <> INVALID_HANDLE_VALUE) then
      begin
        Int64Rec(Size).Lo := FileData.nFileSizeLow;
        Int64Rec(Size).Hi := FileData.nFileSizeHigh;
      end;
      LabeledEdit1.Text := FileName;
    end;
end;

verás que te cansas de seleccionar alternadamente dos archivos sin que se produzca la situación que mencionas.

También coincido con Neeruu que pareciera que en otro punto del programa estas abriendo el archivo seleccionado sin cerrarlo. ¿ En la función ConvertFileSizes tal vez ?

Saludos

[mamcx]

Eso es API de windows. Revisa:

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Estas obteniendo un handle y no lo estas liberando.

[danielmj]

Buenas a todos, ya lo he arreglado! me ha costao verlo macho!! mamcx con el handle cerrado seguí fallando, lo que pasaba es que en otro procedimiento hacía una llamada al mismo archivo, pero de otro modo, entonces claro por un lado estaba cerrado pero por otro seguí abierto y este estado ultimo es el que llevaba la voz cantante.

en ese otro procedimiento tenía estas lineas:

Código Delphi [-]
FileQ := TFileStream.Create( FileName, fmOpenRead);
label12.Caption:= IntToStr(FileQ.Size);

y por eso fallaba, tan solo tenía que poner "FileQ.Destroy" y ya va pegando tiros!!

Gracias a todos por vuestros aportes! ahora a ver que nueva pega sale.
Saludos.