Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > idHTTP - POST

Автор: iddqd 30.1.2006, 17:46

Необходимо в POST запросе передать картинку скрипту. Помогите пожалуйста реализовать, а то уже долго бьюсь.
http://imageshack.us/ хотелось бы передать сюда картинку и получить URL на который перекидывает при успешной заливке, а в идеале ссылку отсюда: Direct link to image

Автор: Snowy 30.1.2006, 17:50

Используй вариант

Код

function Post(AURL: string; const ASource: TIdMultiPartFormDataStream): string;

Для отправки POST данных используй TIdMultiPartFormDataStream.
Туда можно добавлять данные разных типов, в том числе и картинки.

Автор: iddqd 30.1.2006, 18:25

По нажатию на кнопку пишу код:

Код


begin
m:=TIdMultiPartFormDataStream.Create;
m.AddFile('fileupload', 'D:\ic.gif', 'multipart/form-data');
Caption:=http.Post('http://www.imageshack.us/index.php', m);
m.Free;
end;

Не работает. Подскажите пожалуйста, как сделать правильно и чтоб получить ссылку на страницу, куда перенаправляет после успешной загрузки картинки.

Автор: Snowy 30.1.2006, 19:12

Код


m.AddFile('fileupload', 'D:\ic.gif', 'IMAGE');

Добавлено @ 19:13

Цитата(iddqd @ 30.1.2006, 18:25

)

Подскажите пожалуйста, как сделать правильно и чтоб получить ссылку на страницу, куда перенаправляет после успешной загрузки картинки.

Установи TIdHTTP.HandleRedirects := true;

Автор: iddqd 30.1.2006, 20:58

Snowy, спасибо большое.
там надо было ещё немного одбавить кода, чтоб получить конкретно то, что я хочу, но всё получилось в итоге.

Автор: Rodman 24.9.2006, 22:21

Скажите, а если я хочу на свой хост кинуть файл... то мне необходимо наваять свой php-файл, который будет принимать файл... или он сам формируется..

Не пойму???

Автор: Snowy 25.9.2006, 09:24

Сам он никак не формируется - нужно писать принимающий скрипт, который и будет решать, что с этим файлом делать.

Автор: Rodman 25.9.2006, 12:41

Вот не задача....

Подскажите, пожалуйста, простейший скрипт на PHP...

smile

чтобы подходил под этот метод

Код



procedure TForm1.BitBtn1Click(Sender: TObject);
var m:TIdMultiPartFormDataStream;
begin
  m:=TIdMultiPartFormDataStream.Create;
  m.AddFile('fileupload', 'C:\gb.gif', 'IMAGE');
  Caption:=IdHTTP1.Post('http://MyHost/MyUpload.php', m);
  m.Free;
end;

В PHP ничего не отсреливаю.... smile

Заранее благодарен

Автор: Snowy 25.9.2006, 12:59

Ну так поищи в разделе по PHP.
Хотя даже и искать долго не нужно - FAQ: http://vingrad.ru/PHP-PHPSCRIPTS-002361

Автор: Matematik 25.9.2006, 13:03

Цитата(Rodman @ 25.9.2006, 13:41

)

Подскажите, пожалуйста, простейший скрипт на PHP...

В PHP доступ к загружаемым файлам через массив $_FILES

Код


<?php
// В PHP 4.1.0 и более ранних версиях следует использовать $HTTP_POST_FILES 
// вместо $_FILES.

$uploaddir = '/var/www/uploads/';
$uploadfile = $uploaddir . basename($_FILES['userfile']['name']);

print "<pre>";
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploadfile)) {
    print "File is valid, and was successfully uploaded. ";
    print "Here's some more debugging info:\n";
    print_r($_FILES);
} else {
    print "Possible file upload attack!  Here's some debugging info:\n";
    print "Possible file upload attack!  Дополнительная отладочная информация:\n";
    print_r($_FILES);
}
print "</pre>";

?>

Добавлено @ 13:05
Только к твоему вопросу это не имеет никакого отношения.
Тебе надо сформировать post запрос на http сервер imageshack, и распарсить html ответ.
Для начала научись правильно отправлять

Автор: Rodman 25.9.2006, 13:14

Как бы понимаешь... Мне как бы PHP и не нужен был пока не требовалось загрузку картинки сделать...

Просто на сколько я знаю от своих знакомых, upload не такая простая вешь... Так что пока разберусь, могу не успеть додела... вот и прошу простейший пример, чтобы подошел к вышеуказанному коду...

Добавлено @ 13:15
Просто знающие должны знать как это делается...

Автор: Snowy 25.9.2006, 13:29

Если PHP не устраивает - загружай по ftp.
Если не устраивает ftp - PHP или Perl.
А пример тебе уже дали...

Автор: Rodman 25.9.2006, 13:41

Цитата(Matematik @ 25.9.2006, 13:03

)

Только к твоему вопросу это не имеет никакого отношения.

вот эти слова и подвигнули меня на мысль, пример не совсем то что мне нужно...

Цитата(Matematik @ 25.9.2006, 13:03

)

Тебе надо сформировать post запрос на http сервер imageshack, и распарсить html ответ.

