Hallo Leute
Habe eine Frage.
Habe das schon hinbekommen das er mir meine testupload.jsp ausfüllt und auch abschickt aber wie kann ich jetzt warten, bis er mir dann die upload.jsp ausgeführt hat weil da kommt dann das result nach und dann wieder von vorne anfängt.
Das ist der Code wo ich das testupload.jsp ausfülle.
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);
until WebBrwoser1.ReafyState = 4;
end;
und jetzt sollte er dann warten bis das upload.jsp komplett ausgeführt ist.
Mfg
StoRmtec