ReadFile & String ?!

Salut a tous, j'aimerai bien utilise l'API ReadFile pour mettre le contenu d'un fichier dans un string, mais ... j'y arrive pas ^^

Code:

---

1 2	ReadFile(InputFile, IString, 1024, bytes, nil);

---

[bytes et inputfile: dword]
>> IString est vide si on fait showmessage(IString);, ca plante gentillement

Code:

---

1 2	ReadFile(InputFile, IString[1], 1024, bytes, nil);

---

>> Ca plante pas mais ca fonctionne pas :)

QQ1 a une idee ?
(le fichier est un exe pr info ;))
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

As tu vérifié que Bytes (change de nom pas top pour une variable, c'est trop proche d'un mot réservé) est différent de 0 ?

Code:

---

1 2 3 4 5

if Bytes > 0 then Shomessage(IString) else Showmessage('c''est vide !!');

---

Oui... non, mais y a qqch a lire, c'est ca le probleme, c'est un exe, y a pas bcp exe qui fait moins de 1024bytes :p

Le truc que je me demande c'est quesque ca retourne ?

Citation:

---

BOOL ReadFile(

HANDLE hFile, // handle of file to read
LPVOID lpBuffer, // address of buffer that receives data
DWORD nNumberOfBytesToRead, // number of bytes to read
LPDWORD lpNumberOfBytesRead, // address of number of bytes read
LPOVERLAPPED lpOverlapped // address of structure for data
);

---

Essai avec les Stream, sinon ...
Comme TFileStram

Non, cf mon post "Probleme de Stub"
Il faut que je load un exe dans un string, c'est tout :)

essaye du genre :

Code:

---

1 2 3 4

SetLength(IString, FileSize); if ReadFile(FileHandle, @IString[1], FileSize, OctetsLus, nil) and (OctetsLus=FileSize) then ShowMessge('Ca devrait être bon...');

---

j'ai deja essayer avec @IString[1], il me met un message d'erreur lors de la compilation.

Voila, pr precision, avec le @IString[1]:
[Error] Unit1.pas(151): Constant object cannot be passed as var parameter

PS: Avec un Array of Byte, ca fonctionne simpelment en mettant IArray ... je comprends pas :/ ... un string, c'ets jms qu'un Array of char non ?


PPS: Setlength manquant :/ > pb resolu ;)