ReadFile

[Astat]

Zitat von sx2008:

Delphi-Quellcode:

function FileToString(const AFileName: string): AnsiString;
var
  f: TFileStream;
  l: Integer;
begin
  Result := '';
  f := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  try
    l := f.Size;
    if L > 0 then
    begin
      SetLength(Result, l);
      F.ReadBuffer(Result[1], l);
    end;
  finally
    F.Free;
  end;
end;

Hier wird aber Speicher in der einfachen Grösse der Datei verwendet.
Man sollte die Funktion schnell entsorgen bevor sie im Internet immer weiter kopiert wird.
Hier der Ersatz:

Delphi-Quellcode:

function FileToMap(const AFileName: AnsiString; out cbSize, dwError: DWORD): pointer;
var
  hFile, hMap: DWORD;
begin
  result := nil;
  dwError := NO_ERROR;
  hFile := CreateFile(PAnsiChar(AFileName), GENERIC_READ, 0, nil, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  if hFile  <> INVALID_HANDLE_VALUE then begin
    cbSize := GetFileSize(hFile, nil);
    if cbSize <> INVALID_FILE_SIZE then begin
      hMap := CreateFileMapping(hFile, nil, PAGE_READONLY or SEC_COMMIT, 0,
        cbSize, nil);
      if (hMap <> 0) then begin
        result := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);
        CloseHandle(hMap);
      end else
        dwError := GetLastError;
    end else
      dwError := GetLastError;
    CloseHandle(hFile);
  end else
    dwError := GetLastError;
end;

// EDIT: nach gebrauch mit

Delphi-Quellcode:

 

UnmapViewOfFile(Pointer);

aufräumen.