Discussion :

[Lorenzo77]

salut,


je viens de passer un sacré bout de temps sur la comprehension ainsi que des tests sur la facon de lire un fichier mais je coince pour recuperer le contenu du fichier
c'est enervant .... je precise que je n'ai aucune erreur lors de la compilation.


j'utilise un compo TOpenDialog pour recuperer le nom d'un fichier, ensuite je compte inserer/afficher le contenu du fichier dans un compo TRichEdit

txSource -> le compo TRichEdit

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
 
procedure TForm1.Button1Click(Sender: TObject);
var caPtFichier:Cardinal;
var caTailleFichier:Cardinal;
var buffer:String;// c'est bon ca ?
begin
	if OpenDialog1.Execute()then
		begin
		caPtFichier := fileOpen(OpenDialog1.FileName, fmOpenRead);
		caTailleFichier := fileRead(caPtFichier,buffer,50000);
		showMessage(IntToStr(caTailleFichier));
		showMessage(buffer);
		txSource.Text := 'xxx '+buffer+' xxx';
		FileClose(caPtFichier);
		end
	else
		begin
		txSource.Text := '';// que faire d'autre ?
		end;
end;

rien a faire, la variable buffer reste deseperement vide, evidemment l'aide de delphi est tellement bien faite qu'il n'y a pas la moindre infos la dessus
j'ai aussi essayé les routines E/S mais la c'est encore pire



quelqu'un a une idée sur la facon de recuperer le contenue du fichier avec fileRead et la variable 'buffer' ?

merci

[LadyWasky]

Cherches dans l'aide Delphi "LoadFromFile" et tu trouveras

[Lorenzo77]

si c'etait si simple, je n'aurais peut etre pas posé la question ...

en plus j'ai deja cherché cette methode mais elle est lié a des composants ou classe qui n'ont rien a voir avec l'utilisation que je recherche !
c'est dans un TRichEdit que j'essaye d'inserer le contenue de la variable buffer.


je repose la question :
quelqu'un a une idée sur la facon de recuperer le contenue d'un fichier avec fileRead et de l'utilisation qu'il faut faire de la variable 'buffer' (2eme argument de fileRead) ?

merci


--------------------------
c'est bon, je suis repassé par textFile et sa fonctionne

pour ceux que ca interesse :

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
procedure TForm1.Button1Click(Sender: TObject);
var F:textfile;
var stTxt:String;
begin
	if OpenDialog1.Execute()then
		begin
			txSource.Text := '';
			// ici je vais devoir ouvrir le fichier, lire le contenue et l'assigner !
			assignfile(F,OpenDialog1.FileName);
			reset(F);
			while not eof(F) do
			begin
				readln(F,stTxt);
				txSource.Lines.Add(stTxt);
			end;
			closefile(F);
			showmessage(inttostr(txSource.Lines.Count));
		end
	else
		begin
			txSource.Text := '';
			// que faire d'autre ?
		end
end;

par contre l'insertion d'un fichier moyen (1Mo) prend deja un temps enorme ...

[neilbgr]

En pensant Objet, il y a plus simple :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    begin
      if Execute then
        txSource.Lines.LoadFromFile(FileName);
    end;
end;

Penses au tag Résolu si c'est le cas

[evarisnea]

voilà un exemple issu de l'aide delphi, et qui marche :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    try
      iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      Buffer := PChar(AllocMem(iFileLength + 1));
      iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
 
      FileClose(iFileHandle);
      txSource.Text := Buffer;//ligne ajoutée
      {
      for i := 0 to iBytesRead-1 do
      begin
        StringGrid1.RowCount := StringGrid1.RowCount + 1;
        StringGrid1.Cells[1,i+1] := Buffer[i];
        StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
      end;
      }
    finally
      FreeMem(Buffer);
    end;
  end;

[LadyWasky]

si c'etait si simple, je n'aurais peut etre pas posé la question ...

Excuses moi de ne pas avoir été plus explicite...

en plus j'ai deja cherché cette methode mais elle est lié a des composants ou classe qui n'ont rien a voir avec l'utilisation que je recherche !
c'est dans un TRichEdit que j'essaye d'inserer le contenue de la variable buffer.

TRichEdit.Lines à bien une méthode LoadFromFile...
--> voir le message de neilbgr qui donne la solution et qui ne me parait pas si compliqué

[Philippe Gormand]

Waskol a écrit :

Excuses moi de ne pas avoir été plus explicite...

Je pense que tu n'as pas à t"excuser. Ton indication était suffisemment clair pour mettre Lorenzo77 sur la voie.


Lorenzo77 a écrit :

rien a faire, la variable buffer reste deseperement vide, evidemment l'aide de delphi est tellement bien faite qu'il n'y a pas la moindre infos la dessus .

L'aide de DELPHI est la meilleure documentation que l'on puisse trouver. Il y a tout dedans ou presque à ce niveau de besoin.

si c'etait si simple, je n'aurais peut etre pas posé la question ...

Tu n'as surement pas bien cherché. Il y a aussi les tutoriaux et d'innombrables exemples disponibles sur le WEB.

Compulses encore l'aide de DELPHI sur le comosant TRichEdit et tu verra que c'est très simple.

A+