El archivo de comprobación está abierto en Delphi

Question

¿Hay alguna forma de comprobar si ReWrite ha abierto un archivo en Delphi?

Código sería algo como esto:

AssignFile(textfile, 'somefile.txt'); 
if not textFile.IsOpen then 
    Rewrite(textFile); 

Answer 1

Puede obtener el fileMode. (En un momento, crearé un ejemplo).

TTextRec (txt) .Mode le da el modo:

55216 = closed 
55217 = open read 
55218 = open write 

fmClosed = $D7B0; 
fmInput = $D7B1; 
fmOutput = $D7B2; 
fmInOut = $D7B3; 

Buscar TTextRec en la unidad del sistema para obtener más información.

Answer 2

Prueba esto:

function IsFileInUse(fName: string) : boolean; 
var 
    HFileRes: HFILE; 
begin 
    Result := False; 
    if not FileExists(fName) then begin 
    Exit; 
    end; 

    HFileRes := CreateFile(PChar(fName) 
    ,GENERIC_READ or GENERIC_WRITE 
    ,0 
    ,nil 
    ,OPEN_EXISTING 
    ,FILE_ATTRIBUTE_NORMAL 
    ,0); 

    Result := (HFileRes = INVALID_HANDLE_VALUE); 

    if not(Result) then begin 
    CloseHandle(HFileRes); 
    end; 
end; 

Answer 3

me pareció más fácil para mantener una variable booleana como compañero; ejemplo: bFileIsOpen. Dondequiera que se abra el archivo, configure bFileIsOpen := true y, cuando necesite saber si el archivo está abierto, simplemente pruebe esta variable; ejemplo: if (bFileIsOpen) then Close(datafile);

Answer 4

Esto funciona bien:

function IsOpen(const txt:TextFile):Boolean; 
const 
    fmTextOpenRead = 55217; 
    fmTextOpenWrite = 55218; 
begin 
    Result := (TTextRec(txt).Mode = fmTextOpenRead) or (TTextRec(txt).Mode = fmTextOpenWrite) 
end; 

Answer 5

contestación de José funciona perfectamente - Llamé a la función filenotopen y cambió la línea si

Result := (HFileRes = INVALID_HANDLE_VALUE); 

a

Result := NOT (HFileRes = INVALID_HANDLE_VALUE); 

también eliminó la línea 'si no (Resultado) luego comienza' (y el 'final') entonces que siempre cierra el mango o asignaciones posteriores y lee dar errores

ahora lo llamo como esto

if filenotopen(filename) then 
    begin 
    assignfile(f,filename); 
    reset(f) 
    etc; 
    end 
else 
    message('file open by a different program')