Comment puis-je ouvrir des fichiers binaires (exe) dans "Delphi", comme Visual basic?

Question

dans Visual Basic je peux ouvrir un fichier binaire (exe) ci-dessous ainsi:

Strx$ = Space(FileLen(FileName)) 
Open FileName For Binary As #1 
    Get #1, , Strx$ 
Close 

de cette façon que je peux lire tous les caractères de fichiers binaires et lire le contenu de fichiers comme ce format:

alt text http://up.iranblog.com/Files/4b97136a8452414b97b1.png et la question est comment puis-je ouvrir un fichier binaire (exe) dans Delphi avec un format de chaîne (comme image) et non 0,1 (binaire) format?

Merci!

Answer 1

Les fichiers EXE contiennent des caractères NULL (# 0) incorporés. Vous pouvez rencontrer des problèmes lors de l'utilisation de chaînes, car la valeur NULL se trouve généralement à la fin de la chaîne. Certaines routines cesseront de fonctionner avec une chaîne une fois que la valeur NULL est rencontrée. Ayant dit que ce qui suit obtiendrait le contenu d'un fichier dans une chaîne de caractères.

function GetFileIntoString(FileName : String) : String; 
var 
SS : TStringStream; 
begin 
    SS := TStringStream.Create(''); 
    try 
    SS.LoadFromFile(FileName); 
    result := SS.DataString; 
    finally 
    SS.Free; 
    end; 
end; 

Answer 2

Voici quelques bonnes ressources avec des exemples.

• Create your own Database using Delphi's "File Of" Typed Files : Understanding Typed Files.

• Acessing Files With Unknown Structure: Direct Access to Files Regardless of Type and Structuring.