webbrowser - banalne pytanie

0

Witam, zaczynam dopiero wiec i pytanie laickie: chce zaladowac do webbrowser kolejno 3 adresy stron, adres1, adres2, adres3 tylko w ten sposob zeby adres1 zaladowal się całkowićie i dopiero zaczoł się ładować adres2 itd... jak zastosowac cos w rodzaju WebBrowser1DocumentComplete

0
a1200 napisał(a)

Witam, zaczynam dopiero wiec i pytanie laickie: chce zaladowac do webbrowser kolejno 3 adresy stron, adres1, adres2, adres3 tylko w ten sposob zeby adres1 zaladowal się całkowićie i dopiero zaczoł się ładować adres2 itd... jak zastosowac cos w rodzaju WebBrowser1DocumentComplete

  1. "zaczoł"... zaczął.
  2. tak proste pytania prosimy kierowac do dzialu Newbie.
  3. tak, DocumentComplete sie tu przyda:
  4. globalna tablica z adresami+jedna zmienna liczbowa:
 [...]
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  adresy:array[1..3] of String;
  NrAdresu:byte=1;

implementation

potem w np buttonie:

NrAdresu:=1;
WebBrowser.Navigate( adresy[1] );//ladujemy pierwszy adres

i w OnDocumentComplete (czy jakos tak):

If NrAdresu<3 then
    begin
    NrAdresu:=NrAdresu+1; //lub Inc(NrAdresu);
    WebBrowser.Navigate( adresy[NrAdresu] );
    end
      else ShowMessage('3cia strona zostala zaladowana');

oczywiscie na samym poczatku trzeba wpisac do tablicy odpowiednie adresy.
albo w onCreate dac:

adresy[1]:='http://....';
adresy[2]:='http://....';
adresy[3]:='http://....';

albo przy deklaracji przypisac wartosci:

  adresy:array[1..3] of String= ('http://....', 'http://....', 'http://....');
</delphi>
0

Wielkie dzięki, oczywiście kod działa jednak wyobrażałem sobie to troszkę inaczej ( załaduje i zdąży wyświetlić)- teraz nie zawsze wyświetli całą stronę, jak już ładuje następną, wyświetla stronę 2 i już wyświetla komunikat o załadowaniu 3. Przy powtórnym wciśnięciu guzika to już nawet nie wyświetla stron: 1 i 2 tylko 3 i komunikat ze wszystkie są załadowane. Musze chyba dodać jakieś opóznienie żeby po załadowaniu każdej do końca stanął tam na np: 10 sek. Ale dzięki przynajmniej coś drgnęło.

1 użytkowników online, w tym zalogowanych: 0, gości: 1