| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Большой текстовый файл [D5]

ИМХО ©   (2004-07-20 16:24:00) 

Имеется большой текстовый файл (больше 1 Гб). Как работать с ним? Если загружать в TStringList, то не хватит никакой памяти.

---

Fay   (2004-07-20 18:00:00) [1]

Знакомый код 8)

---

LM2   (2004-07-20 16:36:00) [2]

TFileStream

---

ЮрийК   (2004-07-20 16:36:00) [3]

Приводили уже как-то:

unit MappedFile;

interface

uses
Windows, SysUtils;

type
TMappedFile = class
private
  FHandle : DWORD;
  FMapping : DWORD;
  FSize : DWORD;
  FView : PChar;
  FActive : Boolean;
  FName : string;
  procedure SetSize(const Value : DWORD);
  procedure SetName(const Value : string);
  procedure SetActive(const Value : Boolean);
  function GetActive : Boolean;
public
  constructor Create;
  destructor Destroy; override;
  procedure Close;
  procedure Open;
  property Size : DWORD read FSize write SetSize;
  property Data : PChar read FView;
  property Active : Boolean read GetActive write SetActive;
  property Name : string read FName write SetName;
end;

implementation

constructor TMappedFile.Create;
begin
FHandle := INVALID_HANDLE_VALUE;
FName := '';
end;

destructor TMappedFile.Destroy;
begin
Close;
inherited;
end;

procedure TMappedFile.SetName(const Value : string);
begin
if Active then
  raise Exception.Create('Íåëüçÿ èçìåíèòü èìÿ!');
FName := Value;
end;

procedure TMappedFile.SetSize(const Value : DWORD);
begin
if Active then
  raise Exception.Create('Íåëüçÿ èçìåíèòü ðàçìåð!');
FSize := Value;
end;

procedure TMappedFile.SetActive(const Value : Boolean);
var
sz : DWORD;
begin
if FActive = Value then Exit;
if Value then
  begin
    FHandle := CreateFile(
      PChar(FName),
      GENERIC_READ or GENERIC_WRITE,
      FILE_SHARE_READ,
      nil,
      OPEN_EXISTING,
      FILE_FLAG_RANDOM_ACCESS,
      0);
    if FHandle = INVALID_HANDLE_VALUE then
      RaiseLastOSError;
    sz := GetFileSize(FHandle, nil);
    if FSize > sz then
      begin
        SetFilePointer(FHandle, FSize, nil, FILE_BEGIN);
        SetEndOfFile(FHandle);
        SetFilePointer(FHandle, 0, nil, FILE_BEGIN);
      end
    else
      FSize := sz;
    FMapping := CreateFileMapping(
      FHandle,
      nil,
      PAGE_READWRITE,
      0, FSize,
      nil);
    if FMapping = 0 then
      begin
        CloseHandle(FHandle);
        FHandle := INVALID_HANDLE_VALUE;
        RaiseLastOSError;
      end;
    FView := MapViewOfFile(
      FMapping,
      FILE_MAP_ALL_ACCESS,
      0, 0,
      0);
    if FView = nil then
      begin
        CloseHandle(FHandle);
        CloseHandle(FMapping);
        FHandle := INVALID_HANDLE_VALUE;
        FMapping := 0;
        RaiseLastOSError;
      end;
    FSize := GetFileSize(FHandle, nil);
  end
else
  begin
    UnmapViewOfFile(FView);
    CloseHandle(FMapping);
    CloseHandle(FHandle);
    FView := nil;
    FMapping := 0;
    FHandle := INVALID_HANDLE_VALUE;
  end;
FActive := Value;
end;

function TMappedFile.GetActive : Boolean;
begin
Result := FHandle INVALID_HANDLE_VALUE;
end;

procedure TMappedFile.Open;
begin
Active := True;
end;

procedure TMappedFile.Close;
begin
Active := False;
end;

end.

---

Smithson   (2004-07-20 16:29:00) [4]

Загружать частями.
Например, воспользоваться File of string и циклом.

---

Наверх