Discussion :

[Booster2ooo]

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 :

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

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

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

Code :

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

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]

[Rayek]

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 :

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

1
2
3
4
5
 
if Bytes > 0 then
  Shomessage(IString)
else
  Showmessage('c''est vide !!');

[Booster2ooo]

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 ?

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

[Lung]

Essai avec les Stream, sinon ...
Comme TFileStram

[Booster2ooo]

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

[tourlourou]

essaye du genre :

Code :

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

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