Hello:

Does anyone knows what means the next error codes: 998, 313. And where find information about the applications exit code?

I'm under win32 platform, fpc 1.0.6 using gdb as debugger

TIA

------------------------------------------------------------ Alien.org contacted... waiting for Ripley

Hello:

Does anyone knows what means the next error codes: 998, 313. And where find information about the applications exit code?

I'm under win32 platform, fpc 1.0.6 using gdb as debugger

TIA

------------------------------------------------------------ Alien.org contacted... waiting for Ripley

Eduardo Morras wrote

Does anyone knows what means the next error codes: 998, 313. And where find information about the applications exit code?

Such strange error codes are error codes that come straight from the operating system and which are for some reason not properly translated by the RTL. If you say which routines cause such errors, we an have a

Well, i rewrote some parts of the app, and have no backup copies, but the 998 error dissapear when i rewrote the second BlockRead call in:

{OLD}

procedure LeerFrame(leidos : longint);
Type
    Tdummy = array[1..8] of byte;
var
    dummy : ^Tdummy;
begin
      GetMem(dummy,sizeof(Tdummy));
      leidos := 0;
      BlockRead(FileIN,FrameRGB,CIFW*CIFH*3,leidos);
      LeerFrameOK := TRUE;
      BlockRead(FileIN,dummy,8); {THIS ONE}
      FreeMem(dummy,sizeof(Tdummy));
end;

{NEW}

procedure LeerFrame(leidos : longint);
var
    a,b   : longint;
begin
      leidos := 0;
      BlockRead(FileIN,FrameRGB,CIFW*CIFH*3,leidos);
      if leidos=(CIFW*CIFH*3) then begin
         BlockRead(FileIN,a,4);
         BlockRead(FileIN,b,4);
         LeerFrameOK := TRUE;
      end;
end;

The BlockRead doesn´t need a 4th var because it's for padding. But it gets an error on the first read, when i have near 7000.

So, i can find the error codes in win32API help?

ATIA

P.S. The file is an RGB AVI uncompressed, between frames are 8 bytes.

------------------------------------------------------------------------------------------------------------------------------------------------------------ #The Unix Guru's View of Sex unzip ; strip ; touch ; grep ; finger ; mount ; fsck ; more ; yes ; umount ; sleep

Well, with the changes i get an error 147, but this i know what is. In the BlockRead, there is not enough room at the buffer var for the number of records readed. So, i must retype my buffer to be 1 byte greater.

My buffer was from [1..last-1], so 1 byte lesser than i need, and changeing it to [0..last-1] do all work well.

Thanks a lot to all.

----------------------------------------------------------------------------------------------------------------------------- La diferencia entre la teoria y la practica es que en teoria no hay, pero en la practica si