Как написать записть в Stream

← →
Lapushka-dochka (2007-02-01 09:29) [0]

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

← →
Джо © (2007-02-01 09:39) [1]

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

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

← →
Плохиш © (2007-02-01 12:15) [2]

> Lapushka-dochka (01.02.07 09:29)

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

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

← →
Lapushka-dochka (2007-02-01 16:59) [3]

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

← →
Наиль © (2007-02-01 17:29) [4]

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

← →
antonn © (2007-02-01 17:30) [5]

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;

← →
antonn © (2007-02-01 17:31) [6]

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

← →
antonn © (2007-02-01 17:33) [7]

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

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

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

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

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

← →
Lapushka-dochka (2007-02-02 13:39) [10]

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

Как написать записть в Stream Найти похожие ветки