Discussion :

[gregcat]

je souhaiterais faire un outil de lecture et ecriture dans les méta données des fichier NTFS ( flux ntfs). Concernant la lecture de flux, J'ai trouvé la procédure suivante en navigant sur le web mais il y a une ligne qui pose problème.

à l'exécution, j'ai une violation d'accès à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BackupSeek(h, sid.Size, 0, dw1, dw2, p);

Fonction EnumStreamsInfo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
// path = Chemin+fichier  à analyser
Procedure EnumStreamsInfo(path:PChar);
var
  s:string;
  wszStreamName:array[0..MAX_PATH-1] of WCHAR;
  sid:WIN32_STREAM_ID absolute wszStreamName;
  h:thandle;
  p:pointer;

  temp,dw1, dw2:cardinal;


begin


  p:=nil;
  h:=CreateFile(path,GENERIC_READ, 0, nil, OPEN_EXISTING,
  FILE_FLAG_BACKUP_SEMANTICS or FILE_FLAG_POSIX_SEMANTICS, 0);

  while true do  // boucle infinie
  begin

    form1.memo1.Lines.Add(path+'_-_-_-_-_-_-'); // разграничиваем записи ;)
    BackupRead(h, @wszStreamName, sizeof(sid), temp, FALSE, TRUE, p);

    if temp = 0 then
      break;

    if sid.dwStreamNameSize > 0 then
    begin // если у потока есть имя, то узнаем его
      BackupRead(h, pointer(integer(@wszStreamName) + sizeof(sid)), sid.dwStreamNameSize, temp, FALSE, TRUE, p);
      if temp <> sid.dwStreamNameSize then
        break;
      //для простоты всё выводиться в TMemo
      form1.memo1.Lines.Add(PwideChar(@sid.cStreamName));
    end;

    form1.memo1.Lines.Add('Stream size: '+IntToStr(sid.Size));
    s:='Type of data: ';

    case sid.dwStreamId of // определяем тип потока
      BACKUP_DATA: s := s+'data';
      BACKUP_EA_DATA: s := s+'extended attributes';
      BACKUP_SECURITY_DATA: s := s+'security';
      BACKUP_ALTERNATE_DATA: s := s+'other streams';
      BACKUP_LINK: s := s+'link';
    else
      s := s+'unknown';

    end;
    form1.memo1.Lines.Add(s);

    if sid.Size>0 then

       form1.Memo1.Lines.Add(inttostr(h));
    // я не думаю, что у кого-то есть потоки больше 4ГБ, поэтому второй параметр поиска = 0
    BackupSeek(h, sid.Size, 0, dw1, dw2, p);


  end;

  BackupRead(h, @sid, 0, temp, TRUE, FALSE, p);


  CloseHandle(h);
end;

[jambonstar]

C'est clair pourtant, regarde le commentaire au dessus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    // я не думаю, что у кого-то есть потоки больше 4ГБ, поэтому второй параметр поиска = 0
    BackupSeek(h, sid.Size, 0, dw1, dw2, p);

[gregcat]

oui mais meme traduit par google c'est pas très clair ...

/ / I do not think that anyone has flows more media, and the second parameter

[Laurent Dardenne]

Regarde sur le site de JC Bellamy: http://jc.bellamy.free.fr/fr/stream.html

[jambonstar]

[gregcat]

Regarde sur le site de JC Bellamy: http://jc.bellamy.free.fr/fr/stream.html

Merci mais le problème c'est que chez Bellamy y mets cette implémentation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Delphi function BackupSeek(  // version Bellamy(c)
   hFile: THandle; 
   dwLowBytesToSeek, 
   dwHighBytesToSeek: DWORD;
   var lpdwLowByteSeeked, 
   lpdwHighByteSeeked: DWORD;    //   <---- la c'est du dword
   lpContext: Pointer)
: BOOL; stdcall;

donc lpdwLowByteSeeked et lpdwHighByteSeeked en type DWORD !

et sous delphi sa demande des paramètres de type différents:

sous BDS il demande du type CARDINAL pour lpdwLowByteSeeked et lpdwHighByteSeeked

[Cl@udius]

Salut

Cardinal et DWORD sont tous les deux des 32 bits non signés. Tu ne devrais pas avoir de pb de compilation.

@+ Claudius

[Eric Boisvert]

je souhaiterais faire un outil de lecture et ecriture dans les méta données des fichier NTFS ( flux ntfs). Concernant la lecture de flux, J'ai trouvé la procédure suivante en navigant sur le web mais il y a une ligne qui pose problème.

à l'exécution, j'ai une violation d'accès à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BackupSeek(h, sid.Size, 0, dw1, dw2, p);

Je crois que le problème initiale est résolue.

Pour ma part, je ne porte pas d'autre jugement sur le reste de la
fonctionnalité du code.