[OT] =?ISO-8859-2?Q?B=B3=B1d_152_-_drive_not_ready_-?=
Masz problem? Zapytaj na forum elektroda.pl
From: Adam Jurkiewicz <sword_at_nospam_NIEMATEGOajpic.zonk.pl>
Subject: [OT] =?ISO-8859-2?Q?B=B3=B1d_152_-_drive_not_ready_-?=
Date: Mon, 16 Jan 2006 11:01:22 +0100
Witam,
Sorry, że tu ale na 'pclp' nie dostałem odpowiedzi, a zależy mi
na rozwiązaniu tego problemu. Może ktoś z Was się zetknął:
Jak przechwycić błąd 152? Korzystam ze stacji dysków (A) i muszę
przetestować czy w napędzie jest dyskietka. Jak próbuję się odwołać
to wywala mi właśnie ten komunikat i kończy wykonywanie programu (DOS).
Znalazłem jakiś upgrade 'bpl70n16.zip', że niby poprawione bibioteki
ale jak podstawiłem 'turbo.tpl' to przy pierwszym 'begin' wywala
'division by zero' ;)
Help!
pozdrawiam,
sword
--
e-mail: sword_at_nospam_TEGONIEMAajpic.zonk.pl
www: http://ajpic.zonk.pl/
gg#: 1781804
From: =?iso-8859-2?Q?W=B3adys=B3aw_Skoczylas?= <desoft_at_nospam_interia.pl>
Subject: =?iso-8859-2?Q?Re:_=5BOT=5D_B=B3=B1d_152_-_drive_not_ready_-_Turbo_Pascal?=
Date: Mon, 16 Jan 2006 14:27:19 +0100
Użytkownik "Adam Jurkiewicz" <sword_at_nospam_NIEMATEGOajpic.zonk.pl> napisał w
wiadomości news:dqfqvi$o1s$1_at_nospam_nemesis.news.tpi.pl...
Witam,
Sorry, że tu ale na 'pclp' nie dostałem odpowiedzi, a zależy mi
na rozwiązaniu tego problemu. Może ktoś z Was się zetknął:
Jak przechwycić błąd 152? Korzystam ze stacji dysków (A) i muszę
przetestować czy w napędzie jest dyskietka. Jak próbuję się odwołać
to wywala mi właśnie ten komunikat i kończy wykonywanie programu (DOS).
używasz {$I-} sprawdź dyskietkę {$I+} ?
Znalazłem jakiś upgrade 'bpl70n16.zip', że niby poprawione bibioteki
ale jak podstawiłem 'turbo.tpl' to przy pierwszym 'begin' wywala
'division by zero' ;)
Nie słyszałem aby w bibliotekach był problem z błędem 152.
Natomiast podstawiłeś turbo.tpl z błędem "division by zero."
ta biblioteka oryginalnie miała taki błąd i nie chodziła z procesorami
powyżej 200MHz. jest gdzieś na sieci poprawka do niej.
Znalazłem coś takiego, potestuj
Procedure JestDysk(Dysk : string);
begin
{$I-}
ChDir(Dysk);
{$I+}
if IOResult=15 then
begin
Writeln('Nie ma napCdu oznaczonego takĄ literĄ');
Writeln;
ChDir(miejsce);
Halt;
end;
if DiskSize(0)=-1 then
begin
Writeln('Uszkodzony lub wyjCty dysk ');
Writeln;
ChDir(miejsce);
Halt;
end;
end;
--
Władysław
http://217.96.144.226/desoft
From: Adam Jurkiewicz <sword_at_nospam_NIEMATEGOajpic.zonk.pl>
Subject: Re: [OT] =?ISO-8859-2?Q?B=B3=B1d_152_-_drive_not_ready?=
Date: Mon, 16 Jan 2006 14:54:50 +0100
Władysław Skoczylas wrote:
używasz {$I-} sprawdź dyskietkę {$I+} ?
Tak, to już sprawdzałem, po wyłączeniu też wywala.
Nie słyszałem aby w bibliotekach był problem z błędem 152.
Czytałem coś w opisie FreePacala, że jest rozszerzona lista
błędów IOResult właśnie o taki przypadek braku napędu, tam
też znalazłem tego linka do nowych bibliotek.
Natomiast podstawiłeś turbo.tpl z błędem "division by zero."
ta biblioteka oryginalnie miała taki błąd i nie chodziła z procesorami
powyżej 200MHz. jest gdzieś na sieci poprawka do niej.
Faktycznie nie zajarzyłem, kiedyś patchowałem starą bibliotekę
ale ze względu na moduł crt, który się wywalał przy wywołaniu
funkcji opóźniającej. Spróbuję to załatać ponownie.
Znalazłem coś takiego, potestuj
Dzięki, przetestuję jeszcze raz.
Pozdrawiam,
AJ
--
e-mail: sword_at_nospam_TEGONIEMAajpic.zonk.pl
www: http://ajpic.zonk.pl/
gg#: 1781804
From: =?iso-8859-2?Q?W=B3adys=B3aw_Skoczylas?= <desoft_at_nospam_interia.pl>
Subject: =?iso-8859-2?Q?Re:_=5BOT=5D_B=B3=B1d_152_-_drive_not_ready_-_Turbo_Pascal?=
Date: Mon, 16 Jan 2006 15:23:19 +0100
Użytkownik "Adam Jurkiewicz" <sword_at_nospam_NIEMATEGOajpic.zonk.pl> napisał w
wiadomości news:dqg8la$mna$1_at_nospam_nemesis.news.tpi.pl...
Władysław Skoczylas wrote:
używasz {$I-} sprawdź dyskietkę {$I+} ?
Tak, to już sprawdzałem, po wyłączeniu też wywala.
po {$I-} wywala błąd wejścia wyjścia?????
--
Władysław
http://217.96.144.226/desoft
From: Adam Jurkiewicz <sword_at_nospam_NIEMATEGOajpic.zonk.pl>
Subject: Re: [OT] =?ISO-8859-2?Q?B=B3=B1d_152_-_drive_not_ready?=
Date: Tue, 17 Jan 2006 10:20:45 +0100
Władysław Skoczylas wrote:
po {$I-} wywala błąd wejścia wyjścia?????
Już nie wywala, znalazłem błąd w kolejności wywołań funkcji
i to powodowało mój problem. Teraz już działa poprawnie
(ze domyślnymi bibliotekami).
Dzięki i pozdrawiam,
sword
--
e-mail: sword_at_nospam_TEGONIEMAajpic.zonk.pl
www: http://ajpic.zonk.pl/
gg#: 1781804