James dragged the solution a little bit away from the
"quick-and-dirty-corner".
This way it is usable also in critical situations.
SMART is a never ending story and you jump into the jungle:
* A lot of noname disk have no entry in the SMART DB
* Even a half year old Maxtor/Seagate was not found in an updated DB
* On external disks SMART is often disabled by default
* I don't know a Pascal interface to smart
But what will you exspect when the price for 1 TB is now down to 40.- €???
It would be a good idea if reality had not so many obstacles.
Winni
Am 22.11.19 um 14:38 schrieb James Richters:
I thought there was a way to figure out if the drive was spun down, perhaps
with a S.M.A.R.T command?
I like the idea of using the ioResult, but I would put in a way to exit the
loop for ioReults of errors not caused by a spun down drive would report right
away and a timeout in case some other condition causes the same error as being
spun down, so it's not caught in an infinite loop for errors not caused by the
spindown. Something like this... (Untested):
const
A_Day = 1;
An_Hour = A_Day/24;
A_Minute = An_Hour/60;
A_Second = A_Minute/60;
StartTime:=now;
assignFile(txt,'/mnt/test.txt');
{$I-}
rewrite (txt);
repeat
application.processmessages;
writeln (txt,'I''m so tired ...');
io := ioResult;
// showMessage ('--> '+IntToStr(io));
until (io=NoSuchFileErrorCode) or (StartTime+(30*A_Second)<Now);
{$I+}
closeFile(txt);
If io<>0 Then
DoSomethingAboutError;
It seems strange that this would be an issue at all, I would think the drive
itself would cache any data written to it for long enough to get the drive spun
up... seems very short sighted on hard drive design for this to be an issue at
all, and even if the drive didn't do this, it seems like the operating system
should take care of it for you.
James
-----Original Message-----
From: fpc-pascal <fpc-pascal-boun...@lists.freepascal.org> On Behalf Of Brian
Sent: Thursday, November 21, 2019 8:55 PM
To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Subject: Re: [fpc-pascal] Writing to a drive which may be spun down
On 11/21/19 2:38 PM, Winfried Bartnick wrote:
<...>
writeln (txt,'I''m so tired ...');
closeFile(txt);
io := ioResult;
Thanks Winni, that sounds the sort of idea I'm looking for...
Brian.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
