VPF::Залить картинки. - Форум программистов

iddqd

Дата 21.8.2006, 09:08 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Необходимо программно залить картинки на хостинги.
Я сделал заливку на www.imageshack.us вот код:

Код


function GetContentType(Filename: string): string;
var
  ext: string;
begin
  ext := ExtractFileExt(Filename);
  result := 'text/html';
  if ext = 'bmp' then result := 'image/bmp';
  if (ext = 'jpg') or (ext = 'jpeg') then result := 'image/jpeg';
  if ext = 'png' then result := 'image/png';
end;

function ExecuteScr(Src: string): string;
var
  Form: TidMultiPartFormDataStream;
  Response: TStringStream;
begin
  Response := TStringStream.Create('');
  Form := TidMultiPartFormDataStream.Create;
  Form.AddFile('fileupload', Src, GetContentType(Src));
  Form1.idHTTP1.Post('http://imageshack.us/index.php', Form, Response);
  Result := ExtractImageUrl(Response.DataString, true);
  Form.Free;
  Response.Free;
end;

ExtractImageUrl - функция парсит хтмл и находит ссылку на картинку.

Помогите, пожалуйста сделать заливку на www.hidebehind.com и www.fapomatic.com
По-моему первый требует какой-то авторизации, а со вторым вобще не понятно.
Есть какие-нибудь идеи?

--------------------

Дата 21.8.2006, 15:45 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 10
Всего: 115

Первый не требует авторизации, зато требует

POST: http://www.hidebehind.com/free-image-hosting.php

POST DATA:

Цитата

upl0ad[]    filename="" Content-Type: application/octet-stream
percent0    100%
upl0ad[]    filename="" Content-Type: application/octet-stream
percent1    100%
upl0ad[]    filename="C:\1.jpg" Content-Type: image/pjpeg
percent2    100%
share    1
adult    1
submit.x    31
submit.y    10

Второй:

POST: http://fapomatic.com/upload.php

POST Data: userfile=C:\MyFile.jpg

iddqd

Дата 21.8.2006, 16:00 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

К сожалению сейчас проверить не могу.
Т.е первый случай вот так:

Код


function ExecuteScr(Src: string): string;
var
  Form: TidMultiPartFormDataStream;
  Response: TStringStream;
begin
  Response := TStringStream.Create('');
  Form := TidMultiPartFormDataStream.Create;
 Form.AddFormField('upl0ad[]', '');
Form.AddFormField('percent0', '100');
Form.AddFormField('upl0ad[]', '');
Form.AddFormField('percent1', '100');
  Form.AddFile('fileupload', Src, GetContentType(Src));
Form.AddFormField('percent2', '100');
Form.AddFormField('share', '1');
Form.AddFormField('adult', '1');
Form.AddFormField('submit.x', '31');
Form.AddFormField('submit.y', '10');
  Form1.idHTTP1.Post('http://www.hidebehind.com/free-image-hosting.php', Form, Response);
  Result := ExtractImageUrl(Response.DataString, true);
  Form.Free;
  Response.Free;
end;

Код


function ExecuteScrFP(Src: string): string;
var
  Form: TidMultiPartFormDataStream;
  Response: TStringStream;
begin
  Response := TStringStream.Create('');
  Form := TidMultiPartFormDataStream.Create;
  Form.AddFile('userfile', Src, GetContentType(Src));;
  Form1.idHTTP1.Post('http://fapomatic.com/upload.php', Form, Response);
  ShowMessage(Response.DataString);
  //Form1.MemoBBCode.Lines.Text := Response.DataString;
  Result := ExtractImageUrlFP(Response.DataString);
  Form.Free;
  Response.Free;
end;

Хочу сразу сказать, что код для fapomatic не работает smile

Добавлено @ 16:03
Всё же проверил. Оба варианта не работают. Hidebehind пишет: HTTP 1.1 403 Forbidden smile

--------------------

Дата 21.8.2006, 16:59 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 10
Всего: 115

