Wie kann ich ein File uploaden [erledigt]

[StoRmtec]

Hallo

Habe eine fragen wie kann ich hiermit ein File uploaden
Das ganze läuft über eine upload.jsp der Code sieht so aus

Code:

<form method="post" action="upload.jsp" name="upform" enctype="multipart/form-data">

<input type="file" class="stdin" name="uploadfile" size="30">
Eventid: <input type="text" name="eventid">


<input type="hidden" name="todo" value="upload">
<input type="submit" name="upload">

</form>

Er füllt mir die Eventid aus und drückt auch den Submit Button aber bei dem File Input kommt nicht rein.

Delphi-Quellcode:

WebBrowser2.ControlInterface.Document.QueryInterface(IHtmlDocument2,iDoc);
  if not assigned(iDoc) then begin
    ShowMessage(' !!!??? Nothing dowloaded ... ');
    Exit;
  end;
  ov:='INPUT';
  IDisp:=iDoc.all.tags(ov);
  if assigned(IDisp) then begin
     IDisp.QueryInterface(IHTMLElementCollection,iColl);
     if assigned(iColl) then begin
       for i:=1 to iColl.Get_length do begin
         iDisp:=iColl.item(pred(i),0);
         iDisp.QueryInterface(IHTMLInputElement,iInputElement);
         if assigned(iInputElement) then begin
          if iInputElement.Get_type_='file'
           // hier das bild das upgeloadet wird
           then iInputElement.Set_value('c:\image1.jpg');
           if iInputElement.Get_name='eventid'
            // hier die eventid eintragen
           then iInputElement.Set_value('1586');
            if iInputElement.Get_name='todo'
            // hier eingeben was er machen soll
           then iInputElement.Set_value('upload');
            //hier wird der Button geklickt
           if iInputElement.Get_name='upload'
           then iInputElement.Get_form.submit;
         end;
       end;
     end;
end;
end;

Eine
input type="file" auffüllen lassen das mit dem
input type="text" das geht wunderbar

Oder vielleicht hat wer eine anderes Beispiel

Mfg
Martin