Перегонка из Interbase в XML

Есть таблица «Chitateli» в базе данных «Biblioteka», написанная в СУБД «Interbase 6.5». Нужно перегнать эту таблицу в XML-файл средствами «Дельфи 7».

Запускаем «Дельфи 7», создаем новее приложение. На главную форму приложения помещаем следующие компоненты:

– IBDataBase,

– IBTransAction,

– IBTable,

– DataSetProvider,

– ClientDataSet,

– Button.

Затем настраиваем их.

Компонент	Настройка, значение	Примечание
IBDataBase	DataBaseName = «C:\INTERBASE\BIBLIOTEKA.GDB» DefaultTransAction = IBTransAction1 LoginPrompt = False Params: user_name=SYSDBA password=masterkey
IBTransAction1		Можно ничего не настраивать, но без него никак
IBTable1	DataBase = IBDataBase1 TransAction = IBTransAction1 TableName = «CHITATELI»
DataSetProvider1	DataSet = IBTable1
ClientDataSet1	ProviderName = DataSetProvider1
Button1	Procedure TForm1.Button1Click(Sender: TObject); Begin IBTable1.Active:=True; ClientDataSet1.Active:=True; ClientDataSet1.SaveToFile('C:\XML\Chitateli.xml'); End;

После всех настроек компилируем, запускаем приложение, жмем единственную кнопку, получаем ожидаемый результат – файл «Chitateli.xml».

Его можно просмотреть в любом текстовом редакторе, но лучше в обозревателе «Opera».

Рис. 1. Документ «Chitateli.xml», открытый в обозревателе «Opera»