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:
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.