Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 193

•  TDictionary Custom Sort  6 255

•  Fast Watermark Sources  6 051

•  3D Designer  8 951

•  Sik Screen Capture  6 377

•  Patch Maker  6 796

•  Айболит (remote control)  6 781

•  ListBox Drag & Drop  5 654

•  Доска для игры Реверси  96 310

•  Графические эффекты  6 996

•  Рисование по маске  6 281

•  Перетаскивание изображений  5 171

•  Canvas Drawing  5 542

•  Рисование Луны  5 242

•  Поворот изображения  4 790

•  Рисование стержней  3 387

•  Paint on Shape  2 645

•  Генератор кроссвордов  3 529

•  Головоломка Paletto  2 820

•  Теорема Монжа об окружностях  3 631

•  Пазл Numbrix  2 374

•  Заборы и коммивояжеры  3 057

•  Игра HIP  2 012

•  Игра Go (Го)  1 937

•  Симулятор лифта  2 296

•  Программа укладки плитки  1 999

•  Генератор лабиринта  2 453

•  Проверка числового ввода  2 137

•  HEX View  2 473

•  Физический маятник  2 089

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Чтение и запись компонента



Автор: Blake

Вот участок кода из предстоящей статьи о VBX/OCX, который я написал чтобы протестировать поточность своих компонентов. Если компонент поточнен, код сможет его сохранить и загрузить. В противном случае вы получите сообщение об ошибке, отладка которой сравнительна легка для определении проблем с VCL.

В действительности технология чтения и записи компонентов не так уж и сложна, убедитесь в этом сами.


procedure TForm1.StoreClick(Sender: TObject);
var
  W: TWriter;
begin
  W := TWriter.Create(
    TFileStream.Create('c:\source\delphi\example.dob', fmCreate), 4096);
  W.WriteSignature;
  W.WriteComponent(Spin);
  W.Free;
end;

procedure TForm1.LoadClick(Sender: TObject);
var
  R: TReader;
begin
  R := TReader.Create(
    TFileStream.Create('c:\source\delphi\example.dob', fmOpenRead), 4096);
  Spin := R.ReadRootComponent(nil) as TSpinner;
  Spin.Top := 0;
  Spin.Left := 0;
  Spin.Parent := Self;
  InsertComponent(Spin);
  R.Free;
end;





Похожие по теме исходники

Чтение PSD файлов

Расширение компонента TEdit




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте