Discussion :

[bobby-b]

Bonjour à tous,

Voici un bout de code qui provient de l'aide de Delphi 7 sur la fonction FileRead :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
	iFileHandle:Integer;
	iFileLength:Integer;
	iBytesRead:Integer;
	Buffer:PChar;
begin
	iFileHandle :=FileOpen(OpenDialog1.FileName,fmOpenRead);
	iFileLength :=FileSeek(iFileHandle,0,2);
	FileSeek(iFileHandle,0,0);
	Buffer :=PChar(AllocMem(iFileLength +1));
	iBytesRead :=FileRead(iFileHandle,Buffer^,iFileLength);
...

Je n'arrive pas à piger ce que fait exactement cette ligne :

Code :

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

1
2
 
	Buffer :=PChar(AllocMem(iFileLength +1));

Normalement "AllocMem(iFileLength +1)" doit renvoyer un Pointer et un "PChar(Pointer)" je pige pas ce que ça fait.

Quelqu'un peut m'aider ?

Merci,
Bobby-B

[gord's]

ben c'est un cast : ça dit au compilateur de considérer ce pointeur comme un PChar, ie un pointeur vers une chaine de caractères

[Pedro]

Salut

dans le même sujet, est-ce que

Code :

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

1
2
3
4
5
 
var s:string;
begin
  p:=PChar(s);
end;

ajoute tout seul #0 à la fin ou faut-il faire PChar(s+'#10')?

Merci d'avance

[gord's]

non, PChar(s) suffit

au passage, une subtilité de strLPcopy : en dernier param, on lui donne la longueur max à copier, mais il ne tient pas compte du zéro terminal pour ce controle.
donc si T: array[1..n] of char; , il faut donner (n-1) comme max à strLPcopy

[bobby-b]

Merci gord's pour ta réponse.

Est-ce que concrètement il y a besoin de caster le pointer en PChar à cet endroit ou on aurait pu décider d'utiliser un pointer de base ?
Et aussi : pourquoi il fait un "AllocMem(iFileLength +1)" et non pas un "AllocMem(iFileLength)" ?

Merci.

[gord's]

Est-ce que concrètement il y a besoin de caster le pointer en PChar à cet endroit ou on aurait pu décider d'utiliser un pointer de base ?

c'est pas toi qui décide, c'est la procédure fileRead qui a besoin d'un PChar

Et aussi : pourquoi il fait un "AllocMem(iFileLength +1)" et non pas un "AllocMem(iFileLength)" ?

+1 = pour mettre le zéro terminal

[bobby-b]

Ok gord's merci encore.