PDA

Ver la Versión Completa : Error I/O 32


jomaduga
08-05-2008, 20:46:56
Creo que este mensaje esta relacionado con las funciones FindFirst(...) o AssignFile(....). Favor indicarme como resolver este problema que comunmente está apareciendo en una de mis aplicaciones. Gracias.

Delphius
08-05-2008, 21:04:18
jomaduga,
¿Podríamos ver un poco del código que estás empleando?
Si nos pudieras explicar mejor tu situación te podríamos ser de más ayuda.

Saludos,

cHackAll
08-05-2008, 21:57:32
FindFirst solo enlista los archivos o carpetas de un directorio; no tendria por que darte un error. Ahora AssignFile solo asocia una variable con un nombre pero NO abre dicho archivo hasta utilizar Reset o ReWrite, podemos forzar dicho error;

procedure TForm1.Button1Click(Sender: TObject);
var f: file;
begin
AssignFile(f, 'c:\windows\explorer.exe');
Reset(F); // Error I/O 32

...

para manejar dicha excepcion deberías realizar lo siguiente;

...

{$i-} Reset(F); {$i+}
if IoResult = 32 then
MessageBox('Error #32');

...

Ahora a qué se debe dicho error? acá la respuesta;

ShowMessage(SysErrorMessage(32));

Saludos