Что значит распарсить???

Автор: Snowy 25.9.2006, 13:45

Анализировать полученную страницу и вытащить из неё нужные данные.

Автор: Rodman 25.9.2006, 14:12

ОК... А куда кинуть этот php???

В cgi-bin???

Добавлено @ 14:18
Я вот написал...

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
var m:TIdMultiPartFormDataStream;
begin
  m:=TIdMultiPartFormDataStream.Create;
  m.AddFile('fileupload', 'C:\gb.gif', 'IMAGE');
  Caption:=IdHTTP1.Post('http://localhost/MWUpload.php.php', m);
  m.Free;
end;

и когда компилю выдает

Код


class EIdHTTPProtocolException with message 'HTTP/1.1 404 Not Found'...

как настроить IdHttp???

Автор: Matematik 25.9.2006, 14:19

Цитата(Rodman @ 25.9.2006, 15:12

)

куда кинуть этот php???

в корневой каталог ХТТП сервера

Автор: Snowy 25.9.2006, 14:19

Rodman, эти вопросы не в этот раздел.
Это раздел по дельфи, а не по php и хостинге!
Данные вопросы уже выходят за рамки обсуждаемой темы.

Добавлено @ 14:20
При дальнейшем оффтопе - закрою тему.

Автор: Rodman 25.9.2006, 15:07

Хорошо....

Автор: CLIPSA 27.2.2007, 23:05

Цитата(Matematik @ 25.9.2006, 13:03)

Цитата(Rodman @ 25.9.2006, 13:41

)

Подскажите, пожалуйста, простейший скрипт на PHP...

В PHP доступ к загружаемым файлам через массив $_FILES

Код


<?php
// В PHP 4.1.0 и более ранних версиях следует использовать $HTTP_POST_FILES 
// вместо $_FILES.

$uploaddir = '/var/www/uploads/';
$uploadfile = $uploaddir . basename($_FILES['userfile']['name']);

print "<pre>";
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploadfile)) {
    print "File is valid, and was successfully uploaded. ";
    print "Here's some more debugging info:\n";
    print_r($_FILES);
} else {
    print "Possible file upload attack!  Here's some debugging info:\n";
    print "Possible file upload attack!  Дополнительная отладочная информация:\n";
    print_r($_FILES);
}
print "</pre>";

?>

Как сформировать post к этому PHP скрипту? Что именно нужно написать чтоб вызвать этот скрипт и загрузить файл? smile

Например файл находится C:\file.txt

Автор: Matematik 28.2.2007, 01:12

Пример для ImagesHack.
Когда жмешь в ImagesHack кнопку "upload it!" браузер посылает серверу это

Код


POST / HTTP/1.1
Host: imageshack.us
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.2) Gecko/20070219 Firefox/2.0.0.2
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://imageshack.us/
Cookie: imgshck=0d83fce5ec1a5b402791525296fe866f; latest=img105; flashInstalled=9.0  r28; nopopunder=1; PHPSESSID=23b08e0dde27d5b3c1fba2b0a399cb9b
Content-Type: multipart/form-data; boundary=---------------------------2221348928155
Content-Length: 8781

-----------------------------2221348928155
Content-Disposition: form-data; name="uploadtype"

on
-----------------------------2221348928155
Content-Disposition: form-data; name="fileupload"; filename="patsak.gif"
Content-Type: image/gif

GIF89a*.... 
!!!и далее содержание GIF файла!!!
-----------------------------2221348928155
Content-Disposition: form-data; name="url"

paste image url here
-----------------------------2221348928155
Content-Disposition: form-data; name="email"


-----------------------------2221348928155
Content-Disposition: form-data; name="MAX_FILE_SIZE"

13145728
-----------------------------2221348928155
Content-Disposition: form-data; name="refer"


-----------------------------2221348928155
Content-Disposition: form-data; name="brand"


-----------------------------2221348928155
Content-Disposition: form-data; name="optsize"

320x320
-----------------------------2221348928155--

В Delphi это выглядит так.

Код


procedure TMainForm.bUploadClick(Sender: TObject);
var
  ASource: TIdMultiPartFormDataStream;
begin
  ASource := TIdMultiPartFormDataStream.Create;
  ASource.AddFile('fileupload', OpenDialog1.FileName, '');
//---------------------------------------------------------------------------
// поидее надо еще добавить эти поля, но методом тыка выясняется что они необязательны, сайт принимает файл без них
//  ASource.AddFormField('uploadtype', 'on');
//  ASource.AddFormField('url', 'paste image url here');
//  ASource.AddFormField('email', '');
//  ASource.AddFormField('MAX_FILE_SIZE', '13145728');
//  ASource.AddFormField('refer', '');
//  ASource.AddFormField('brand', '');
//  ASource.AddFormField('optsize', '320x320');
//----------------------------------------------------------------------------
  IdHTTP1.Request.Referer := 'http://www.imageshack.us/';
  IdHTTP1.Post('http://www.imageshack.us/', ASource);
  ASource.Free;
end;

.Post возвращяет HTML текст со ссылкой на загруженную картинку

Автор: Lence 11.4.2007, 19:06

