| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как залить изображение на IPicture (с помощью Delphi)? [D7, WinXP]

Delpher! ©   (2008-08-08 23:57:00) 

Собственно, сабж...

Пробывал следующим образом, пишется что обнаружена ошибка (ответ от ипикчера)

procedure TForm1.Button1Click(Sender: TObject);
var
Data : TIdMultiPartFormDataStream;
str: string;
begin
Data:=TIdMultiPartFormDataStream.Create;
data.AddFormField('status', 'yes');
data.AddFormField('galleries', '12');
data.AddFile('userfile', edit1.Text, 'mime');
Data.AddFormField('Submit','1');
idhttp1.HandleRedirects := true;
idhttp1.Disconnect;
try
str := idHTTP1.Post(' http://ipicture.ru/Upload/', data); //stroka s otvetom
memo2.Text:=str;
finally
data.free;
end;

---

multiflex   (2008-08-12 07:28:00) [1]

Посмотри текст_запроса_твоего_браузера и увидь разницу. Любой снифер для этого юзай либо прокси с протоколированием, сразу увидиш в чем дело и где ошибка.

---

Delpher!   (2008-08-09 01:21:00) [2]

*Наиболее упрощённый PHP    - имел в виду HTML-код

Подскажите, плиз, решение проблемы! Заранее, спасибо!

---

Delpher!   (2008-08-09 01:20:00) [3]

Наиболее упрощённый PHP код для заливки рисунка на ипикче выглядит следующим образом:
<html>
<body>
<form action=" http://ipicture.ru/Upload/" id="upload" method="post" enctype="multipart/form-data" name="upload">

<input type='hidden' name='method' id='method' value='file'/>
Файл:<input type='file' name='userfile' id='userfile' size='60'/>
<input type="submit" style="width: 80px; height: 22px;" value="Загрузить">
<br><input name="status" id="status" type="checkbox" checked>
Скрытое изображение(Не будет отображаться в галерее)
</body>
</html>

Изменил код на следующий:
procedure TForm1.Button3Click(Sender: TObject);
var
Data : TIdMultiPartFormDataStream;
str: string;
begin
Data:=TIdMultiPartFormDataStream.Create;
data.AddFormField('uploadtype', '1');
data.AddFormField('method','file');
data.AddFormField('status', 'yes');
data.AddFile('userfile', edit1.Text, 'mime');
Data.AddFormField('Submit','1');
idhttp1.HandleRedirects := true;
idhttp1.Disconnect;
try
str := idHTTP1.Post(' http://ipicture.ru/Upload/', data); //stroka s otvetom
memo2.Text:=str;
finally
data.free;
end;
end;

В результате пишется что я пытаюсь загрузить запрещённый тип рисунка...
В Edit1 помещён обычный JPG-рисунок...

---

Наверх