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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2010, 22:32   #1
designer999
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 187
По умолчанию заливка картинки на фотообменник

Здравствуйте
вот пытаюсь залить картинку с помощью 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');
end;
но не получается почему то(, снифером смотрел, вроде отправляю то что нужно, может кто знает как решить проблему ?
designer999 вне форума Ответить с цитированием
Старый 28.12.2010, 16:17   #2
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

"вроде отправляю то что нужно" - вот именно что вроде
1. нет перевода строк
2. нет boundary=---------------------------203632930122363 между строками

З.Ы. кстати, для таких вопросов соседняя ветка
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно

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

Поробовал. Всё равно не получается.
Сервер возвращает пустой документ(
Помогите плиз
Гляньте плиз эту тему

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


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заливка таблиц CyberMen Microsoft Office Word 6 18.08.2010 20:13
Отображение картинки на кнопке WPF. Загрузка картинки из ресурсов. Проблема с Uri. Casper-SC Общие вопросы .NET 0 27.06.2010 23:11
Градиентная заливка Sanek777 Мультимедиа в Delphi 4 07.11.2008 16:23