Вот мой код

Код


        http1.CookieManager:=IdCookieManager1 ;
        http1.Request.ContentType := 'multipart/form-data;';
        http1.Request.Connection:= 'Keep-Alive, TE';
        HTTP1.Request.Host:= 'site.com';
        http1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
        http1.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
        http1.Request.AcceptCharSet:='iso-8859-1, utf-8, utf-16, *;q=0.1' ;
        http1.Request.AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';
        HTTP1.Request.Referer := 'http://site.com/';
        http1.Request.UserAgent:='Opera/9.01 (Windows NT 5.1; U; ru)';
        http1.ProtocolVersion:= pv1_1;

        ASource.AddFormField('MAX_FILE_SIZE','52428800');
        ASource.AddFile('userfile[]', ExtractFileName(OpenDialog1.FileName) , '');
        ASource.AddFormField('comment',comment.Text);
        ASource.AddFormField('n',code.Text);
        s:= Http1.Post ('http://site.com', ASource);

Но мне постоянно S возвращает сообщение, что я ввел не верный код картинки

вот что посылает прога

Цитата

POST / HTTP/1.0
User-Agent: Opera/9.01 (Windows NT 5.1; U; ru)
Host: site.com
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Referer: http://site.com/
Cookie: PHPSESSID=57658ea4afb8784d4e631c418ea1c406
Connection: Keep-Alive, TE

Content-Type: multipart/form-data; boundary=--------041107202907027

----------041107202907027

Content-Disposition: form-data; name="MAX_FILE_SIZE"

52428800

----------041107202907027

Content-Disposition: form-data; name="userfile[]"; filename="1.txt"
Content-Type: text/plain

hello!!!

----------041107202907027

Content-Disposition: form-data; name="comment"

dfdfgdfg

----------041107202907027

Content-Disposition: form-data; name="n"
5715
----------041107202907027--

а вот что посылает браузер

Цитата

User-Agent: Opera/9.02 (Windows NT 5.1; U; ru)
Host: site.com
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Referer: http://site.com
Cookie: PHPSESSID=c3f7a4f24c99d17ba0ad3c8cbeb6e176
Cookie2: $Version=1
Connection: Keep-Alive, TE
TE: deflate, gzip, chunked, identity, trailers
Content-Length: 484
Content-Type: multipart/form-data; boundary=----------oCTxkexXiV6CtCd8gKxB9y

------------oCTxkexXiV6CtCd8gKxB9y

Content-Disposition: form-data; name="MAX_FILE_SIZE"

52428800

------------oCTxkexXiV6CtCd8gKxB9y

Content-Disposition: form-data; name="userfile[]"; filename="hello.txt"
Content-Type: text/plain

hello!!!
------------oCTxkexXiV6CtCd8gKxB9y

Content-Disposition: form-data; name="comment"

... ........... . .....
------------oCTxkexXiV6CtCd8gKxB9y
Content-Disposition: form-data; name="n"

4610
------------oCTxkexXiV6CtCd8gKxB9y--

в чем косяки ??? почему у меня ссесия не валидна все время ? хотя я сравнивал и гет и пост на равенство ссесий - все отлично, а при передачи неравно :( и говорит что код картинки не верно ввел ...

Автор: _hunter 11.4.2007, 19:22

а ты уверен что посылаеш правильный код? -- картинка-то постоянно меняется...

Автор: pave 11.4.2007, 19:26

можно добавить в начале кода чтото вроде:
http1.Request.ContentType := (из MultiPart.ContentType )
http1.Request.ContentLength := (из MultiPart.Size )
http1.AllowCookie := true

Автор: Lence 12.4.2007, 14:47

Цитата(pave @ 11.4.2007, 19:26)

Это все стоит правильно и картинку тоже ввожу верно.
Вначале я запрашиваю сраничку Get'ом - парсю ее выдераю ссылку до картинке - вытягиваю картинку и показываю ее в проге - потом все поля передаю POST'ом все обратно ... и полученая страница пишет что Ошибка в коде проверки :(

меня смущают следующие неравенства в отпраке запроса

Браузер передает в заголовке еще :

Цитата

Cookie2: $Version=1
TE: deflate, gzip, chunked, identity, trailers

этого в порге у меня не передается. Незнаю как добавить эти параметры в проге.
А еще POST в проге пишет POST / HTTP/1.0 хотя браузер показывает POST / HTTP/1.1 ...
POST / HTTP/1.0 - поддерживает закачку файлов ? как сделать, чтоб прога посылала POST / HTTP/1.1
хотя я указываю http1.ProtocolVersion:= pv1_1;

В этом ли косяк ?

Автор: Lence 16.4.2007, 22:31

Никто не знает в чем проблема ??? smile

Автор: aktuba 17.4.2007, 08:05

Цитата

Cookie2: $Version=1
TE: deflate, gzip, chunked, identity, trailers

Попробуй добавить такие строки в заголовок. Request.Headers вроде, точно не помню...

Автор: Dima85 19.7.2007, 11:51

Цитата(iddqd @ 30.1.2006, 20:58)

А как вам удалось вывести адрес картинки? Расскажите пожалуйста.