Текущий архив: 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.011 c
