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