FileWrite, FileRead

Version imprimable

FileWrite, FileRead

j'arrive pas a utilisé c fonction :
voilas mon code :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
procedure TForm1.SauvegardeInfoDossier();
var
   FileHandle: Integer;
   Indice: Integer;
   iBytesRead: Integer;
   StringLen: Integer;
   StringVal: String;
   Bmp: TBitMap;
begin
   if iNbFichier < 1 then Exit;
 
   FileHandle := FileCreate('Albbrwse.abf');
   StringVal := 'Commentaire.';
   StringLen := Length(StringVal);
   iBytesRead := FileWrite(FileHandle, StringLen, SizeOf(StringLen));
   iBytesRead := FileWrite(FileHandle, StringVal, StringLen);
 
   iBytesRead := FileWrite(FileHandle, iNbFichier, SizeOf(iNbFichier));
   for Indice := 0 to sListeFichier.Count - 1 do
   begin
      StringVal := sListeFichier[Indice];
      StringLen := Length(StringVal);
      iBytesRead := FileWrite(FileHandle, StringLen, SizeOf(StringLen));
      iBytesRead := FileWrite(FileHandle, StringVal, StringLen);
 
//      Bmp := ListeIcones[Indice];
//      FileWrite(FileHandle, Bmp, SizeOf(Bmp));
   end;
   FileClose(FileHandle);
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  Indice, i: Integer;
  StringLen: Integer;
  StringVal: String;
begin
    try
      iFileHandle := FileOpen('Albbrwse.abf', fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
 
      iBytesRead := FileRead(iFileHandle, StringLen, SizeOf(StringLen));
      Buffer := PChar(AllocMem(StringLen + 1));
      iBytesRead := FileRead(iFileHandle, Buffer, StringLen);
 
      iBytesRead := FileRead(iFileHandle, iNbFichier, SizeOf(iNbFichier));
      sListeFichier.Clear;
      for Indice := 0 to iNbFichier - 1 do
      begin
         iBytesRead := FileRead(iFileHandle, StringLen, SizeOf(StringLen));
         Buffer := PChar(AllocMem(StringLen + 1));
         iBytesRead := FileRead(iFileHandle, Buffer, StringLen);
         sListeFichier.Add(Buffer);
      end;
 
    finally
      FileClose(iFileHandle);
      FreeMem(Buffer);
    end;
end;

le fichier est bient créé mais lors de la lecture ca fonctionne pas : notament la variable "iFileHandle" change de valeur sur un FileRead ...
d'ou gros pb...

autre chose j'aimerais sauvegarder aussi plusieur image... savez vous comment faire ?

13/01/2004, 12h44
Pierre Castelain
Bug classique, tu ne sauvegarde pas le contenu de la chaine StringVal, mais son pointeur et les octets qui suivent. Change ton code :
Code:

1 2 iBytesRead := FileWrite(FileHandle, StringVal[0], StringLen);
13/01/2004, 15h50
ryo ohki

ok merci

voilas ce que j'ai changer (Pour l'ecriture):

Code:

iBytesRead := FileWrite(FileHandle, StringVal[1], StringLen);

et (Pour la lecture):

Code:

iBytesRead := FileRead(iFileHandle, Buffer[0], StringLen);

je redonne mon autre question :
j'aimerais sauvegarder aussi plusieur image (Object TBitMap) dans le meme fichier... savez vous comment faire ?
13/01/2004, 16h07
Nicolas.C

J'utiliserai pour çà la fonction SaveToStream avec un TFileStream.
Il faut juste que tu ajoutes avant les données de chaque fichier un entête avec des infos sur le fichier qui suit, pour savoir où commence le deuxième.

Bon voilà pour l’écriture et ça marche

Code:

1
2
3
4
5
6
7
8
9
10
   for Indice := 0 to sListeFichier.Count - 1 do
   begin
      StringVal := sListeFichier[Indice];
      StringLen := Length(StringVal);
      iBytesRead := FileWrite(FileHandle, StringLen, SizeOf(StringLen));
      iBytesRead := FileWrite(FileHandle, StringVal[1], StringLen);
 
      Jpg.Assign(ListeIcones[Indice]);
      Jpg.SaveToStream(FileS);
   end;

par contre pour la lecture seul la première image est charger correctement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
      for Indice := 0 to iNbFichier - 1 do
      begin
         iBytesRead := FileRead(iFileHandle, StringLen, SizeOf(StringLen));
         Buffer := PChar(AllocMem(StringLen + 1));
         iBytesRead := FileRead(iFileHandle, Buffer[0], StringLen);
         if iBytesRead = -1 then Exit;
         sListeFichier.Add(Buffer);
 
         Jpg.LoadFromStream(FileS);
         ListeIcones[Indice].Width  := Round(Jpg.Width);
         ListeIcones[Indice].Height := Round(Jpg.Height);
         ListeIcones[Indice].Canvas.StretchDraw(ListeIcones[Indice].Canvas.ClipRect,Jpg);
   end;

je pense que le curseur sur le fichier ne s’est pas déplacer après l’image

13/01/2004, 18h02
Nicolas.C
Code:

1 2 Jpg.LoadFromStream(FileS);
mais rien qui charge le TFileStream FileS ?

désolé :

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
45
46
47
procedure TForm1.Button3Click(Sender: TObject);
var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  Indice, i: Integer;
  StringLen: Integer;
  StringVal: String;
   Jpg :TJpegImage;
   FileS: TFileStream;
begin
    try
      iFileHandle := FileOpen('Albbrwse.abf', fmOpenRead);
      FileS := TFileStream.Create(iFileHandle);
      Jpg := TJpegImage.Create;
 
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
 
      iBytesRead := FileRead(iFileHandle, StringLen, SizeOf(StringLen));
      Buffer := PChar(AllocMem(StringLen + 1));
      iBytesRead := FileRead(iFileHandle, Buffer[0], StringLen);
 
      iBytesRead := FileRead(iFileHandle, iNbFichier, SizeOf(iNbFichier));
      sListeFichier.Clear;
 
      for Indice := 0 to iNbFichier - 1 do 
      begin 
         iBytesRead := FileRead(iFileHandle, StringLen, SizeOf(StringLen)); 
         Buffer := PChar(AllocMem(StringLen + 1)); 
         iBytesRead := FileRead(iFileHandle, Buffer[0], StringLen); 
         if iBytesRead = -1 then Exit; 
         sListeFichier.Add(Buffer); 
 
         Jpg.LoadFromStream(FileS); 
         ListeIcones[Indice].Width  := Round(Jpg.Width); 
         ListeIcones[Indice].Height := Round(Jpg.Height); 
         ListeIcones[Indice].Canvas.StretchDraw(ListeIcones[Indice].Canvas.ClipRect,Jpg); 
   end; 
 
    finally
      Jpg.Free;
      FileClose(iFileHandle);
      FreeMem(Buffer);
    end;
end;

meme pricipe en lecture

14/01/2004, 15h22
ryo ohki

bon j'ai trouver ...

grace as FileSeek et pas mal de bidouille j'ai optenu le fonctionnement que je voulais :
enregistrer dans un meme fichier des fichier jpg leur non d'autre valeur.

pour l'ecriture
j'ecrie un entier et je retient la valeur de FileSeek
puis j'ecrie mon jpg avec file seek je calcul la taille prise par mon jpg
tjs avec FileSeek je revient en arrière pour ecrire mon entier qui est la taille de mon jpg.

et pour la lecture :
dès que j'ai lu un jpg dans mon fichier je repositionne le curseur fichier a la fin du jpg