AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi testupload.jsp ausfüllen und upload.jsp ausführen

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

Ein Thema von StoRmtec · begonnen am 22. Dez 2003 · letzter Beitrag vom 15. Feb 2004
Antwort Antwort
StoRmtec

Registriert seit: 6. Jan 2003
209 Beiträge
 
#1

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

  Alt 22. Dez 2003, 11:07
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
  Mit Zitat antworten Zitat
Muetzi
(Gast)

n/a Beiträge
 
#2

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

  Alt 22. Dez 2003, 11:13
einen teil der procedure...namlich der teil den du zum füllen nimmst in
ondocumentcomplete des webbrowsers setzen...



gruß

muetzi
  Mit Zitat antworten Zitat
StoRmtec

Registriert seit: 6. Jan 2003
209 Beiträge
 
#3

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

  Alt 22. Dez 2003, 11:44
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
  Mit Zitat antworten Zitat
Alibi

Registriert seit: 15. Aug 2003
Ort: Bispingen
94 Beiträge
 
Delphi 7 Personal
 
#4

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

  Alt 22. Dez 2003, 13:41
Die <input type="file"> Felder sind beim IE sinnvollerweise ReadOnly.
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#5

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

  Alt 15. Feb 2004, 10:54
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 = 'INPUTthen
    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
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz