Einzelnen Beitrag anzeigen

MaToBe

Registriert seit: 2. Aug 2008
162 Beiträge
 
#5

Re: Daten auslesen aus Webseite

  Alt 1. Dez 2009, 18:49
ich muss ehrlich sagen das ich mehr oder weniger anfänger bin und das projekt wahrscheinlich viel zu groß für mich ist im moment, aber ich wills mal versuchen.
ich habe diese Funktion hier gefunden:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var aNode,aNode2 : Olevariant;
   r,c,z,z2 : Integer;
begin
  //item(6) = 7te Tabelle in der Webseite
  aNode := WebBrowser1.OleObject.Document.all.tags('table').Item(1);
  r := aNode.all.tags('tr').Length;//Zeilen feststellen
  StringGrid1.RowCount := r;
  for z := 0 to r-1 do
    begin
    aNode2 := aNode.all.tags('tr').Item(z);
    c := aNode2.all.tags('th').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
        StringGrid1.Cells[z2,z] := aNode2.all.tags('th').Item(z2).innerText;
      end;
    c := aNode2.all.tags('td').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
        StringGrid1.Cells[z2,z] := aNode2.all.tags('td').Item(z2).innerText;
      end;
    end;
end;
und sie klappt eigentlich auch sehr gut, nur dass mir die ausgabe in ein stringgrit nicht gefällt, da es schwer zu sortieren ist, keine bilder angezegit werden können und ich eher so eine art liste bevorzugen würde. am Besten sogar noch eine ausklappbare... Was für eine Komponente würdet ihr mir Raten?
  Mit Zitat antworten Zitat