Warten bis Script vollständig geladen ist

[StoRmtec]

Hallo Leute

Habe ein Programm das mir ein File uploaden mit Hilfe einen Webbrowser und einen upload.jsp file

Ich führe das ganze so aus

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
i: Integer;
begin
ProgressBar1.min := 1;
ProgressBar1.step := 1;
ProgressBar1.max := CheckListBox1.Items.Count;
for i := 0 to CheckListBox1.Items.Count -1 do
begin
  WebBrowser1.Navigate('http://www.stumpner.net/uploadbean/testupload.jsp');
  repeat
        Application.ProcessMessages;
        Sleep(100);
  until WebBrowser1.ReadyState = 4;
  WebBrowser1.OleObject.Document.Forms.item(0).elements.item('eventid').Value:=Edit3.Text;
  Clipboard.AsText :=  CheckListBox1.items[i];
  WebBrowser1.OleObject.Document.Forms.item(0).elements.item('uploadfile').Focus;
  repeat
    Application.ProcessMessages;
    Sleep(100);
  until WebBrowser1.ReadyState = 4;
  KeyPreview:=False;
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0),0,0);
  keybd_event(Word('V'), MapVirtualKey(Word('V') , 0),0,0);
  keybd_event(Word('V'), MapVirtualKey(Word('V') , 0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0),KEYEVENTF_KEYUP,0);
  repeat
    Application.ProcessMessages;
    Sleep(100);
  until WebBrowser1.ReadyState = 4;
  WebBrowser1.OleObject.Document.Forms.item(0).submit;
  ProgressBar1.Position := i+1;
   repeat
    Application.ProcessMessages;
    Sleep(100);
end;

Die Files sind in einer CheckListBox gespeichert.
Jetzt möchte ich wenn er mit einem File fertig ist das er dann das script neu aufbau weil zur Zeit macht er es auch aber er lädt mir dann nur das letzte File hoch.

Vielleicht hat wer eine Idee das man da vielleicht eine Abfrage einbauen kann wenn das Script wirklich durch ist das er erst dann wieder macht.

Wäre super wenn wer eine Antwort hätte.

Mfg
StoRmtec

[StoRmtec]

Hat den keiner eine Ahnung wie man da ne art Bremse oder irgendwas einbauen kann das er nicht immer gleich die Seite neu reinlädt.

Mfg
StoRmtec

[horst]

nach dem versenden wird doch eine folgeseite geladen, du könntest abfragen wann diese seite vollständig geladen wurde...?
so vielleicht:

Delphi-Quellcode:

if WebBrowser2.LocationURL='http://www.stumpner.net/uploadbean/gesendet.jsp' then
begin

wofür verwendest du
until WebBrowser1.ReadyState = 4; ?
und

Delphi-Quellcode:

KeyPreview:=False; 
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0),0,0); 
  keybd_event(Word('V'), MapVirtualKey(Word('V') , 0),0,0); 
  keybd_event(Word('V'), MapVirtualKey(Word('V') , 0),KEYEVENTF_KEYUP,0); 
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0),KEYEVENTF_KEYUP,0);