Текущий архив: 2007.01.14;
Скачать: CL | DM;

Вниз

Upload файла через HTML форму из Delphi   Найти похожие ветки 

← →
PHPDeveloper   (2006-12-19 21:25) [0]

Доброго времени суток.
Делаю так:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
iLoop: Integer;
stPostData: String;
begin
stPostData:="submit_check=1&location0=file&file_local0=E:\Documents and Settings\ASDF\Desktop\image005.gif";
vHeaders:= "Content-Type:application/x-www-form-urlencoded"+ #10#13#0;
vPostData:= VarArrayCreate([0, Length(stPostData)], varByte);
for iLoop := 0 to Length(stPostData)- 1 do
 begin
  vPostData[iLoop]:= Ord(stPostData[iLoop+1]);
 end;
vPostData[Length(stPostData)]:= 0;
TVarData(vPostData).vType:= varArray;
vWebAddr:="http://picsaway.com/upload.php";
vFlags:=navNoWriteToCache;
vFrame:=EmptyParam;
try
 WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders);
except
end;
end;



Код формы:

<form ENCTYPE="multipart/form-data" method="POST" name="form1" action="upload.php" onsubmit="disableme("button"); return true;">
<input type="hidden" name="submit_check" value="1">
<table border="0"><tr>
<td class="maintext" id="upload_container">
<center>Upload <input name="location0" value="file" onclick="showhide(true, 0);" checked="checked" type="radio"> file <input input name="location0" value="url" onclick="showhide(false, 0);" type="radio"> url</center><center>

<input onchange="showoptions(this)" name="file_local0" id="file0" size="70" style="width: auto; display:block;" type="file"><input type="text" name="file_url0" id="url0" value="paste image url here" style="color:#888; display:none; width:400;" onfocus="focusfield(this)"></center>
</td>
</tr>
</table>
<table border="0" align="center"><tr>
<td align="center" class="maintext"><center>

<div id="filetypeerror" style="display: none"> <b style="color: red;">Please select only one of the supported file types: jpg, gif, png, swf<br></div>

<input id="button" type="submit" name="submit" value="Upload it!">
<center>Valid file types: jpeg, jpg, gif, png, swf<br>
Filesize limit: 2048KB

<br><br>Please make sure to read our <a href="tos.php" target="_blank">Terms Of Service</a>.</center></td>
</tr>
</table>
</form>

В итоге файл не "заливается", появляется окно, мол файл загружен, но ссылок на файл не выводится.
В чем ошибка? Вроде бы правильно делаю. Подскажите

---

← →
Zeqfreed ©   (2006-12-19 21:29) [1]

Вау, аплоад файла через твебброузер, жесть :)

---

← →
PHPDeveloper   (2006-12-19 21:30) [2]

ага, а что делать то, приходиться :)

---

← →
PHPDeveloper   (2006-12-19 21:40) [3]

Пробую также заполнить поле, куда вводится путь к файлу:
WebForm:= WebBrowser1.OleObject.document.forms.item("file_local0");
WebForm.value:="path...";
Ошибка...
Знаю, что из-за того, что из-за типа поля type="file"

---

← →
PHPDeveloper   (2006-12-19 22:02) [4]

Так, понятно, HTTP загловок, должен быть: enctype: multipart/form-data
Но от этого ничего не менятеся. неужели никто не может подсказать?

---

← →
Zeqfreed ©   (2006-12-19 22:19) [5]

Не дураки делали, зачем ты хочешь обмануть сервис?

---

Страницы: 1 вся ветка

Текущий архив: 2007.01.14;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.039 c