Zitat von
marabu:
Sali,
luegsch emal:
Delphi-Quellcode:
procedure AddBasket(doc: IXMLDOMDocument2; const path, opened, isUserAssigned: string);
const
xpBaskets = '//Baskets';
tagBasket = 'Basket';
atPath = 'path';
atOpened = 'opened';
atIsUserAssigned = 'isUserAssigned';
var
e: IXMLDOMElement;
begin
e := doc.selectSingleNode(xpBaskets) as IXMLDOMElement;
if Assigned(e) then
with e.appendChild(doc.createElement(tagBasket))
as IXMLDOMElement do
begin
setAttribute(atPath, path);
setAttribute(atOpened, opened);
setAttribute(atIsUserAssigned, isUserAssigned);
end;
end;
Tschüss
gruäzi
scheinbar hab ich wieder was missverstanden oder falsch gemacht. denn es passiert gar nix. habe es folgendermassen in einer prozedur verpackt:
Delphi-Quellcode:
procedure Tfrmxml.btnneubClick(Sender: TObject);
var
doc: IXMLDOMDocument2;
begin
if CreateDocument(doc, dbMemo1.Text)
then
begin
AddBasket(doc,edpfad.text,'
true','
true');
datamodule2005.ADOQuery3.SQL.Text:=sql_update_xml;
datamodule2005.ADOQuery3.Parameters.ParamByName('
xml').Value:=doc.xml;
datamodule2005.ADOQuery3.Parameters.ParamByName('
benutzername').Value:=edbenutzername.text;
datamodule2005.ADOQuery3.ExecSQL;
btnneu.click;
// Neu!
end else ShowParseError(doc.parseError);
end;
wie gesagt, wird leider nichts gespeichert. wahrscheinlich wieder eine kleine sache??