testupload.jsp ausfüllen und upload.jsp ausführen

[StoRmtec]

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

[Muetzi]

einen teil der procedure...namlich der teil den du zum füllen nimmst in
ondocumentcomplete des webbrowsers setzen...



gruß

muetzi

[StoRmtec]

Das geht ja nicht oder weil es geht ja um die upload.jsp das die ausgeführt wird und das er dann wartet bis das bild dann upgelodet ist und dann von vorne mit dem füllen wieder anfängt in der testupload.jsp

mfg
StoRmtec

[Alibi]

Die <input type="file"> Felder sind beim IE sinnvollerweise ReadOnly.

[horst]

es geht doch...man kann ein inpute type file ausfüllen:

Delphi-Quellcode:

procedure TForm1.SetFilename(Value: WideString); 
var 
  Doc: IHTMLDocument2; 
  Elements: IHTMLElementCollection; 
  Element: IHTMLElement; 
  InputElement: IHTMLInputElement; 
  I, j: Integer; 
  FormItem: Variant; 
  pch: PChar; 
  str1: string; 
begin 
  str1 := Value; //convert input value to string 
  pch := PChar(str1); //type cast to pointer 

  Doc := WebBrowser1.Document as IHTMLDocument2; 
  Elements := Doc.all; 
  for I := 0 to Elements.length - 1 do 
  begin 
    Element := Elements.item(I, EmptyParam) as IHtmlElement; 
    if Element.tagName = 'INPUT' then 
    begin 
      InputElement := Element as IHTMLInputElement; 
      if (SameText(InputElement.type_, 'file')) and 
        (SameText(InputElement.Name, 'name')) then 
      begin 
        FormItem := InputElement; 
        FormItem.Focus; 
        SendKeys(PCh, False); // NOTE the false flag 
      end; 
    end; 
  end; 
end;

du brauchst dazu die SNDKEY32.PAS... ist auf der delphi cd in X:\INFO\EXTRAS\SENDKEYS
quelle:
http://groups.yahoo.com/group/delphi...r/message/6832