Discussion :

[Lorenzo77]

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 :

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

[sjrd]

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

[neilbgr]

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

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

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

[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

[tourlourou]

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

[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

merci

j'ai l'impression de nager en pleine 4eme dimension
je deteste ne pas comprendre quelque chose

[anapurna]

salut,

la solution ta ete donnée plus haut

Code :

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

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 )

[edam]

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

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

[anapurna]

salut

parce que le string reserve la position zero

@+ phil

[edam]

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

[anapurna]

salut

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

@+ phil

[edam]

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 :

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

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

[Lorenzo77]

merci les gars pour ces infos

j'aurais jamais trouvé ce systeme tout seul !