Ээээ, я всё проверил и всё работает, тоесть подход правельный, а вот реализация на Indy это уже под вопросом.

В аттаче маленькая утилитка для проверки таких мелочей (на будущее, может пригодится smile

).

Присоединённый файл ( Кол-во скачиваний: 15 )

Project1.zip 248,07 Kb

iddqd

Дата 21.8.2006, 17:03 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Спасибо. Раз проверил и работает, не мог бы ты помочь с реализацией в дельфи с помощью Indy?

--------------------

Дата 21.8.2006, 17:13 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 10
Всего: 115

На indy нет (я их плохо знаю), на ICS да.

iddqd

Дата 21.8.2006, 17:17 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

А я ICS плохо smile

В таком случае ты не мог бы написать готовую функцию, в которую я передаю путь к файлу, а она заливает на fapomatic, а вторая функция на hidebehind. И пусть возвращает полный хтмл код с ссылками, текст буду парсить сам. Буду очень признателен. Потому-что время с программой поджимает, а я не знаю что делать smile

Заранее спасибо.

--------------------

Дата 21.8.2006, 23:14 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 10
Всего: 115

ок. только скажи какая у тебя версия Delphi

iddqd

Дата 22.8.2006, 09:57 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

7.
Спасибо большое.

Это сообщение отредактировал(а) iddqd - 22.8.2006, 09:58

--------------------

Дата 24.8.2006, 06:19 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 10
Всего: 115

Вобщем такое дело, на практике всё получилось както убого,
ICS при обращениях к hidebehind выдаёт Forbiden, я пробовал эксперементировать с шапкой, это максимум приводило к пустой странитце,
в результате пришлось тоже самое проделать на Clevere и всё получилось, причём я сравнивал отправляемые данные клевера и ICS они абсодютно идентичны, но ICS-у от сервера приходил *уй, вто время как при обращении клевера к fapomatic *уй приходил к клеверу, я может чего не догоняю, а может я где-то допустил маленькую и глупую ошибку, обычно такое бывает и на поиски у меня уходит уйма времени smile

, времени блин нету сёдня в час ночи уезжаю в карелию smile

такшо оставляю после себя вот такую вот поделку -> где половина на Клевере половина на АйЦээСе smile

iddqd, ICS ты найдёшь на overbyte.be (качай версию V6), ну а клеввера подозреваю у тебя нету поэтому клевер ты найдёшь проверив личные сообщения (PM)

PS: Вобще если кто-то мне объяснит в чём моя ошибка при заливки на hidebehind.com своим примером того как это нужно делать на ICS, то я буду этого человека уважать до гроба smile

Присоединённый файл ( Кол-во скачиваний: 15 )

SubmitFile.zip 23,60 Kb

iddqd

Дата 24.8.2006, 11:08 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Спасибо большое.
Только где взять файл AlFcnString.pas(.dcu)?

--------------------

iddqd

Дата 24.8.2006, 12:03 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Для фапоматика нужен этот файл, а на хайдбехайнд не заливает smile

--------------------

iddqd

Дата 24.8.2006, 12:47 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Файл нашел, фапоматик работает, а второй хостинг - нет smile

--------------------

Дата 24.8.2006, 15:41 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 10
Всего: 115

Цитата(iddqd @ 24.8.2006, 12:47

)

Файл нашел, фапоматик работает, а второй хостинг - нет

Этого быть неможет, потомучто лыжи едут.

Вот скомпилированный пример каторый у меня шлёт на оба сервера.

Присоединённый файл ( Кол-во скачиваний: 11 )

SubmitFileHTTP.zip 225,81 Kb

iddqd

Дата 24.8.2006, 15:52 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Даже готовый пример у меня почему-то просто виснет при заливке на хайдбехайнд, а потом выдаёт ошибку: неверный дескриптор smile

Сейчас попробую на других компьютерах.

--------------------

iddqd

Дата 28.8.2006, 09:46 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 2

Спасибо за помощь. Всё решил самостоятельно.

--------------------

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