Как получить список модулей от системного процесса, в Вин NT
Dial Up, Как вызвать диалог Dial-Up дозвона
ScrollBox, Cинхронизация прокрутки
Как в Delphi инициализировать переменные?, Как в Delphi инициализировать переменные
Помогите с сетевым программированием, пожалуйста.
settimer, settimer
Как создать мини-графический редактор !!!!, ХЕЕЕЕЕЕЕЛЛЛЛЛППППП !!!!!!!
Случайное представление результатов запроса
Программирование под Oracle.., Чего-то мало в этор разделе обсуждается
Как с помощью Tedita вытащить большое число?, типа 1,6е-19
Direct3D, исходник, Нужен исходник без VCL
Отправка письма с аттачем в delphi, ПОЖАЛУЙСТА, ПОДСКАЖИТЕ!!!
DBGrid- заполнение из Excel, Как заполнить ячейки DBGrid из Excel
проблема с TServerSocket, Delphi 6 есть в Delphi 7 нет
Работа с TcpServer, помогите разобрать новичку
Как запретить Ctrl+Esc ?
Application.OnException := AppEventsException;, кукишь, вместо события .....
Как быстро обновить окно, API или Стандартными
ошибка при работе со свойством компонента
ServerSocket, Выюор сокета
TTreeView в качестве навигационного меню ?
Позднее связывание, Динамически вызывать методы...
MySQL, нужен пример...
Direct3d, как с этим работать?
проблема с TreeView
Помогите, пожалуйста, с базами dBase IV(.dbf), Траблы с совместимостью...
Macros on Delphi, instead of VBA
И опять про массивы(продолжение ветки о записи, массивов в файл)
файлы .chm в Delphi6 Help Manager..., ... это как-либо возможно?
Способ решения задачи, Решать не надо...
Как считать все символы с клавиатуры?, определенных клавиш
Старт в минимизированном виде, Точнее проблема, связанная с ним
Как узнать где лежит паппка, Мои документы
Отловить запуск, как отловить
Проблема с заполнением таблицы
COM1, COM2, USB, Как работать с поратами ?
Прозрачная форма
Печать из Memo, формирования отчетов
Расшифровка бинарного файла
Проблема с описанием процедуры.
Как читать порои из *.PWL файлов
Можно ли в типиз. файле сохранить динамический, массив???
TreeView Drag&Drop, С авто-скролом
Как Вы относитесь к курящим девушкам?
Коды символов
Хочу играть MP3 без MP
Вывод текста: Pascal
Borland Product Version Support Policy, не означает ли бесплатность D1,D2,D3?
как сконвертить базу данных в xml?
Dial-Up дозвон, Зная имя соединения
Каталог запуска приложения
Перевод модема в режим ожидания звонка, функциями TAPI
Про Датасеты
проблема с MDI, как сделать MDI непрозрачной?
File-> Send To, Excel...
TValueListEditor
Хук в разных ОС
Кривые второго порядка
Пропадает сообщение об exception...
Деление дробных чисел, Как разделить, сложить и т.д.
TLabel as hyperlink, Как превратить TLabel в гиперссылку?
Не могу понять, чего от меня хотят, Задачка на паскале.
Оконное приложение, модальность или немодальность
Как?, Напечатать таблицу.
сокращение пути, в лэйбл
Элемент констант Windows, Как в Delphi получить значение из панели
Как в run-time задать границы массива, (двухмерного)
Генератор не повторяющихся чисел, Заполнение массива
Помогите!!!!!!(важно), Надо помощь
Как загрузить форму из памяти, например, из TStream? 3ащита программы..
|
Платные хостинги
Раскрутка сайта
Книги по программированию
как сконвертить базу данных в xml?
- как сконвертить базу данных в xml?
- Если через ADO то оно имеет встроенные методы сохранения в XML, если через BDE тогда руками.
- Держи код:Код Procedure CreateXML(Alias:string; XMLName:string); var i,j,x,y:integer; f:TextFile; Tables:TStringList; Table:TTable; Function FixValue(Value:string):string; var n:integer; begin Result:=''; For n:=1 to length(Value) do if Value[n] in ['0'..'9','a'..'z','A'..'Z','.',',','-',' ','/','*',':','{','}','_','@','\','+','%'] then result:=Result+Value[n] else result:=Result+'&#'+inttostr(ord(Value[n]))+';'; end; Procedure WriteValue(Indent:integer; Name, ParamName, ParamValue, Value:string); var temp:string; const Empty=' '; begin Temp:=Copy(empty,1,Indent); temp:=temp+'<'+Name; if ParamName='' then temp:=temp+'>' else temp:=temp+' '+Paramname+'="'+FixValue(ParamValue)+'">'; Temp:=Temp+FixValue(Value)+'</'+Name+'>'; Writeln(f,temp); end; Procedure WriteTag(Indent:integer; Name, ParamName, ParamValue:string; Open:boolean=True); var temp:string; const Empty=' '; begin Temp:=Copy(empty,1,Indent); if Open then temp:=temp+'<'+Name else temp:=temp+'</'+Name; if ParamName='' then temp:=temp+'>' else temp:=temp+' '+Paramname+'="'+FixValue(ParamValue)+'">'; Writeln(f,temp); end;begin Tables:=TStringList.Create; Table:=TTable.Create(nil); try session.GetTableNames(Alias, '*.db',False, False, Tables); Table.DatabaseName:=Alias; assignFile(f,XMLName); reWrite(f); WriteTag(0, Alias, '', '', True); for i:=0 to Tables.Count-1 do begin Table.Active:=false; Table.TableName:=Tables[i]; WriteTag(1, Table.tablename, '', '', True); Table.Active:=true; Table.First; For j:=0 to Table.RecordCount-1 do begin WriteTag(2, 'Rec', '', '', True); For x:=0 to Table.fields.count-1 do WriteValue(4, Table.fields[x].FieldName, '', '', Table.fields[x].asstring); WriteTag(2, 'Rec', '', '', False); Table.Next; end; WriteTag(1, Table.tablename, '', '', False); end; WriteTag(0, Alias, '', '', False); CloseFile(f); finally Tables.free; Table.free; end;end;procedure TForm1.Button1Click(Sender: TObject);begin CreateXML('c:\Dev\databases\MyDatabase', 'c:\XMLFile.xml');end;highlightSyntax('delphiTNiZTV','delphi');XML формируется в ввидеКод <MyDatabase> <Table1> <Rec> <Field1>Value1</Field1> <Field2>Value2</Field2> <Field3>Value3</Field3> </Rec> <Rec> <Field1>Value1</Field1> <Field2>Value2</Field2> <Field3>Value3</Field3> </Rec> </Table1> <Table2> <Rec> <Field1>Value1</Field1> <Field2>Value2</Field2> <Field3>Value3</Field3> </Rec> <Rec> <Field1>Value1</Field1> <Field2>Value2</Field2> <Field3>Value3</Field3> </Rec> </Table2> </MyDatabase>highlightSyntax('delphiODM1OTJ','delphi');
- Vit, я надеюсь этот код сохранится в FAQ?
- Уже там
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
