aktuallisierungsproblem wegen timer

[Matthias-k]

hello,

also, es ist nun halb 3 und ich komm ne mehr weiter...

folgendes problem: per timer hole ich mir von einer website den kompletten quelltext. dies geschieht alle 0,5 sek...
dies ist für mich wichtig, da ständig neue daten darüber kommen.

diese daten sind insofern bereits ausgewertet und lade diese in ein memo.

dies passiert mit diesen 3 proceduren:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  SList1, SList2 : TStringList;
  IpStream: IPersistStreamInit;
  AStream: TMemoryStream;
  iw: IWebbrowser2;
  i : integer;
begin
  SList1 := TStringList.Create;
  SList2 := TStringList.Create;
  iw := GetFrame(1);
  AStream := TMemoryStream.Create;
  try
    IpStream := iw.document as IPersistStreamInit;
    if Succeeded(IpStream.save(TStreamadapter.Create(AStream), True)) then
    begin
      AStream.Seek(0, 0);
      SList1.LoadFromStream(AStream);
      SList2.Text := HtmlToText(SList1.Text);
      Memo1.lines.Clear;
      Memo1.Lines.Add(slist2.text);
    end;
  except
  end;
  AStream.Free;
  SList1.Free;
  SList2.Free;
end;

//-------------------------------------------------

function TForm1.GetFrame(FrameNo: Integer): IWebbrowser2;
var
  OleContainer: IOleContainer;
  enum: IEnumUnknown;
  unk: IUnknown;
  Fetched: PLongint;
begin
  if Assigned(Webbrowser1.document) then
  begin
    Fetched := nil;
    OleContainer := Webbrowser1.Document as IOleContainer;
    OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
    Enum.Skip(FrameNo);
    Enum.Next(1, Unk, Fetched);
    Result := Unk as IWebbrowser2;
  end
  else
    Result := nil;
end;

//-------------------------------------------------

function TForm1.HtmlToText(const _html: string): string;
var WebBrowser: TWebBrowser;
   Document: IHtmlDocument2;
   Doc: OleVariant;
   v: Variant;
   Body: IHTMLBodyElement;
   TextRange: IHTMLTxtRange;
begin
   Result := '';

   WebBrowser := TWebBrowser.Create(nil);
   webbrowser.Silent := true;
   try
     Doc := 'about:blank';
     WebBrowser.Navigate2(Doc);
     Document := WebBrowser.Document as IHtmlDocument2;

     if (Assigned(Document)) then
     begin
       v := VarArrayCreate([0, 0], varVariant);
       v[0] := _html;
       Document.Write(PSafeArray(TVarData(v).VArray));
       Document.Close;

       Body := Document.body as IHTMLBodyElement;
       TextRange := Body.createTextRange;
       Result := TextRange.text;
     end;
   finally
     WebBrowser.Free;
   end;
end;

das klappt wunderbar. nur hab ich das problem, das, wenn ich mit der maus über das memo control geh, flackert der mauszeiger. des weiteren verliert mein control, was zur befehlssteuerung dient(ein tedit), sofort den focus, was eine befehlseingabe schlichtweg unmöglich macht.

desweiteren ist es, so scheint es mir, eine recht resourcenfressende angelegenheit. kann ich da noch was rausholen an leistungsfähigkeit bezüglich dieser 3 proceduren?

oder hat jemand eine idee, die mir gar nicht geläufig ist?

mfg matthias

[Medium]

Falls TMemo bzw. seine Strings-Property kein BeginUpdate() / EndUpdate() kennt, kann man sich ab und an damit helfen das Control zur Befüllung auf invisible zu stellen. Damit's nicht so auffällt evtl. einfach ein weisses Shape dahinter werfen :). U.U. hilft es auch schon CanFocus des Memos auf false zu setzen (falls es das da gibt, hab grad kein Delphi zur Hand).

Inwiefern meinst du "resourcenfressend"? Wenn es um Geschwindigkeit geht (was nicht zwangsweise mit Ressourcenhunger zu tun haben muss), dann würde ich die eigentliche Engstelle beim eigentlichen Datenverkehr suchen. Alle 0,5s ist schon ganz schön flott für ein paar HTML Anfragen. Machen kannst du daran leider wenig, da es von deinem Provider, dem Server, dem ISP des Servers und Leitung/Routing abhängt wie schnell so eine Anfrage fertig bearbeitet ist. Für solche Aufgaben ist HTML auch eigentlich nicht gedacht.

Edit: Ich kann mir auch vorstellen, dass das immer neue Erzeugen eines TWebbrowsers in HtmlToText() ziemlich kostspielig ist. Hier wäre es denke ich günstiger ein Mal zum Programmstart zu erzeugen, und dann zu recyclen.

[thkerkmann]

Hi,

und wenn es um Peformance geht, würde ich es mir verkneifen die Sache in ein Memo zu schreiben.
Behalte es lieber in einer Stringlist.
Wenn du für den Benutzer alle 0,5 sec das Memo updaten willst, kann er sowieso nichts mehr erkennen.

Gruss

[Matthias-k]

hm, das hab ich zu dem zeitpunkt gar nicht bedacht...

musste auch erstmal 2 tage frei nehmen von dem programm.

so, wenn ich alle 0,5 sek einen webbrowser, 2 stringlisten usw usf erzeuge und wieder kille, da liegt der hund begraben... hätte ich auch selbst drauf kommen können, das ich des global erledigen könnte...

ich werds gleich mal umsetzen...

thx!

p.s. das memo ist insofern für mich geeignet, weil ich noch keene andere kompo hab, die des relativ gleichwertig für mich erledigt... habs mit allem anderen schon versucht, listbox usw... aber das, was ich einfach mit dem memo umsetzen kann, geht mit anderen sachen nicht... weil jede andere kompo zerstört mir alles an formatierung usw...

[jaenicke]

Wozu überhaupt den TWebBrowser? Ich meine, ich sehe nirgends, dass du den auch anzeigst, also was willst du damit dann?
Nimm doch einfach TIdHttp, das ist deutlich schneller und einfacher...

[thkerkmann]

Stimmt,

ich werfe dazu auch nochmal meinen Favoriten Synapse ein ;-)

Delphi-Quellcode:

uses
  httpsend,
  ...

 ...

  if HttpGetText(URL, Response) then
   ...