Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.10.04;
Скачать: CL | DM;

Вниз

Как залить изображение на IPicture (с помощью Delphi)?   Найти похожие ветки 

 
Delpher!   (2008-08-08 23:57) [0]

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

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

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;


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

Наиболее упрощённый 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-рисунок...


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

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

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


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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
2-1248696896
LoveTT
2009-07-27 16:14
2009.10.04
Интерпретация символов самописным браузером


1-1218088634
ormada
2008-08-07 09:57
2009.10.04
xml rpc + wordpress


2-1248564636
xyz
2009-07-26 03:30
2009.10.04
занесение записи в БД ADO


15-1248955155
Galera
2009-07-30 15:59
2009.10.04
Tool для Delphi


15-1249065216
tesseract
2009-07-31 22:33
2009.10.04
Захватившие власть коммуноцентристы опять ...