Скачать: CL | DM;

Как написать записть в 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 (оба находятся через поисковик), там множество примеров и статей, которые подтолкнут на более детальные вопросы.

---

← →
Anatoly Podgoretsky ©   (2007-02-01 19:29) [8]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-02-01 19:29) [9]

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.031 c