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

•  DeLiKaTeS Tetris (Тетрис)  366

•  TDictionary Custom Sort  3 502

•  Fast Watermark Sources  3 247

•  3D Designer  5 009

•  Sik Screen Capture  3 499

•  Patch Maker  3 704

•  Айболит (remote control)  3 907

•  ListBox Drag & Drop  3 167

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

•  Графические эффекты  4 105

•  Рисование по маске  3 398

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

•  Canvas Drawing  2 921

•  Рисование Луны  2 726

•  Поворот изображения  2 341

•  Рисование стержней  2 228

•  Paint on Shape  1 627

•  Генератор кроссвордов  2 311

•  Головоломка Paletto  1 824

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

•  Пазл Numbrix  1 720

•  Заборы и коммивояжеры  2 094

•  Игра HIP  1 315

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

•  Симулятор лифта  1 512

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

•  Генератор лабиринта  1 585

•  Проверка числового ввода  1 404

•  HEX View  1 539

•  Физический маятник  1 389

 
скрыть


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

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



Delphi Sources

Сохранение компонента полностью со всеми свойствами в БД



Автор: Z-man

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Сохранение компонента полностью, со всеми свойствами в БД.

Данная функция использовалась и используется для сохранения отчетов,
формируемые пользователем, в базу данных. БД используется: Informix и Oracle,
под другие БД не пробовал. Отчеты строились в ReportBuilder5.5.
Для других компонентов не пробывал использовать

Зависимости: стандартные
Автор:       Z-man, nik7777@land.ru, ICQ:160236098, Astana
Copyright:   Z-man ®
Дата:        28 мая 2002 г.
***************************************************** }

function ComponentToString(Component: TComponent): string;
var
  BinStream: TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result := StrStream.DataString;
    finally
      StrStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;

Пример использования:

OraTReport.FieldByName('report').AsString := ComponentToString(rbReport);
//* где: *//
//* rbReport - ReportBuilder5 (желтый отчет)*//
//* OraTReport - TOraTable из пакета компонентов ODAC (визуальные *//
//* компоненты для прямого доступа к Oracle)*//




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

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




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

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