TWebBrowser Links aus Memo abarbeiten

[blitzschutz]

Guten Abend!

Warum funktioniert folgender Code nicht:

Delphi-Quellcode:

For anzahl := 0 to memLinks.Lines.Count - 1 do
begin
 If wbs1.ReadyState = READYSTATE_COMPLETE then
 begin
       wbs1.Navigate( memLinks.Lines.Strings[anzahl]);
 end;
        //memLinks.Lines.Delete(anzahl);
end;

Der Webbrowser soll nacheinander die URL's aufrufen, die im Memofeld
gespeichert sind. Muß noch hinzufügen, daß in der Webbrowserkompo vorher
eine Seite geladen ist.

Leider macht er gar nichts! Ich kanns mir nicht erklären.
Vielleicht hat einer von Euch eine Antwort darauf.

Danke!

[blitzschutz]

Ich habs!!!!!!!!!!

Delphi-Quellcode:

For anzahl := 0 to memLinks.Lines.Count - 1 do
begin
 If wbs1.ReadyState >= READYSTATE_COMPLETE then
 begin
    wbs1.Navigate(memLinks.Lines.Strings[anzahl]);
    //nur ums richtig zu sehen
     sleep(1000); 
    Application.ProcessMessages; // --> die entscheidende Zeile
    end;
     //memLinks.Lines.Delete(anzahl);
end;

Das Forum hat mir dabei gut geholfen! In Zukunft werde ich erst mal suchen.

[ibp]

Zitat:

Zitat von blitzschutz

Das Forum hat mir dabei gut geholfen! In Zukunft werde ich erst mal suchen.

...sehr löblich! :thumb: