Discussion :

[gandf]

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 :

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
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.

[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 :

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

char BufferTemp[512*1024];

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

Code :

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

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

[gandf]

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 :

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
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?.

[totoche76]

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

Code :

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

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 :

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

char BufferTemp[512*1024];

Ou bien dans ton 2ème exemple, faire

Code :

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

Buffer->Size = 512 * 1024;

Puis

Code :

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

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

[gandf]

MERCI
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 :

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
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;