Twebbrowser daten aus <td class"xyzx"> auslesen

[cherry]

hehe, danke! und noch für die die ebenfalls eine erfolgslose Suche hinter sich haben:

Delphi-Quellcode:

procedure TForm1.ProcessMessages;
var
  Msg: TMsg;
begin
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

function TForm1.LoadDocument(doc: IHTMLDocument2; s: TStream): Boolean;
var
  sa: IStream;
begin
  if Assigned(doc) then
  begin
    s.Position := 0;
    sa := TStreamAdapter.Create(s, soReference);
    with doc as IPersistStreamInit do
    begin
      InitNew;
      Result := Succeeded(Load(sa));
    end;
  end else Result := false;
  if Result then
    while doc.readystate <> 'complete' do
      ProcessMessages;
end;

und allen ein schönes Wochenende!