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

zusammenfalten · markieren

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

Warten bis Script vollständig geladen ist

Warten bis Script vollständig geladen ist

Forumregeln