An alle Programmierhengste: XML lesen

**golffahrer**

Hallo Freunde,

ich bin neu hier und habe folgendes Problem.

Ich ziehe mir Daten via XML vom Server eines Lieferanten. Mein Code sieht folgender Maßnahmen aus:

zusammenfalten · markieren

Delphi-Quellcode:

			...

if n = 'infourl' then

                            begin

                              PostDataStream := TStringStream.Create('');

                              ParamData := TStringStream.Create('');

                              ParamData.WriteString('');

                              ArtikelAdsTable.FieldByName('Infourl').AsString := s;

                              HtmlCodeIdHTTP.Post(s, ParamData, PostDataStream);

                              ArtikelAdsTable.FieldByName('Infotextalles').AsString := PostDataStream.DataString;

                              BodyJvRichEdit.Clear;

                              BodyJvRichEdit.Text := PostDataStream.DataString;

                              if Pos('<BODY>', BodyJvRichEdit.text) <> 0 then

                              begin

                                Start := Pos('<BODY>', BodyJvRichEdit.text)+7;

                                Ende :=  Pos('</BODY>', BodyJvRichEdit.text);

                                Body := Ende - Start;

                                bodytext := copy(BodyJvRichEdit.text, Pos('<BODY>', BodyJvRichEdit.Text)+6, Body+1);

                                ArtikelAdsTable.FieldByName('Infotextbody').AsString := bodytext;

                              end;

                              if Pos('<body>', BodyJvRichEdit.text) <> 0 then

                              begin

                                Start := Pos('<body>', BodyJvRichEdit.text)+7;

                                Ende :=  Pos('</body>', BodyJvRichEdit.text);

                                Body := Ende - Start;

                                bodytext := copy(BodyJvRichEdit.text, Pos('<body>', BodyJvRichEdit.text)+6, Body+1);

                                ArtikelAdsTable.FieldByName('Infotextbody').AsString := bodytext;

                              end;

                            end

...

Ich vermute mal, dass er mit der Datenmenge nicht zurecht kommt. Dies ist nur bei einem Artikel so. Der einzige Unterschied ist nur der Textstream. Der hat ein paar Zeichen mehr.
ReceiverBufferSize wurde auf 1000000 gesetzt.

Hat jemand eine Idee, warum er gerade bei einem Artikel ins Essen bricht und das Programm ohne einer Exception killt!?

Über Eure Antworten, wäre ich sehr dankbar.

**roboter202**

Hall

Willkommen in der DP.

Kann deine Frage zwar LEIDER nicht

beantworten.

Aber am besten Packst du deinen Code beim nächsten mal in die Code / DELPHI tags

Einfach mit DELPHI und /DELPHI oder CODE und /CODE einkalmmer (diese Wörter noch mit [ und ] einklammern) !

**Bernhard Geyer**

Wenn man es mit XML zu tun hat sollte man auch einen XML-Parser zum auslesen nehmen.
Alles andere ist M....

**Deep-Sea**

@roboter202:
Du meinst Die Tags [DELPHI] und [/DELPHI] ?!

@golffahrer:
Wie du holst die Daten VIA XML? XML ist kein Datenprotokoll, du könntest also höchstens Daten holen, die im XML-Format vorliegen.
Aber wie es aussieht holst du doch eine HTML-Seite, oder?

Gut, die könnte natürlich XHTML sein ...

**Bernhard Geyer**

Zitat von Deep-Sea:

Aber wie es aussieht holst du doch eine HTML-Seite, oder?

Stimmt, <body> hört sich nach HTML an. Dort nimmt man einen HTML-Parser wie TWebBrowser.

**golffahrer**

Die Frage ist ja, was an meinem Code falsch ist. Es funktioniert ja. Nur bei einem Artikel verabschiedet sich das Tool. Eine Datenbegrenzung kann ja nicht die Ursache sein, oder!?
Was genau für Infos braucht Ihr, damit wir das Problem lösen können!?

P.S.: Viele Wegen führen nach Rom!

**Deep-Sea**

Erst einmal wäre es sehr nett von dir, wenn du deinen Code in die Tags [DELPHI] und [/DELPHI] verpackst, damit man ihn auch besser lesen kann. Danke.

Und dann darfst du auch gerne mal verraten, in welchem Format die Daten denn nun vorliegen.

**roboter202**

Zitat von Deep-Sea:

@roboter202:
Du meinst Die Tags [DELPHI] und [/DELPHI] ?!

^^ Wie macht er das ?

ah ich sehe mit [NOPARSE] und[/NOPARSE]

An alle Programmierhengste: XML lesen

An alle Programmierhengste: XML lesen

AW: An alle Programmierhengste

AW: An alle Programmierhengste

AW: An alle Programmierhengste

AW: An alle Programmierhengste

AW: An alle Programmierhengste

AW: An alle Programmierhengste

AW: An alle Programmierhengste

Forumregeln

roboter202 Registriert seit: 6. Mär 2011 98 Beiträge Delphi 6 Professional	#2 AW: An alle Programmierhengste 5. Apr 2011, 14:44 Hall Willkommen in der DP. Kann deine Frage zwar LEIDER nicht beantworten. Aber am besten Packst du deinen Code beim nächsten mal in die Code / DELPHI tags Einfach mit DELPHI und /DELPHI oder CODE und /CODE einkalmmer (diese Wörter noch mit [ und ] einklammern) ! Christian i := 0 ; While i = 0 do beep ;
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.213 Beiträge Delphi 10.4 Sydney	#3 AW: An alle Programmierhengste 5. Apr 2011, 15:06 Wenn man es mit XML zu tun hat sollte man auch einen XML-Parser zum auslesen nehmen. Alles andere ist M.... Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.213 Beiträge Delphi 10.4 Sydney	#5 AW: An alle Programmierhengste 5. Apr 2011, 15:13 Zitat von Deep-Sea: Aber wie es aussieht holst du doch eine HTML-Seite, oder? Stimmt, <body> hört sich nach HTML an. Dort nimmt man einen HTML-Parser wie TWebBrowser. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

golffahrer Registriert seit: 5. Apr 2011 12 Beiträge	#6 AW: An alle Programmierhengste 5. Apr 2011, 15:31 Die Frage ist ja, was an meinem Code falsch ist. Es funktioniert ja. Nur bei einem Artikel verabschiedet sich das Tool. Eine Datenbegrenzung kann ja nicht die Ursache sein, oder!? Was genau für Infos braucht Ihr, damit wir das Problem lösen können!? P.S.: Viele Wegen führen nach Rom!
	Zitat

Deep-Sea Registriert seit: 17. Jan 2007 907 Beiträge Delphi XE2 Professional	#7 AW: An alle Programmierhengste 5. Apr 2011, 15:34 Erst einmal wäre es sehr nett von dir, wenn du deinen Code in die Tags [DELPHI] und [/DELPHI] verpackst, damit man ihn auch besser lesen kann. Danke. Und dann darfst du auch gerne mal verraten, in welchem Format die Daten denn nun vorliegen. Chris Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
	Zitat

roboter202 Registriert seit: 6. Mär 2011 98 Beiträge Delphi 6 Professional	#8 AW: An alle Programmierhengste 5. Apr 2011, 15:54 Zitat von Deep-Sea: @roboter202: Du meinst Die Tags [DELPHI] und [/DELPHI] ?! ^^ Wie macht er das ? ah ich sehe mit [NOPARSE] und[/NOPARSE] Christian i := 0 ; While i = 0 do beep ;
	Zitat