VPF::Хранение данных - Форум программистов

alan86

Дата 12.3.2006, 00:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Хе. Может я задолбал насчет радмина, но как сохранить настройки в реестре и считать их от туда.
ну типа 1-ый клиент его IP, порт по которому подключен и т.д, 2-ой так же.
Может почитать чего посоветуете?
Заранее признателен.

FRAGNATIC

Дата 12.3.2006, 01:47 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

Код


--------
uses registry;
--------
var RegIni:TRegIniFile;
begin
   {write}
    RegIni:=TRegIniFile.Create('Software');
    RegIni.RootKey:=HKEY_CURRENT_USER;
    RegIni.OpenKey('\Software\Microsoft\Windows\CurrentVersion', true);
    RegIni.WriteString('run','TesT', Application.ExeName);
   {а также все из раздела RegIni.Write* (типа writeinteger)}
    RegIni.Free;

   {read}
    RegIni:=TRegIniFile.Create('Software');
    RegIni.RootKey:=HKEY_CURRENT_USER;
    RegIni.OpenKey('\Software\Microsoft\Windows\CurrentVersion', true);
    MyString:= RegIni.ReadString('run','TesT');
    {а также все из раздела RegIni.Read* (типа readinteger)} 
    RegIni.Free;
  end;

end;

способ 2 (ни как с файлом работать)

Код


procedure TForm1.SaveSets;
var
  settings: TMemoryStream;
  R: TRegistry;
  i,b :integer;
  S: PChar;
  l: word;
  bb: boolean;
begin
   -----------

  settings := TMemoryStream.Create;

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


  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  R.OpenKey('Software\FragSoft\Test\', true);
  settings.Seek(0, soFromBeginning);
  R.WriteBinaryData('settings', settings.Memory^, settings.Size);
  R.Free;

  settings.free;
end;

procedure TForm1.LoadSets;
var
  settings: TMemoryStream;
  R: TRegistry;
  buf: PChar;
  size: integer;
  i,b :integer;
  l: word;
  bb: boolean;
begin
 ------------------------

  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  R.OpenKey('Software\FragSoft\Test\', true);

  if R.ValueExists('settings') then
  begin
    size := R.GetDataSize('settings');
    buf := GetMemory(size);
    R.ReadBinaryData('settings', buf^, size);

    settings := TMemoryStream.Create;
    settings.Write(buf^, size);
    FreeMemory(buf);
    settings.Seek(0, soFromBeginning);
   ----------------------------------
            FreeMemory(buf)
 ------------------------------
    end;

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

  settings.Free;
  R.Free;

end;

ну ещё можно и через winAPI рабоать с реестром =)

Yanis

Дата 13.3.2006, 10:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(FRAGNATIC @ 12.3.2006, 01:47

)

ну ещё можно и через winAPI рабоать с реестром =)

Без WinAPI вообще нельзя работать с реестром smile

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

*щёлк*

FRAGNATIC

Дата 13.3.2006, 13:51 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

Цитата(Yanis @ 13.3.2006, 10:13

)

Без WinAPI вообще нельзя работать с реестром

Да ты что.? smile

Может не будем к словам придератся.
Понятно что я имею ввиду рабоатать на примую можно.!!

bems

Дата 13.3.2006, 13:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(Yanis @ 13.3.2006, 10:13

)

Без WinAPI вообще нельзя работать с реестром

Легко!
Добавлено @ 13:54
smile

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

Обижено школьников: 8

Yanis

Дата 13.3.2006, 14:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

Хотя, что это я к WinAPI привязался, когда програмировать можно и вовсе без компьютера. smile

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

*щёлк*

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