Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
munthrek
0 / 0 / 0
Регистрация: 13.12.2011
Сообщений: 30
#1

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

25.05.2012, 09:48. Просмотров 543. Ответов 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 Кб, 5 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2012, 09:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос FileMapping. Работа с большим количеством страниц (Delphi):

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

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

dat файл с большим количеством строковой Инф. Для загрузки в компоненты. - Delphi
"dat файл с большим количеством строковой Информации. Для загрузки в компоненты." Говорю сразу, Чайник. Есть проект, В нем много ~6...

Как работать с очень большим количеством чисел?? - Delphi
Как работать с очень большим кол-вом чисел?? У меня в бин-файле записано около 400 тысяц REAL чисел. С ними надо выполнять ряд действий в...

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

Работа с большим объёмом данных - Delphi
Приветствую всех! На днях столкнулся с такой проблемой: необходимо отправить на сервер файл большого размера (для теста взял 37 МБ) из...

1
munthrek
0 / 0 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Работа с большим текстовым файлом - Delphi
Здравствуйте! Ситуация такая - есть большой текстовый файл - 100.000 строк. Мне нужно читать его построчно, делать определённые...

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

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

Работа с большим количеством данных - PHP БД
Есть форма добавления нового рабочего, примерно 40 полей... Передаются они постом. Первые 10 я описал ручками, ибо они обязательны и там...


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

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

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