Delphi XE2의 비동기 ReadFile

Question

작은 PE 파일 분석기를 작성 중이므로 PE 파일의 내용을 읽어야합니다. - 그것은 기적으로 발생

function TMainForm.GetPEData(var filename: string) : boolean; 
var 
    hFile: DWORD; 
    IDH:  TImageDosHeader; 
    INH:  TImageNtHeaders; 
    ISH:  TImageSectionHeader; 
    dwRead: DWORD; 
    szBuff: array[0..7] of Char; 
    i:  WORD; 
    PE: TPEFile; 
begin 
    Result := False; 
    PE := TPeFile.Create; 
    if PE.LoadFromFile (filename) then 
    Form2.edEntryPoint.Text := IntToHex(PE.RvaToFileOffset(PE.AddressOfEntryPoint), 8); 
    SplashScreen.sLabel1.Caption := 'PE File Loaded'; 
    hFile := CreateFile(PChar(filename), GENERIC_READ, 
         FILE_SHARE_WRITE, nil, 
         OPEN_EXISTING, 0, 0); 
    if hFile <> INVALID_HANDLE_VALUE then 
    begin 
    SetFilePointer(hFile, 0, nil, FILE_BEGIN); 
    SplashScreen.sLabel1.Caption := 'Reading DOS File Headers...'; 
    ReadFile(hFile, IDH, 64, dwRead, nil); 
    if IDH.e_magic = IMAGE_DOS_SIGNATURE then 
    begin 
     SetFilePointer(hFile, IDH._lfanew, nil, FILE_BEGIN); 
     SplashScreen.sLabel1.Caption := 'Reading NT File Headers...'; 
     //Here is where the UI freezes while the file is read... 
     ReadFile(hFile, INH, 248, dwRead, nil); 
     if INH.Signature = IMAGE_NT_SIGNATURE then 
     begin 
     Form2.edImageBase.Text := IntToHex(INH.OptionalHeader.ImageBase, 8); 
     Form2.edSizeOfImage.Text := IntToHex(INH.OptionalHeader.SizeOfImage, 8); 
     Form2.edLinkerVersion.Text := IntToStr(INH.OptionalHeader.MajorLinkerVersion) + '.' + 
       IntToStr(INH.OptionalHeader.MinorLinkerVersion); 
     Form2.edFileAlignment.Text := IntToHex(INH.OptionalHeader.FileAlignment, 8); 
     Form2.edSectionAlignment.Text := IntToHex(INH.OptionalHeader.SectionAlignment, 8); 
     Form2.edSubSystem.Text := IntToHex(INH.OptionalHeader.Subsystem, 4); 
     Form2.edEPFilestamp.Text := IntToStr(INH.FileHeader.TimeDateStamp); 
     Form2.edFileType.Text := GetPEFileType(PE.ImageNtHeaders.Signature); 

     for i := 0 to INH.FileHeader.NumberOfSections - 1 do 
     begin 
      SetFilePointer(hFile, IDH._lfanew + 248 + i * 40, nil, FILE_BEGIN); 
      ReadFile(hFile, ISH, 40, dwRead, nil); 
      CopyMemory(@szBuff[0], @ISH.Name[0], 8); 

      with Form2.sListView1.Items.Add do 
      begin 
      Caption := ShortString(szBuff); 
      SubItems.Add(IntToHex(ISH.VirtualAddress, 8)); 
      SubItems.Add(IntToHex(ISH.Misc.VirtualSize, 8)); 
      SubItems.Add(IntToHex(ISH.PointerToRawData, 8)); 
      SubItems.Add(IntToHex(ISH.SizeOfRawData, 8)); 
      SubItems.Add(IntToHex(ISH.Characteristics, 8)); 
      end; 
     end; 
     end; 
    end; 
    CloseHandle(hFile); 
    Result := True; 
    end; 
end; 

나쁜 것은 파일의 크기에 따라, 나는 ReadFile 종종 지연 것을 눈치이다 : 아래 그림과 같이 나는 ReadFile 기능을 통해이 일을하고 있습니다. 그동안 UI는 얼어 붙어서 사용자에게 해를 끼치 지 않습니다. 사용자를 해고하려는 유혹을받을 것입니다. 스레딩을 고려해 봤지만 비동기 모드에서 ReadFile을 사용할 수있는 방법이 있는지 알고 싶습니다. 존재하지 않는다면 코드 내에서 수정해야 할 부분이 많을지라도 스레딩으로 넘어갈 것입니다.

미리 감사드립니다.

Answer 1

이 경우 필자는 항상 파일 전체를 메모리로 읽어 들인 반면, 조작이 쉬운 TFileStream 클래스도 사용합니다.

전체 파일을 메모리에 저장하는 것이 더 간단하며 PE 파일은 일반적으로 작습니다.

type 
    TSections = array [0..0] of TImageSectionHeader; 
    PSections = ^TSections; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    FS : TFileStream; 
    fisier : PImageDosHeader; 
    INH : PImageNtHeaders; 
    ISH : PSections; 
    i : Word; 
begin 
    FS := TFileStream.Create('fisierul_tau.exe',fmOpenRead); 
    GetMem(fisier,FS.size); //Aloci memorie pentru fisier 
    FS.Read(fisier^,FS.Size); // Il citesti; 
    FS.Free; 
    INH := PImageNtHeaders(DWORD(fisier) + DWORD(fisier^._lfanew)); 
    ISH := PSections(DWORD(INH) + SizeOf(TImageNtHeaders)); 
    for i := 0 to INH^.FileHeader.NumberOfSections - 1 do 
    begin 
     ShowMessage(PAnsiChar(@ISH[i].Name[0])); 
    end; 
end; 

Answer 2

ReadFile 함수는 파일에서 데이터를 읽고 파일 포인터가 나타내는 위치에서 시작합니다. 동기 및 비동기 작업 모두에이 함수 을 사용할 수 있습니다.

ReadFile을 비동기 적으로 사용할 수 있지만 UI에 따라 이것은 최상의 솔루션이 아닐 수 있습니다. 사용자가 PE 파일로드를 기다리는 동안 아무 것도하지 않겠습니까?

사용자가 기다리지 만 프로그램이 정지되지 않았다고 확신하려면 진행률 막대를 추가하거나 SplashScreen을 업데이트하면됩니다.

for i := 0 to INH.FileHeader.NumberOfSections - 1 do 
begin 
    SplashScreen.sLabel1.Caption := 'Reading section ' + IntToStr(i) + ' of ' + IntToStr(INH.FileHeader.NumberOfSections); 
    SplashScreen.sLabel1.Update; // see Ken Whites comment 
    // Application.ProcessMessages; 
    ... 
end