Kako da direktno čitam sektore sa diska?

Jednostavno treba mi da pročitam određene sektore sa diska (FAT tabela i sl.) i da malo "prelistam" fajlove

Kod koji to radi bi trebalo ovako da izgleda:

var
handle,hFile: THandle;
lpBuffer: array [0..255] of char;
lpNumberOfBytesRead: Cardinal;
begin
handle:=CreateFile(PAnsiChar('\\.\C:'), GENERIC_READ,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
0,
0);
if handle=INVALID_HANDLE_VALUE then
raise Exception.Create('Invalid handle!');

SetFilePointer(handle,0,nil,FILE_BEGIN);
if ReadFile(handle, lpBuffer, SizeOf(lpBuffer), lpNumberOfBytesRead, nil) then
begin
lpBuffer[lpNumberOfBytesRead]:=#0;
ShowMessage(String(lpBuffer));
end;
CloseHandle(handle);

On otvara handle, ali pri čitanju uporno dobijam 0 bajtova pročitanih.
Zna li neko zašto?

> Jednostavno treba mi da pročitam određene sektore sa diska (FAT tabela i sl.) i da malo "prelistam" fajlove

Pokušaj sa \\.\PhysicalDrive0.

> CreateFile(PAnsiChar('\\.\C:'), GENERIC_READ,

Stavi GENERIC_READ or GENERIC_WRITE.

SetFilePointer(handle,0,nil,FILE_BEGIN);
if ReadFile(handle, lpBuffer, SizeOf(lpBuffer), lpNumberOfBytesRead, nil) then

Ako ove funkcije ne uspeju stavi RaiseLastWin32Error kako bi video tačan razlog.

> On otvara handle, ali pri čitanju uporno dobijam 0 bajtova pročitanih.
> Zna li neko zašto?

Za neke od tih stvari program mora imati admin prava.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

PhysicalDrive je sinonim za isto, pa je i greška koju prijavljuje ista
Probao sam sa RaiseLastOSError (RaiseLastWin32Error je zastarelo) i oba pokazuju
'The parameter is incorrect' nakon izvršenja ovog dela.

Znači FileRead i ReadFile javljaju isti problem i to samo kad se čita sa drajva.
Čitanja iz fajla je besprekorno.

Evo dela koda:

lpNumberOfBytesRead:=FileRead(handle, buff, 255);
if lpNumberOfBytesRead<>$FFFFFFFF then
begin
lpBuffer[lpNumberOfBytesRead]:=#0;
ShowMessage(String(lpBuffer));
end

U attachmentu imate source pa probajte sami da to izvedete. Veoma je kratak.
Pritiskom na dugme start aktivira se čitanje prvih 255 bajta i javi grešku odmah
else
RaiseLastOSError();

lpNumberOfBytesRead:=FileRead(handle, buff, 255);
if lpNumberOfBytesRead<>$FFFFFFFF then
begin
lpBuffer[lpNumberOfBytesRead]:=#0;
ShowMessage(String(lpBuffer));
end

Funkcije koje koristis poticu iz SysUtils.pas, a tebi trebaju f-je iz Windows.pas

lpNumberOfBytesRead:=FileRead(handle, buff, 255);

zamenis sa

Windows.ReadFile(handle, buff, 255, lpNumberOfBytesRead, nil);

I citanje prodje bez greske, ali ti ne vrati nista... lpNumberOfBytesRead je 0. Drugo, citas u buff, a prikazujes lpBuffer.

Odgovorili su mi.
Greška je bila što sam dok sam eksperimentisao učitavao necelobrojne količine *512.
Čim sam stavio n*512 radilo je.
Inače buff sam stavio umesto lpBuffer kada mi je javljao problem sa parametrima pa sam probao drugačije parametre.

Takođe, naveo sam da sam probao i jednu i drugu ReadFile i FileRead da smanjim broj parametara smatrajući da mi je neki parametar problematičan.
ReadFile je korišćen u početku ali je stavljen u komentare, kao što možeš da primetiš

hvala

> PhysicalDrive je sinonim za isto,

Razlikuju se, jedan daje handle čitavog diska a drugi samo particije.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Tačno.
Loše sam se izrazio želeći da potenciram da mi oba parametra nisu radila zanemarujući na suptilnu razliku drive i logical drive, kad nije htelo da čita.

A kad funkcioniše, razlika postaje nebo i zemlja.

Hvala na primedbama, preciznost je bitna, a i na pomoći

Da se nadovezem na ovaj problem jednim svojim... <postovao sam ranije temu, ali nisam dobio odgovor na to> Dakle radi se o tome da mi treba programcic koji ce da cita sve greske na odredjenim sektorima na disketi, te podatke sacuva negde u nekoj datoteci, a ja na osnovu podataka iz datoteke da mogu da te iste greske na istim sektorima namerno napravim na nekoj drugoj disketi... E sad kako sve to odraditi...?
Nadam se da ste me razumeli...
Molim da se post ne brise ako malo odstupa od teme <nadam se da nece i da ne odstupa>
Pozdrav, citamo se...

Potpis

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Da rezimiram, možda nekom zatreba rešenje, sledeća procedura lepo radi:
poziv: GetSectors('\\.\F:',0,nSectorsToRead,lpBuffer);

Kažete koji startni sektor hoćete, koliko da pročita i gotovo...
E sada neobično je da mi nije radilo bez FILE_SHARE_READ or FILE_SHARE_WRITE
Znači samo FILE_SHARE_READ nije htelo što inače prvo pada na pamet.


procedure TForm1.GetSectors(FileName: String; Start, Number: Cardinal; Buffer: Pointer);
var
handle: THandle;
nBytesToRead, lpNumberOfBytesRead: Cardinal;
dwPointer: Cardinal;
begin
nBytesToRead:=512*Number;

handle:=CreateFile(PAnsiChar(FileName), // filename
GENERIC_READ, // open for reading
FILE_SHARE_READ or FILE_SHARE_WRITE, // share read or write obavezno!
nil, // no security
OPEN_EXISTING, // existing file only
FILE_ATTRIBUTE_NORMAL, // normal file
0); // no attr. template
if handle=INVALID_HANDLE_VALUE then
raise Exception.Create('Invalid handle!');

dwPointer:=SetFilePointer(handle,Start,nil,FILE_BEGIN);
if dwPointer = $FFFFFFFF then
raise Exception.Create('Invalid set!');

if not ReadFile(handle, Buffer, nBytesToRead, lpNumberOfBytesRead, nil) then
raise Exception.Create('Invalid Read!');
// RaiseLastOSError();

CloseHandle(handle);
end;

Sumnjam da si se dobro izrazio...
Verovatno si mislio na kloniranje bad sektora koje se koristi pri zaštiti od kopiranja.

Da, upravo na tako nesto...

Potpis

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn