Memo und XML verbinden

stiftmaster · Beiträge: 149

Hallo Leute,

folgendes Problem:

ich habe eine Memo-Komponente, in die ich XML-Code reinschreiben kann. Dann muss dieser Code intern weiterverarbeitet werden, was bedeutet, dass ich das den Memo.Text in ein IXMLDocument laden muss. Meine Ideee, dass ganze in ein Stream zu laden - doch dabei hakt es :-(

Hier mein Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TMainForm.Button1Click(Sender: TObject);
var
  XML: IXMLDocument;
  Stream: TStream;
begin
  XML := TXMLDocument.Create(nil);
  Stream := TStream.Create;

  Memo1.Lines.SaveToStream(Stream);
  XML.LoadFromStream(Stream);
end;

Ich erhalte n' beschissene Zugriffsverletzung bei SaveToStream - hab aber keine Ahnung warum...

Habt ihr n' Idee

Dankend

Stefan

alias5000 · Verfasst: So 18.09.05 21:14

Vllcht musst du ihm ertsmal Startpunkt Größe oder so sagen....?

_________________
Programmers never die, they just GOSUB without RETURN

stiftmaster · Beiträge: 149

ich hab irgendwie keinen Plan, wie das gehen soll...
Es gibt ja

markieren

Delphi-Quelltext

1:	Stream.Position := 0;

aber wie setzte ich die Größe - weiß ich die denn überhaupt, wenn ja, woher und wie setze ich die?

Stefan

Moderiert von Klabautermann: Delphi-Tags hinzugefügt.

Grishnak · Beiträge: 221 Windows XP Home Delphi 7 PE, Delphi 2005 PE

TStream ist eine abstrakte Basisklasse und sollte nicht direkt benutzt werden! Versuch einen TMemoryStream oder TFileStream!

_________________
Mach' etwas idiotensicher und irgendjemand erfindet einen besseren Idioten!

UGrohne · Verfasst: Mo 19.09.05 01:09

Das dürfte auch ohne Stream gehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TMainForm.Button1Click(Sender: TObject);
var
  XML: IXMLDocument;
begin
  XML := NewXMLDocument
  XML.XML.Text:=Memo1.Text;
  XML.Active:=True;
end;

Wenn ich mich recht entsinne, dürfte das reichen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme