TFileStream :assigner une variable avec le contenu du fichier

Version imprimable

bonjour a tous,

j'essaye avec une bete boite de dialogue et un bouton de transferer le contenu d'un fichier dans une variable mais j'ai du mal a comprendre l'utilisation du 1er argument de la méthode : TFileStream.Read(varBuffer,Count)
l'aide ne decrit pas la maniere de recuperer le contenu du fichier avec varBuffer ni de l'utiliser d'ailleurs ...
j'ai essayé de déclarer ma variable buffer de type String mais j'avais desplantages avec les gros fichiers donc je suis passé en AnsiString ... la j'ai plus de plantage mais la variable est toujours vide et la taille lu est égal a 0 :?

quelqu'un sait comment recuperer le contenu de ce fichier et l'assigner a une variable en utilisant ce systeme en une fois et sans boucle ?
je joins le code.

merci :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TForm1.btOuvrirClick(Sender: TObject); var tfFile:TFileStream; var inTaille:integer; var buffer:string; begin if OpenDialog1.Execute() then begin tfFile := TFileStream.create(OpenDialog1.FileName, fmOpenRead, fmShareDenyWrite); tfFile.Seek(soFromBeginning, 0); inTaille := tfFile.read(buffer, tfFile.Size); ShowMessage('taille lu : '+IntToStr(inTaille)+#10#13+'taille buffer : '+IntToStr(length(buffer))); tfFile.Free(); end else begin Memo1.Text := ''; end end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.btOuvrirClick(Sender: TObject);
var tfFile:TFileStream;
var inTaille:integer;
var buffer:string;
begin
    if OpenDialog1.Execute() then
        begin
            tfFile := TFileStream.create(OpenDialog1.FileName, fmOpenRead, fmShareDenyWrite);
            tfFile.Seek(soFromBeginning, 0);
            SetLength(buffer, tfFile.Size);
            inTaille := tfFile.read(buffer[1], tfFile.Size);
            ShowMessage('taille lu : '+IntToStr(inTaille)+#10#13+'taille buffer : '+IntToStr(length(buffer)));
            tfFile.Free();
        end
    else
        begin
            Memo1.Text := '';
        end
end;

sjrd, c'est bien ce qu'il manquait.

Voilà un extrait de la bibliothèque Jedi JCL :

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
function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
  {$IFDEF CLR}
  Buf: array of Byte;
  {$ENDIF CLR}
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
    {$IFDEF CLR}
    begin
      SetLength(Buf, Len);
      fs.ReadBuffer(Buf, Len);
      Result := Buf;
    end;
    {$ELSE}
      fs.ReadBuffer(Result[1], Len);
    {$ENDIF CLR}
  finally
    fs.Free;
  end;
end;
 
procedure StringToFile(const FileName: string; const Contents: AnsiString);
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmCreate);
  try
    Len := Length(Contents);
    if Len > 0 then
    {$IFDEF CLR}
      fs.WriteBuffer(BytesOf(Contents), Len);
    {$ELSE}
      fs.WriteBuffer(Contents[1], Len);
    {$ENDIF CLR}
  finally
    fs.Free;
  end;
end;

29/05/2006, 15h57
Lorenzo77

ca ne solutionne pas le probleme, la var buffer reste toujours vide et la taille lu est egal a 0 :(
j'essaye d'assigner le contenu de buffer a un champ memo pour la verif :
Memo1.Text := buffer;
mais rien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 procedure TForm1.btOuvrirClick(Sender: TObject);
var tfFile:TFileStream;
var inTaille:integer;
var buffer:string;
begin
    if OpenDialog1.Execute() then
        begin
            tfFile := TFileStream.create(OpenDialog1.FileName, fmOpenRead, fmShareDenyWrite);
            tfFile.Seek(soFromBeginning, 0);
            SetLength(buffer, tfFile.Size);
            inTaille := tfFile.read(@buffer[1], tfFile.Size);
            ShowMessage('taille lu : '+IntToStr(inTaille)+#10#13+'taille buffer : '+IntToStr(length(buffer)));
            tfFile.Free();
        end
    else
        begin
            Memo1.Text := '';
        end
end;

29/05/2006, 18h21
Lorenzo77

maintenant j'ai une erreur :(
[Erreur] Unit1.pas(78): Un objet constante ne peut être passé comme paramètre Var
ca ne peut pas etre aussi compliqué de faire une simple assignation ?

-----
j'ai testé divers soluces et en essayant ceci :
inTaille := tfFile.read(buffer[1], tfFile.Size);
ca fonctionne 8O

merci :)

j'ai l'impression de nager en pleine 4eme dimension :?
je deteste ne pas comprendre quelque chose
29/05/2006, 18h47
anapurna
salut,

la solution ta ete donnée plus haut
Code:

1 2 3 SetLength(buffer, tfFile.Size); tfFile.ReadBuffer(buffer[1], tfFile.Size);
@+ phil

PS: apres relecture si c'est un string il faut ecrire a partir de la position [1]
la position [0] etant reserver pour indiquer la longueur de la chaine (du moins a l'origine du pascal )

Citation:

Envoyé par tourlourou

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 procedure TForm1.btOuvrirClick(Sender: TObject);
var tfFile:TFileStream;
var inTaille:integer;
var buffer:string;
begin
    if OpenDialog1.Execute() then
        begin
            tfFile := TFileStream.create(OpenDialog1.FileName, fmOpenRead, fmShareDenyWrite);
            tfFile.Seek(soFromBeginning, 0);
            SetLength(buffer, tfFile.Size);
            inTaille := tfFile.read(buffer[1], tfFile.Size);//sans @
            ShowMessage('taille lu : '+IntToStr(inTaille)+#10#13+'taille buffer : '+IntToStr(length(buffer)));
            tfFile.Free();
        end
    else
        begin
            Memo1.Text := '';
        end
end;

30/05/2006, 00h58
Lorenzo77

edam :
tourlourou a mis un @ devant le nom de la var ce qui faisait planter !
c'est en testant sans le @ que j'ai vu que ca fonctionnait

la question maintenant c'est pourquoi faire ca ?
30/05/2006, 06h37
anapurna

salut

parce que le string reserve la position zero

@+ phil
30/05/2006, 15h02
edam

Citation:

Envoyé par anapurna

salut

parce que le string reserve la position zero

@+ phil

pas exactement

deux type de string existe sous delphi
1-string length (4Goct max) delphi resérve 4 oct avant le string pour contenir la taill a (peut prés s[-3] à s[0])
en plus pour réserve de la memoir en doit passé par setlength
2-string pascal (<256) s[0] contient la taill , ici delphi réserve par defaut 256 quelque soit la tail exact du string dans s
30/05/2006, 15h10
anapurna

salut

merci pour ce complement d'infos
mais le resultat est le meme la position zero du string est reservé

@+ phil

blockread prend comme 2 paramétre l'adresse du variable passé
alors s[1] c'est l'adresse du début de string et @s[1] c'est l'adresse de l'adresse du string
pour le comprendre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; f:file; p:Pointer; begin setlength(s,200); p:=@s[1]; blockread(f,s[1],200,i); showmessage(inttostr(integer(p))); end;
ce code pas exucuté complétement
fait le point d'arrét à p:@s[1] et voir l'assembleur résultant dans le fenetre CPU; tu peut comprendre que p contient le même adresse passé en 2éme pramétre de Blockread

30/05/2006, 16h00
Lorenzo77

merci les gars pour ces infos :D

j'aurais jamais trouvé ce systeme tout seul !