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