Delphi HTML parsing

Question

Yes I am aware that this question will be very simular to my other question.

In my other question I asked about htmlp.
before I used that I tried to work with delphi's own units.

My code was like this:

procedure DesectTable(L:TStrings);
var
  doc:OleVariant;
  el:OleVariant;
  i:integer;
begin
  doc := coHTMLDocument.Create as IHTMLDocument2;
  doc.write(L.Text);
  doc.close;
  for i:=0to doc.body.all.length-1 do // Breaks here
  begin
    el:=doc.body.all.item(i);
    if el.tagname='TR' then
    begin
      if (el.classname='even') or (el.classname='odd') then
        writeln(el.innerhtml);
    end;
  end;
end;

This is code I used in another project where it did work.
But in this function I get an error: Project F1Times.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'

Does anyone know what could cause this?
And why does it happen here but not in my other project?
Yes, both functions are identical except for the part what happens inside of the for loop.

I'd like to know, this is so confusing xD

Edit

In case anyone would like to test this. The html im trying to fetch can be found here I saved that for easier testing and simply used a stringlist.loadfromfile.

What's going here? The code in the question is identical to the code in the answer. What question are you asking here, in this post? — Rob Kennedy
– Rob Kennedy, Commented Aug 22, 2014 at 22:54
@RobKennedy Well I tried a number of things in my code to fix this problem and posted invalid code by accident. MartynA thought that was the problem and posted that as answer. Then I corrected my code here. The question im asking here in this post is what is causing this error and how to fix it. — Teun Pronk
– Teun Pronk, Commented Aug 25, 2014 at 6:36

MartynA · Accepted Answer · 2014-08-22 15:00:12Z

1

It's because your code is wrong, I'm afraid, so it seems rather unlikely it could have worked as-is in your "other project". See below.

procedure DesectTable(L:TStrings);
var
  doc:OleVariant;
  el:OleVariant;
  i:integer;
begin
  doc := coHTMLDocument.Create as IHTMLDocument2;
  doc.write(L.Text);
  doc.close;
 // for i:=0to doc.body.items.all.length-1 do // Breaks here
  for i:=0 to doc.body.all.length-1 do 
  begin
    el:=doc.body.all.item(i);
    if el.tagname='TR' then
    begin
      if (el.classname='even') or (el.classname='odd') then
        writeln(el.innerhtml);
    end;
  end;
end;

answered Aug 22, 2014 at 15:00

MartynA

30.8k5 gold badges36 silver badges77 bronze badges

Sign up to request clarification or add additional context in comments.

9 Comments

Teun Pronk Over a year ago

Oops my bad, thats not the problem though. I will post the code from my other project too.

Teun Pronk Over a year ago

I will upvote for now, accepting an answer would make this issue seem to be resolved which it isn't yet.

MartynA Over a year ago

Perhaps you could take that edit out again and deal with that in your other question. It's a discourtesy to the people you're asking help from to change the question after they may have gone to the trouble of downloading your code, debugging it and posting an answer!

Teun Pronk Over a year ago

Which edit are you referring to? the example from my other project you mean?

MartynA Over a year ago

Yes, the code from your other project. One of the problems with that (it won't even compile) is nothing to do with the problem you first asked about in this q.

|

Collectives™ on Stack Overflow

Delphi HTML parsing

Edit

1 Answer 1

9 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

Edit

1 Answer 1

9 Comments

Your Answer

Sign up or log in

Post as a guest

Related