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

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