Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
munthrek
0 / 0 / 3
Регистрация: 13.12.2011
Сообщений: 30
#1

FileMapping. Работа с большим количеством страниц - Delphi

25.05.2012, 09:48. Просмотров 563. Ответов 1
Метки нет (Все метки)

Есть следующий код создания FileMapping:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormCreate(Sender: TObject);
begin
  ffile:=CreateFile('ffile.txt', GENERIC_ALL, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  hFileMapObj:=CreateFileMapping(ffile,Nil,PAGE_READWRITE,0,1,'MySharedValue');
  If (hFileMapObj=0)
    Then
      ShowMessage('Не могу создать FileMapping!')
    Else
      lpBaseAddress:=MapViewOfFile(hFileMapObj,FILE_MAP_READ,0,0,0);
  If lpBaseAddress=Nil
    Then
      ShowMessage('Не могу подключить FileMapping!');
end;
И код чтения из него:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.ReadClick(Sender: TObject);
var
  L:integer;
  k:pointer;
begin
  If PositionRead.Text='' then PositionRead.Text:='0';
  If (Length(PositionRead.Text)>1)
    then
      while (PositionRead.Text[1]='0')and(Length(PositionRead.Text)>1) do
        PositionRead.Text:=copy(PositionRead.Text,2,Length(PositionRead.Text)-1);
 
  MemoriesEditPlane.clear;
  L:=Integer(lpBaseAddress);
  L:=L+StrToInt(PositionRead.Text);
  k:=Pointer(L);
  MemoriesEditPlane.text:=PChar(k);
end;
(на всякий случай приложу сам проект)

Читать он у меня умеет только с одной страницы в 4 Кб. Как можно реализовать чтение с большего числа страниц?
0
Вложения
Тип файла: rar PROGA 01.rar (203.8 Кб, 6 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2012, 09:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос FileMapping. Работа с большим количеством страниц (Delphi):

Пароль с большим количеством ключей
Доброго времени суток, имеется задумка сделать ввод пароля из множества ключей,...

Процедуры с большим количеством Панели, Циклы
Здравия хочу сделать простую процедуру к маленькой программе тренировочную для...

число с большим количеством цифр после запятой вывести в едит
Здраствуйте. Подскажите пожалуйста. Можна в делфи вписать в едит число с...

dat файл с большим количеством строковой Инф. Для загрузки в компоненты.
"dat файл с большим количеством строковой Информации. Для загрузки в...

Как работать с очень большим количеством чисел??
Как работать с очень большим кол-вом чисел?? У меня в бин-файле записано около...

Получите сведения о рефератах, написанных в текущем году с количеством страниц не более 20
Сведения о рефератах: - тема; - фамилия автора; - количество страниц;...

1
munthrek
0 / 0 / 3
Регистрация: 13.12.2011
Сообщений: 30
25.05.2012, 19:23  [ТС] #2
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2012, 19:23
Привет! Вот еще темы с решениями:

Работа с большим объёмом данных
Приветствую всех! На днях столкнулся с такой проблемой: необходимо отправить на...

Работа с большим текстовым файлом
Здравствуйте! Ситуация такая - есть большой текстовый файл - 100.000 строк....

Цвет набора страниц с вкладками TPageControl и его страниц TTabSheet
При вставке PageControl1 на форму, и создания его страниц TabSheet1, TabSheet2...

Новый сайт с большим количеством страниц
Хочу выложить новый сайт с большим количеством страниц, не забанит ли Яндекс...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru