VPF::Функции для записи и чтение своих данных в

Alex

Дата 19.4.2004, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Я тащусь

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

x77

Дата 19.4.2004, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

alex-co, ;)

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

sergejzr

Дата 19.4.2004, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

Функция alex-co позволяет записать некую информацию в файл, а потом прочитать её.
Какой смысл писать в работающий ексешник?

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Alex

Дата 19.4.2004, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Ну почему же бывают и такие задачи, что требуется дописать какую то информацию к запущенному файлу. Например, сохранение настроек программы в самой себе.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

sergejzr

Дата 19.4.2004, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

Вообще то существуют INI, БД итд.
Ну, если кому то надо именно так, то конечно...

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Monty

Дата 19.4.2004, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Advanced Lamer

Профиль
Группа: Участник Клуба
Сообщений: 3511
Регистрация: 3.4.2003
Где: Гваделупа

Репутация: нет
Всего: 27

Но с CD-R будет явный облом =8-)

--------------------

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

bartram

Дата 20.4.2004, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

Да, было бы хорошо если бы писалось в открытый эгзешник, и с ini мучиться не надо !!

--------------------

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

sergejzr

Дата 20.4.2004, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

Цитата

Да, было бы хорошо если бы писалось в открытый эгзешник...

Круто! На ходу перекрашиваем машину, а заодно меняем мотор

.
ИМХО не может быть в этом ничего хорошего!

Это сообщение отредактировал(а) sergej.z - 20.4.2004, 22:13

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Alex

Дата 20.4.2004, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Цитата(sergej @ 20.4.2004, 23:13)

Цитата

Да, было бы хорошо если бы писалось в открытый эгзешник...

Круто! На ходу перекрашиваем машину, а заодно меняем мотор

.
ИМХО не может быть в этом ничего хорошего!

Все зависит от конкретной задачи

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

kazakh

Дата 22.2.2006, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.2.2006

Репутация: нет
Всего: нет

Добрый день.
А так нельзя?

Автор: Peter Below

Вы можете включить любой тип данных как RCDATA или пользовательских тип ресурса. Это очень просто. Данный совет покажет вам общую технику создания такого ресурса.

Код


Type
  TStrItem = String[39];  { 39 символов + байт длины -> 40 байтов }
  TDataArray = Array [0..7, 0..24] of TStrItem;

Const
  Data: TDataArray = (
  ('..', ...., '..' ),  { 25 строк на строку }
  ...                   { 8 таких строк }
  ('..', ...., '..' )); { 25 строк на строку }

Данные размещаются в вашем сегменте данных и занимают в нем 8K. Если это слишком много для вашего приложения, поместите реальные данные в ресурс RCDATA. Следующие шаги демонстрируют данный подход. Создайте небольшую безоконную программку, объявляющую типизированную константу как показано выше, и запишите результат в файл на локальный диск:

Код


program MakeData;
type
  TStrItem = string[39]; { 39 символов + байт длины -> 40 байтов }
  TDataArray = array[0..7, 0..24] of TStrItem;

const
  Data: TDataArray = (
    ('..', ...., '..'), { 25 строк на строку }
    ... { 8 таких строк }
    ('..', ...., '..')); { 25 строк на строку }

var
  F: file of TDataArray;
begin
  Assign(F, 'data.dat');
  Rewrite(F);
  Write(F, Data);
  Close(F);
end.

Теперь подготовьте файл ресурса и назовите его DATA.RC. Он должен содержать только следующую строчку:

DATAARRAY RCDATA "data.dat"
Сохраните это, откройте сессию DOS, перейдите в каталог где вы сохранили data.rc (там же, где и data.dat!) и выполните следующую команду:
brcc data.rc (brcc32 для Delphi 2.0)
Теперь вы имеете файл data.res, который можете подключить к своему Delphi-проекту. Во время выполнения приложения вы можете генерировать указатель на данные этого ресурса и иметь к ним доступ, что и требовалось.

Код


{ в секции interface модуля  }
type
  TStrItem = string[39]; { 39 символов + байт длины -> 40 байтов }
  TDataArray = array[0..7, 0..24] of TStrItem;
  PDataArray = ^TDataArray;
const
  pData: PDataArray = nil; { в Delphi 2.0 используем Var }

implementation
{$R DATA.RES}

procedure LoadDataResource;
var
  dHandle: THandle;
begin
  { pData := Nil; если pData - Var }
  dHandle := FindResource(hInstance, 'DATAARRAY', RT_RCDATA);
  if dHandle <> 0 then
  begin
    dhandle := LoadResource(hInstance, dHandle);
    if dHandle <> 0 then
      pData := LockResource(dHandle);
  end;
  if pData = nil then
    { неудача, получаем сообщение об ошибке с помощью
    WinProcs.MessageBox, без помощи VCL, поскольку здесь код
    выполняется как часть инициализации программы и VCL
    возможно еще не инициализирован! }
end;

initialization
  LoadDataResource;
end.

Теперь вы можете ссылаться на элементы массива с помощью синтаксиса pData^[i,j].

@ntosha

Дата 21.1.2007, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 11.1.2007

Репутация: нет
Всего: нет

Караул! Не могу скачать модуль!!! Ошибка типа "Файл отсутствует". Дайте какую нибудь другую ссылку, PLEASE!!!!!

Dino99rus

Дата 22.1.2007, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 10.1.2007

Репутация: нет
Всего: 2

сылка битая smile

Исправьте плиз...
И тут вопрос задам. Подскажите плиз (или сылку киньте). Я хочу(надо) написать программу которая создает ехе файл с данными, т.е. 1-й ехе может открывать и считывать данные со 2-го ехе или если нет 2-го ехе создать его. Вот например я с помощью 1-го ехе выберу или напишу текстовый файл (или рисунок), после нажатия на кнопку "ок" должен создаться 2-й ехе с этими данными. 2-й ехе должен еще обрабатывать эти данные и при запуски их выводить в зависимости от типа данных.

Или все в одном ехе выполняется, т.е. все дынные могу сохраняться в 1-м ехе. Т.е. должны добавляться, удаться или редактироваться(если это текстовый файл)

Это сообщение отредактировал(а) Dino99rus - 22.1.2007, 01:11

Alex

Дата 22.1.2007, 03:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Все ссылки подправил

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »