Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2011, 18:19   #1
Bright-rider
Форумчанин
 
Регистрация: 09.07.2010
Сообщений: 102
Радость Вопрос про synapse

Здравствуйте
вот пытаюсь залить картинку с помощью Synapse
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
HTTP: THTTPSend;
Data: TStringStream;
begin
    Data := TStringStream.Create('');
    HTTP := THTTPSend.Create;
    HTTP.MimeType :='multipart/form-data; boundary=---------------------------203632930122363';
    HTTP.Protocol:='1.1';
    HTTP.KeepAlive:=true;
    HTTP.KeepAliveTimeout:=300;
    HTTP.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.16) Gecko/20101130 Firefox/3.5.16 WebMoney Advisor';
    Data.WriteString('file[]=E:\Проекты\DLEPaser\captcha.jpg');
    Data.WriteString('&check_thumb=size');
    Data.WriteString('&thumb_text=');
    Data.WriteString('&thumb_size=600');
    Data.WriteString('&res_select=640');
    Data.WriteString('&orig_resize=600');
    Data.WriteString('&orig_rotate=0');
    Data.WriteString('&jpeg_quality=75');
    Data.WriteString('&submit=Загрузить');
    Data.WriteString('&uploading=1');
    HTTP.Document.LoadFromStream(Data);
    HTTP.HTTPMethod('POST' , 'u2.fastpic.ru/uploadmulti');
Mmo1.Lines.LoadFromStream(HTTP.Document);
end;
но не получается почему то(, снифером смотрел, вроде отправляю то что нужно, может кто знает как решить проблему ?
Сервер возвращает пустой документ

Последний раз редактировалось Bright-rider; 14.01.2011 в 18:36.
Bright-rider вне форума Ответить с цитированием
Старый 14.01.2011, 19:13   #2
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

снифер какой? помнится я уже видел похожий вопрос
кстати, адрес должен быть полным "2.fastpic.ru/uploadmulti" - это в корне не верно. Откуда синапс знает куда Вы стучитесь http, http, ftp и прочее

и обычно снифер сообщает какая ошибка (400, 404, 503 и.т.д.)
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно

Последний раз редактировалось Mifody; 14.01.2011 в 19:15.
Mifody вне форума Ответить с цитированием
Старый 14.01.2011, 19:17   #3
Bright-rider
Форумчанин
 
Регистрация: 09.07.2010
Сообщений: 102
По умолчанию

Цитата:
Сообщение от Mifody Посмотреть сообщение
снифер какой? помнится я уже видел похожий вопрос
HTTP Analyzer v3
Сейчас попробовал так:
Код:
procedure TForm1.btn2Click(Sender: TObject);
var
HTTP: THTTPSend;
Data: TStringStream;
 Res : boolean;
begin
    Data := TStringStream.Create('');
    HTTP := THTTPSend.Create;
    HTTP.MimeType :='multipart/form-data; boundary=----------oM1frfHNMbqbMYe5ONEud2'#13#10;
    HTTP.Protocol:='1.1'#13#10;
    HTTP.KeepAlive:=true;
    HTTP.KeepAliveTimeout:=300;
    HTTP.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.16) Gecko/20101130 Firefox/3.5.16 WebMoney Advisor'#13#10;

    Data.WriteString('file[]=C:\Users\Admin\Desktop\Screen11.JPG');
    Data.WriteString('&check_thumb=size');
    Data.WriteString('&thumb_text=');
    Data.WriteString('&thumb_size=600');
    Data.WriteString('&res_select=640');
    Data.WriteString('&orig_resize=600');
    Data.WriteString('&orig_rotate=0');
    Data.WriteString('&jpeg_quality=75');
    Data.WriteString('&submit=Загрузить');
    Data.WriteString('&uploading=1');

  HTTP.Document.LoadFromStream(Data);
  HTTP.HTTPMethod('POST' , 'http://u2.fastpic.ru/uploadmulti');
  Mmo1.Lines.LoadFromStream(HTTP.Document);
end;
Но ошибка
400 Bad Request
Bright-rider вне форума Ответить с цитированием
Старый 14.01.2011, 19:46   #4
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Алгоритм поиска:
1. отснифить то, что происходит когда через браузер отправляете
2. отснифить то, что происходит когда через программу отправляете
3. сравнить левую часть вкладки "Raw Stream"

Если нет вкладки или отличается интерфейс, обновить анализер. По быстрому скачать с офф сайта, у них кахись 30 дней халявы, потом уде найдете не qiq ru

З.Ы. Буду еще примерно пол часа. Так что думаю успеете. Отпишитесь, на крайний случай "ткну лицом в ошибку" . Просто Вы явно неверно запрос формируете. Это и раньше видно было, а сейчас сервак Вам так и сказал.

UPD: если сильно припрет, сейчас брошу в личку асю
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно

Последний раз редактировалось Mifody; 14.01.2011 в 19:50.
Mifody вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос про Свойство Visible и про иконки в imagelist Kappi4 Компоненты Delphi 2 21.05.2010 13:10
Вопрос про C# BanzoO Общие вопросы C/C++ 1 02.07.2009 03:47
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) Albert2008 Общие вопросы Delphi 4 21.08.2008 15:33
вопрос про IP ЧИЖ Работа с сетью в Delphi 1 23.06.2008 13:53
У меня вопрос про базы данных,а точнее про таблицы!!! Alexij Общие вопросы Delphi 1 13.04.2008 23:24