VPF::Загрузка изображения на сервер qiq.ru

mr_smit

Дата 16.10.2008, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Не удается загрузить изображение на qiq.ru.

Логин: poligon85 - реальные (для теста)
Пароль: 333

Порядок действий:

Проходим авторизацию:

Код


procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
begin
lData := TStringList.Create;

// лог на qiq.ru

  lData.Add('action=login');
  lData.Add('login=poligon85');
  lData.Add('pass=333');
  lData.Add('mem=1');
  IdHTTP1.Post('http://qiq.ru/', lData);

// переходим на страницу добавления новости

  Form1.Memo1.Lines.Text:=IdHTTP1.Get('http://qiq.ru/post.php?add');
end;

Переходим на страницу где можно загрузить картинку:

Код


Form1.Memo1.Lines.Text:=IdHTTP1.Get('http://qiq.ru/image.php?pid=');

Загружаем:

Код


try
  Response:=TStringStream.Create('');
  Form:=TidMultiPartFormDataStream.Create;
  Form.AddFile('1.jpg', 'C:\Documents and Settings\user\Desktop\1.jpg', 'image/jpeg');

  idHTTP1.Post('http://qiq.ru/image.php',Form,Response);

finally
  Form1.Memo1.Lines.Text:=Response.DataString; //(Response);
  Form.Free;
  Response.Free;
end;

Проблема в том что в ответе нет ссылок на картинку. Т. е. она не загружается. ПОЧЕМУ? Что не так?

Это сообщение отредактировал(а) mr_smit - 16.10.2008, 16:45

mr_smit

Дата 17.10.2008, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Вот что отправляет браузер:

Код


-----------------------------174211871619718\r\nContent-Disposition: form-data; name="action"\r\n\r\naddimage\r\n-----------------
------------174211871619718\r\nContent-Disposition: form-data; name="image"; filename="1.jpg"\r\nContent-Type: image/jpeg\r\n\r\nÿØÿà

может какое то поле нужно добавить?

Форма со страницы:

Код


<form method="post" enctype="multipart/form-data" 
onSubmit="ob('loading-layer').style.top=(265+document.body.scrollTop); ob('loading-layer').style.display ='block';">
<input type="hidden" name="action" value="addimage" />
<b>Выберите файл:</b> &nbsp;<input type="file" name="image" size=35/> <br>

<b>Или введите URL по 1 на строку:</b>  <br>
<textarea  name="url" rows=3 cols=45/></textarea><br>
<!--b>Или введите URL галереи:</b><br> <input type=text name=gurl size=60><br-->
 <br><br>
<input type="submit" value="Загрузить картинку" 
style="background-color: #006400; color: White; font-size: 16px; height: auto; font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-weight: bold;" />
</form>

Кодировка страницы UTF-8, может имя файла тоже в этой кодировке надо отправлять? smile

Это сообщение отредактировал(а) mr_smit - 17.10.2008, 18:06

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »