Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

XML Export from Dataset

0 views
Skip to first unread message

R A Beckmann

unread,
Apr 19, 2005, 9:27:44 AM4/19/05
to
Hi All,

We would like to export XML for use in other apps from our
Datasets(FIBDataSet).

Can anyone recommend a solution or set of components to acvieve this.

XML Files to be used in a Microsoft environment.

Any comments would be appreciated.

Thanks
Rob


Mike Shkolnik

unread,
Apr 19, 2005, 9:33:59 AM4/19/05
to
See the source code:
*******************************************
Delphi tip#79: to export a dataset into XML
http://www.scalabium.com/faq/dct0079.htm
*******************************************

If you need more complex solution, use our SMExport suite:
http://www.scalabium.com/sme
There is the TSMExportToXML component with extended features (for example,
to generate the xml-file with formating for MS SQL database loading).
--
With best regards, Mike Shkolnik
EMail: mshk...@scalabium.com
http://www.scalabium.com


"R A Beckmann" <rob...@duel.co.za> wrote in message
news:4265...@newsgroups.borland.com...

Uffe Kousgaard

unread,
Apr 19, 2005, 9:36:07 AM4/19/05
to
"R A Beckmann" <rob...@duel.co.za> wrote in message
news:4265...@newsgroups.borland.com...
> Hi All,
>
> We would like to export XML for use in other apps from our
> Datasets(FIBDataSet).

This one http://www.scalabium.com/sme/ looks good for your purpose. I've no
personal experience, but it gets recommended quite a lot.

Regards
Uffe


Stefan Kilp

unread,
Apr 19, 2005, 6:08:24 PM4/19/05
to
R A Beckmann schrieb:
no automated export from dataset, but very small and easy to use. i am
very happy with it.

http://www.simdesign.nl/xml.html

best regards
stefan

Mike Noordermeer

unread,
Apr 19, 2005, 8:47:48 PM4/19/05
to
Hi Rob

Maybe something like this [untested] ... won't work for BLOBS.


Procedure ExportDataSet(ADataSet : TpFIBDataSet; ADestinationFile : string);
var
DataSetProvider: TDataSetProvider;
ClientDataSet: TClientDataSet;
begin
if not(ADataSet.Active) or // must be active to export
(ADataSet.RecordCount < 1) then // or have some records
exit;
DataSetProvider := TDataSetProvider.Create(nil);
try
DataSetProvider.DataSet := ADataSet;
ClientDataSet := TClientDataSet.Create(nil);
try
ClientDataSet.SetProvider(DataSetProvider);
ClientDataSet.Open;
ClientDataSet.SaveToFile(ChangeFileExt(ADestinationFile,'.xml'),
dfXML);
ClientDataSet.Close;
finally
ClientDataSet.Free;
end
finally
DataSetProvider.Free
end;
end;

Regards

Mike


"R A Beckmann" <rob...@duel.co.za> wrote in message
news:4265...@newsgroups.borland.com...

Ivan Sine

unread,
Apr 20, 2005, 12:33:12 PM4/20/05
to

Mark me down as a happy customer. I have both the Import and Export
suites. Lots of time savings for me. And my customers really appreciate
the import/export features that I've provided in our software. The
support is excellent!
Message has been deleted
0 new messages