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

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

Как написать записть в Stream [D6, XP]

Lapushka-dochka ©   (2007-02-01 09:29:00) 

Здравствуйте, Мастера!
Подскажите, как записать некую информацию с формы (выбранниые пользователем значения компонентов, лежащих на форме) в файл с конкрентым названием посредством создания и записи сохраняемой информации через TStream?
То есть, я не знаю, какой код писать, чтоб создать Stream. Надо ли использовать метод Stream1.Create или все это делается проще посредством других методов Write, WriteBuffer ....? Просьба привести пример или укажите, где в инете я могла бы почитать подобный пример.

---

Lapushka-dochka   (2007-02-02 13:39:00) [1]

Большое спасибо за все отклики! Учту все, и буду прорабатывать :-)
Спасибо!!!

---

Anatoly Podgoretsky   (2007-02-01 19:29:00) [2]

> Плохиш  (01.02.2007 12:15:02)  [2]

Зачем в книжке, F1 достаточно.

---

Anatoly Podgoretsky   (2007-02-01 19:29:00) [3]

> Lapushka-dochka  (01.02.2007 16:59:03)  [3]

Иди ко мне на сайт, книг уйма.

---

antonn   (2007-02-01 17:33:00) [4]

а насчет книжки - скачайте проект DelphiWorld или DRKB (оба находятся через поисковик), там множество примеров и статей, которые подтолкнут на более детальные вопросы.

---

antonn   (2007-02-01 17:31:00) [5]

естественно можно воспользоваться и TFileStream и вообще любым TStream

---

antonn   (2007-02-01 17:30:00) [6]

PE:TWindowStick - та самая записть, которую нужно сохранить. Чтобы избежать еще пары вопросов, скажу что s:string так сохранить нельзя.
procedure SaveToFile(Filename:string);
var MIn: TMemoryStream; PE:TWindowStick;
begin
  MIn := TMemoryStream.Create;
  Try
   min.Write(PE,sizeof(PE));
   MIn.SaveToFile(Filename);
  finally
    MIn.Free;
  end;
end;

procedure LoadToFile(Filename:string);
var MIn: TMemoryStream; PE:TWindowStick;
begin
if not(fileexists(Filename)) then exit;
  MIn := TMemoryStream.Create;
  Try
   MIn.LoadFromFile(Filename);
   min.Position:=0;
   min.Read(PE,sizeof(PE));
  finally
    MIn.Free;
  end;
end;

---

Наиль   (2007-02-01 17:29:00) [7]

Начни с примеров с собственного компьютера
C:\Program Files\Borland\Delphi7\Demos\ResXplor\ExeImage.pas

---

Lapushka-dochka   (2007-02-01 16:59:00) [8]

To Плохиш ©  [2] У меня нет возможности приобрести реальную книгу, могли бы мне прислать в электронном виде эту книгу, или подскажите, где скачать эту книгу?
Просто очень срочно нужно решить эту проблему.

---

Плохиш   (2007-02-01 12:15:00) [9]

> Lapushka-dochka   (01.02.07 09:29)


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

Зачем в инете? Это описано в любой книжке "Делфи для чайников за 21 секунду"...

---

Джо   (2007-02-01 09:39:00) [10]

> То есть, я не знаю, какой код писать, чтоб создать Stream.

Лапушка-Дочка! Экземпляр стрима создается классически: <Класс_потомок_стрима>.Create. То, что стоит в угловых скобках, в данном случае уместно заменить на TFileStream. Подробности — в справке. Путь осилит идущий! Со всем уважением и проч.

---

Наверх