Du solltest, glaube ich, Deinen code einmal kritisch überprüfen:
Delphi-Quellcode:
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').AsStri ng := bodytext;
end;
if Pos('<body>', BodyJvRichEdit.text) <> 0 then
begin
Start := Pos('<body>', BodyJvRichEdit.text)+7;
Ende := Pos('</body>', BodyJvRichEdit.text);
Body := Ende - Start;
..
Da scheint einiges redundant zu sein.
wie wäre es mit
Delphi-Quellcode:
Start:=Pos('<BODY>',uppercase(BodyJvRichEdit.text));
if Start>0 then ...
warum eigentlich ein Richedit? Eine Stringlist würde es doch auch tun?
Gruß
K-H
Edith:
Ich entnehme mir die Daten
aus den entsprechenden
XML-Knoten und packe Sie in meine Datenbank..
Dann sollte man vielleicht doch einen Parser nutzen?
Wie gesagt, es funktioniert alles nur bei
einem Produkt hängt er sich auf und macht nicht mehr weiter. Ich denke es liegt an dem etwas längerem Datenblatt.
Das ist der einzige Unterschied.
Gewissheit könnte hier ein Debugger verschaffen
Gruß
K-H