Hallo Zusammen
oder besser HILFE!
Bin ziemlich am verzweifeln. Schreibe zur Zeit an einer App diese soll bei Start Daten (in Form eines
XML-Streams) holen und in eine Combox packen. Hat am Sonntag auch funktioniert. -Heute nicht mehr
obwohl ich nichts geändert habe. Beim Starten der App im Emulator kommt sie nur bis zum füllen und stürzt dann ab.
also in Ersten Form rufe ich diesen Code auf:
Delphi-Quellcode:
procedure TFProbenbearbeitung.FormActivate(Sender: TObject);
begin
showmessage('hier');
FillCombox(cbmethode);
showmessage('nachher');
end;
die showmessages habe ich verwendet um zu sehen wie weit er kommt.
das FillCombox kommt aus einem anderen
Unit:
Delphi-Quellcode:
procedure FillCombox(cb: TCombobox);
var s: TMemorystream;
str: TStringstream;
a, p: string;
y, i: integer;
xm: IXMLDocument;
Node1 : IXMLNode;
begin
str := TStringstream.Create;
a := ('4' + '|');
p := ('http://127.0.0.1/' + a);
s := DataModule1.GetXMLData(p);
s.Position := 0;
str.LoadFromStream(s);
if xm = nil then xm := newXMLDocument else xm.XML.Clear;
xm.LoadFromXML(str.DataString);
with xm.DocumentElement do
begin
for y := 0 to ChildNodes.Count-1 do
begin
Node1 := childnodes[y];
for i := 0 to Node1.ChildNodes.Count-1 do
begin
cb.items.add(Node1.ChildNodes.Nodes[i].GetAttributeNS('TXT_Methode','')+'|'+ Node1.ChildNodes.Nodes[i].GetAttributeNS('INT_MethodeID',''));
end;
end;
end;
end;
Am Auslesen des
XMl-Streams kann es nicht liegen, dies habe ich getested, und funktioniert. Auch funktioniert das
cb.items.add()
dessen Inhalt zeigt er mir in einem showmessage an und dann stürzt die App ab.
Jetzt weiss ich einfach nicht mehr weiter
hoffe jemand hat eine Idee. Zumal das Ding am Sonntag ja noch funktioniert hat. Wenn ich das
FillCombox(cbmethode);
auskommentiere läuft die Chose ohne Problem...