TWebbrowser Cache leeren

[Phil1977]

Mir fällt gerade auch auf, dass nur folgendes klappt bei mir:

Delphi-Quellcode:

Form1.Webbrowser1.Refresh2;

Wenn ich diesen hier verwende:

Delphi-Quellcode:

Form1.Webbrowser1.Refresh2(REFRESH_COMPLETELY);

...kommt "there is no overload version of refresh2...

[thkerkmann]

Hi

versuch mal an die URL einen weiteren Parameter anzuhängen, den du immer neu ermittelst. z.B:

Delphi-Quellcode:

  Webbrowser1.Navigate(URL + '&timestamp=' + FormatDateTime('yyyymmddhhnnsszzz', Now));

Damit wird der Cache des Internet Explorer ausgetrickst, den Server stört das aber meist nicht.
Wenn deine URL bereits eine Variable enthält (wie bei dir) hängst Du die nächste mit & dran,
wenn nicht, dann ist es die erste und wird mit ? angehängt.

Gruss

[fatalerror]

Vielleicht hilft ja das?

Delphi-Quellcode:

WebBrowser1.Navigate(URL,NavNoReadFromCache);

[toms]

Zitat:

Zitat von fatalerror

Vielleicht hilft ja das?

Delphi-Quellcode:

WebBrowser1.Navigate(URL,NavNoReadFromCache);

Gute Idee. Aber... navNoReadFromCache Not implemented.

[toms]

Zitat:

Zitat von Phil1977

...kommt "there is no overload version of refresh2...

Aktualisiere das Webbrowser Control

[paperboy]

Hallo Phil1977,

hatte vor einer weile das selbe Problem...
hab dann beim suchen rausgefunden das TWebbrowser und und der Internet Explorer den selben Cache benutzen...
Eine weitere Googlesuche später fand ich dann das:

DelphiFAQ

hoffe ich konnte helfen...

beachte die Kommentare weiter unten auf der Seite da der Code auch Cookies löscht was natürlich nicht in allen
Fällen erwünscht sein dürfte... Lösung dazu, wie gesagt, in den Kommentaren...

lg paperboy

[toms]

Cached-URL löschen nach dem Navigieren (etwas "dirty"...)

Delphi-Quellcode:

procedure NavigateNoHistory(WebBrowser: TEmbeddedWB; const URL: string);

  function StrToChr(Str: string; Pos: Integer): Char;
  begin
    Result := Str[Pos];
  end;

var
  Flags: OleVariant;
  HistoryStg: IUrlHistoryStg;
begin
  Flags := navNoHistory;
  WebBrowser.Navigate(WideString(URL), Flags);
  Wait(WebBrowser);
  HistoryStg := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg;
  HistoryStg.DeleteUrl(PWideChar(StrToChr(URL, 0)), 0);
end;