[delphi] i/o error 32

[banaan-X]

Wat betekent de i/o error 32. Het gebeurt waarschijnlijk bij het opslaan van een bestand. Het gebeurt alleen bij mijzelf niet, maar wel bij iemand anders met precies hetzelfde programma.

[Coltrui]

Volgens mij is dit geen I/O error maar een OS error.
Kijk eens in je win32.hlp file naar de errorcodes.
Deze errorcodes zijn OS-afhankelijk. (Bij mij is code 32 een sharing violation)

[banaan-X]

Volgens mij zei diegene toch echt i/o error.
Maar enig idee wat er aan kan worden gedaan?

[Coltrui]

I/O errors beginnen vanaf nr 100 e.v. zie ik in m'n Delphi-help.
En als je geen code post wordt het wel een beetje gokwerk nietwaar?

[Tomatoman]

Probeer eens of er een fout te achterhalen valt via RaiseLastWin32Error.

[banaan-X]

Op dinsdag 25 september 2001 13:06 schreef Wezen het volgende:
I/O errors beginnen vanaf nr 100 e.v. zie ik in m'n Delphi-help.
En als je geen code post wordt het wel een beetje gokwerk nietwaar?

Ik zei toch #32.
Even letterlijk wat diegene mij heeft gemaild (ik heb het probleem dus zelf niet):
"Als ik op klaar druk dan verschijnt I/O error 32 en kan ik niet verder."
(en als je op klaar drukt wordt er dus een bestand aangemaakt. Maar wat betekent deze foutmelding nou, want in delphi beginnen de nr's pas bij 100 (inderdaad))

[Verwijderd]

Na enige minuten google'en kan ik je melden dat io error 32 een sharing violation is. Kortom iemand (zelf een close vergeten?) heeft het bestand nog open en daarom mag jij er niet in...

[banaan-X]

Op dinsdag 25 september 2001 17:23 schreef Yarvieh het volgende:
Na enige minuten google'en kan ik je melden dat io error 32 een sharing violation is. Kortom iemand (zelf een close vergeten?) heeft het bestand nog open en daarom mag jij er niet in...

Oh, nou bedankt dan ga ik nog even zoeken. Maar wel erg raar dat ik (en vele anderen) dat niet krijgen, en anderen juist wel...

[banaan-X]

Kan niets vinden. Wat ik doe is hier (met wat knipwerk) onder weergegeven.

code:

  username := GetCurrentUserName;
  tekst1 := LeftStr(username, 1);
  tekst2 := RightStr(username,1);
  tekst3 := TimetoStr(Time);

  teken[1] := 'E';
  teken[2] := 'D';
  teken[3] := tekst1[1];
  teken[4] := tekst2[1];
  teken[5] := tekst3[4];
  teken[6] := tekst3[5];
  teken[7] := tekst3[7];
  teken[8] := tekst3[8];

  AssignFile(f, 'data.dat');
  Rewrite(f);
  

  (* schrijverdeschrijf :) Dit heb ik ff geknipt *D

  CloseFile(f);

  filename:= teken[1] + teken[2] + teken[3] + teken[4] + teken[5] + teken[6] + teken[7] + teken[8] + '.dat';

  Assignfile(g, filename);
  Reset(f);
  Rewrite(g);

  writeln(g, (code * code) + 71);  // de sleutel
  While not Eof(f) do
  begin
    Readln(f, tekstin);

    {Showmessage(tekstin);
    Showmessage(Codeerzin(tekstin));}

    Writeln(g, Codeerzin(tekstin));
  end;

  CloseFile(f);
  CloseFile(g);


  DeleteFile('data.dat');

  // Klaar!

[banaan-X]

En toch geeft ie een error...

[Verwijderd]

Volgens mij kan het ook zo zijn dat terwijl de CloseFile procedure de file nog niet heeft afgesloten, de DeleteFile procedure begint. Of zijn die procedures niet asynchroon? Kan op een netwerk ofzo wel gebeuren denk ik...

Zet iig alles in een try..except en een try..finally bv:

code:

try
  Assignfile(g, filename);
  try
    Reset(f);
    Rewrite(g);
    writeln(g, (code * code) + 71);  // de sleutel
    ..
  finally
    CloseFile(g);
  end;
except
  on EInOutError do
    ShowMessage('Oeps');
end;

En kijk verder eens of het uitmaakt als je de DeleteFile later doet, of dat je de DeleteFile een aantal keer kan herhalen totdat hij het doet.

[MPEG]

Volgens mij is #32 de error voor "drive not ready" ?