asked on

Exception EInOutError in module.

Hi,

My application raised an Exception EInOutError in module My.Exe at 00467988 I/O error 32.

I cannot seem to find any Info in the help files on error 32.
What is this error, and how do I handle it.

The error occurred when I clicked on a Db Navigator to insert a new record.

Asw

Lee_Nover

?
this is the function that creates that error

function CreateInOutError: EInOutError;
type
TErrorRec = record
Code: Integer;
Ident: string;
end;
const
ErrorMap: array[0..6] of TErrorRec = (
(Code: 2; Ident: SFileNotFound),
(Code: 3; Ident: SInvalidFilename),
(Code: 4; Ident: STooManyOpenFiles),
(Code: 5; Ident: SAccessDenied),
(Code: 100; Ident: SEndOfFile),
(Code: 101; Ident: SDiskFull),
(Code: 106; Ident: SInvalidInput));
var
I: Integer;
InOutRes: Integer;
begin
I := Low(ErrorMap);
InOutRes := IOResult; // resets IOResult to zero
while (I <= High(ErrorMap)) and (ErrorMap[I].Code <> InOutRes) do Inc(I);
if I <= High(ErrorMap) then
Result := EInOutError.Create(ErrorMap[I].Ident) else
Result := EInOutError.CreateResFmt(@SInOutError, [InOutRes]);
Result.ErrorCode := InOutRes;
end;

so your error was created by
Result := EInOutError.CreateResFmt(@SInOutError, [InOutRes]);

32 is unspecified IO error

do you have an open record or smth ???
can you debug it ?
put a breakpoint there and trace the error

ASKER CERTIFIED SOLUTION

TOndrej

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Asw

ASKER

Hi Guyz,
Thanks for your help, I will give the points to TOndrej Problem is ERROR_SHARING VIOLATION .

Asw