Lecture dans un fichier ne donnant rien

Version imprimable

Bonjour,

J'utilise un TFileStream pour lire dans un fichier et la propriété size me donne la bonne taille de fichier. J'initialise la position du curseur de lecture au début du fichier.

Et pourtant, je n'arrive pas à le lire.
Code:

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 TFileStream *Fichier; try { Fichier = new TFileStream(OpenDialog1->FileName, fmOpenRead || fmShareDenyWrite); Label1->Caption = IntToStr(Fichier->Size); } catch ( ... ) { Sysutils::Beep(); MessageDlg("Impossible d'ouvrir le fichier. Action annulée.", mtError, TMsgDlgButtons() << mbOK, 0); TCPC1->Disconnect(); Button2->Enabled = true; Button3->Enabled = false; delete Fichier; return; } TMemoryStream *Buffer = new TMemoryStream(); void *BufferTemp; Buffer->Clear(); Label4->Caption = IntToStr(I); Fichier->Seek(0, soFromBeginning); OctetTransferes = Fichier->Read(BufferTemp, 512 * 1024); Label3->Caption = IntToStr(OctetTransferes); Buffer->Read(BufferTemp, OctetTransferes); Label2->Caption = IntToStr(Buffer->Size);
Les label ne sont la qe pour m'indiquer les valeurs à chaque étape et le buffer temp a été ajouter pour vérifier si le problème ne venait pas du memorystream.

Donc, la taille du fichier est toujours bonne (inférieur à 512ko) mais OctetTransferes est toujours égal à 0.

Une idée pour résoudre ce problème simplement et puis-je directement mettre Buffer à la place de BufferTemp pour la lecture du fichier?

Merci.

17/10/2005, 16h38
totoche76
Hello

Le problème, c'est que ton BufferTemp n'existe pas vraiment... A la place du void *BufferTemp, Il faudrait plutôt quelque chose du genre

Code:

char BufferTemp[512*1024];

Mais sinon, tu peux regarder du côté de TMemoryStream::LoadFromFile :
Code:

1 2 TMemoryStream *Buffer = new TMemoryStream(); Buffer->LoadFromStream(OpenDialog1->FileName);

J'ai compris d'après l'aide que le TMemoryStream stocke tout en mémoire. Le fichier en question peut faire 20 octets comme il peut faire 1,5Go. J'essaie donc d'ouvrir le fichier avec un FileStream et je copie un bout dans un buffer (le TMemoryStream) et je le traite puis je passe au suivant. La taille de ce buffer est réglable. Même avec le TMemoryStream, rien n'est lu (0 octet).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 TFileStream *Fichier; try { Fichier = new TFileStream(OpenDialog1->FileName, fmOpenRead || fmShareDenyWrite); Label1->Caption = IntToStr(Fichier->Size); } catch ( ... ) { Sysutils::Beep(); MessageDlg("Impossible d'ouvrir le fichier. Action annulée.", mtError, TMsgDlgButtons() << mbOK, 0); TCPC1->Disconnect(); Button2->Enabled = true; Button3->Enabled = false; delete Fichier; return; } TMemoryStream *Buffer = new TMemoryStream(); Buffer->Clear(); Label4->Caption = IntToStr(I); Fichier->Seek(0, soFromBeginning); OctetTransferes = Fichier->Read(Buffer, 512 * 1024); Label3->Caption = IntToStr(OctetTransferes); Label2->Caption = IntToStr(Buffer->Size);
Peut-on utiliser un tableau de char pour stocker des données binaires?.

17/10/2005, 18h06
totoche76

OK, en y regardant à 2 fois, l'erreur vient du new TFileStream: il faut faire ceci :

Code:

Fichier = new TFileStream(OpenDialog1->FileName, fmOpenRead | fmShareDenyWrite);

C'est |, pas || ....

Sinon, c'était pas si mal au départ. Faut juste allouer un buffer pour la lecture.

Code:

char BufferTemp[512*1024];

Ou bien dans ton 2ème exemple, faire

Code:

Buffer->Size = 512 * 1024;

Puis

Code:

OctetTransferes = Fichier->Read(Buffer->Memory, 512 * 1024);

MERCI :D
Ca fonctionne. Ce n'était que cette double bar (test OU au lieu de l'opération ou) qui bloque le truc. J'ai testé avec ceci et ca fonctionne :

Code:

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
if (OpenDialog1->Execute())
   {
   if (FileExists(OpenDialog1->FileName) == false)
      {
      Sysutils::Beep();
      MessageDlg("Impossible d'ouvrir le fichier. Opération annulée.", mtWarning, TMsgDlgButtons() << mbOK, 0);
      return;
      }
   }
else {
     return;
     }
 
TFileStream *Fichier;
try {
    Fichier = new TFileStream(OpenDialog1->FileName, fmOpenRead | fmShareDenyWrite);
    }
catch ( ... )
      {
      Sysutils::Beep();
      MessageDlg("Impossible d'ouvrir le fichier. Action annulée.", mtError, TMsgDlgButtons() << mbOK, 0);
      delete Fichier;
      return;
      }
if (!Fichier)
   {
   Sysutils::Beep();
   MessageDlg("Impossible d'ouvrir le fichier. Action annulée.", mtError, TMsgDlgButtons() << mbOK, 0);
   delete Fichier;
   return;
   }
TMemoryStream *Buffer = new TMemoryStream();
char BufferTemp[512*1024];
int OctetTransferes;
Buffer->Clear();
Buffer->Size = 512*1024;
Fichier->Seek(0 * (512 * 1024), soFromBeginning);
OctetTransferes = Fichier->Read(BufferTemp, 512 * 1024);
Label3->Caption = IntToStr(OctetTransferes);
Buffer->ReadBuffer(BufferTemp, 512 * 1024);
Label2->Caption = IntToStr(Buffer->Size);
Label1->Caption = IntToStr(Fichier->Size);
delete Buffer;
delete Fichier;