Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/22: Рейтинг темы: голосов - 22, средняя оценка - 4.91
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023

Ошибка при загрузке изображения (методом "Post") на radikal.cc

23.07.2013, 17:27. Показов 4395. Ответов 11
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Есть код:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

HTTP->HandleRedirects = 1;
TIdMultiPartFormDataStream *MPS = new TIdMultiPartFormDataStream;
MPS->AddFile("SrcImg.File", path_jpg, "multipart/form-data");  // path_jpg - полный путь к графическому файлу на компе
MPS->AddFormField("SrcImg.Kind", "File");
MPS->AddFormField("SrcImg.Url", "");
MPS->AddFormField("UrlForRedirect", "");
MPS->AddFormField("IsPublicImg", "0");
MPS->AddFormField("NeedResize", "0");
RichEdit1->Text = HTTP->Post("http://www.radikal.cc/Img/UploadTmpImg", MPS);
ShowMessage(UTF8Decode(RichEdit1->Text)); // получаем страницу с Id картинки
 
int I, PosReturn;
for (I = 0; I < RichEdit1->Lines->Count; I++)
{
  PosReturn = RichEdit1->Lines->Strings[I].Pos("Id");
  if (PosReturn)
    break;
}
AnsiString Id = MidStr(RichEdit1->Lines->Strings[I], PosReturn+5, RichEdit1->Lines->Strings[I].Pos("Root")-PosReturn-8);
ShowMessage(UTF8Decode(Id));  // вытаскиваем Id
 
RichEdit1->Text = HTTP->Get("http://radikal.cc/Img/ShowUploadedImg?id=" + Id);
ShowMessage(UTF8Decode(RichEdit1->Text));  // (*) - ожидаем получить страницу со ссылкой (ссылками) на изображение
 
for (I = 0; I < RichEdit1->Lines->Count; I++)
{
  PosReturn = RichEdit1->Lines->Strings[I].Pos("rapp.uih.OpenImgInNewWnd");  // ищем строку со ссылкой
  if (PosReturn)
    break;
}
if (PosReturn > 0)  // парсим ссылку в случае успеха (*)
  Edit->Text = MidStr(RichEdit1->Lines->Strings[I], PosReturn+26, RichEdit1->Lines->Strings[I].Pos("',")-PosReturn-26);
else
  Edit->Text = "Ошибка загрузки.";
MPS->Free();
Не обращайте внимание на использование РичЕдит вместо Мемо и т. п.
Там, где "ожидаем получить страницу с ссылкой на изображение", выскакивает ответ:
При обращении к серверу возникла ошибка: Картинка не найдена
Замечу, что при загрузке через браузер программа Http Analyzer показывает, что происходит "создание" врЕменных изображений с выдачей соответствующих ссылок (без всяких редиректов).
Из моих наблюдений: при выборе картинки (кнопка "Обзор...") и нажатии Ок "генерится" копия файла, которая потом, судя по всему, и используется для выдачи ссылки.
Это была лирика, ее тоже можете смело проигнорировать.

Подозреваю, что упускаю какой-то момент (даже использовал передачу cookies - не помогает).
Вдруг пригодится - блок выбора изображения (исходный код в браузере):
HTML5
1
2
3
4
5
6
7
8
9

<div class="mainBlockPage_file-input">
<form action="/Img/UploadTmpImg" data-bind="htmlElement: SrcImgFormVm" enctype="multipart/form-data" method="post">
    <div data-bind="if: vm.ExistFileElement">
      <input type='file' class="inpFileUpI" name='SrcImg.File' data-bind="file: vm.SrcFileImg" />
    </div>
    <input type="hidden" name="SrcImg.Kind" data-bind="value: vm.SrcImgKind" /> 
    <input type="hidden" name="SrcImg.Url" data-bind="value: vm.SrcImgUrl" /> 
</form>
</div>
Загрузка:
HTML5
1
2
3
4

<div class="mainBlockPage_download">
    <button class="btnSt btnSubmitUpI" title="Загрузить на Радикал-Фото" data-bind="click: vm.SaveTmpImgCmd, enable: ((vm.CurrentTmpImg() != null && !vm.IsSavingTmpImg()) && !vm.IsProcessingTmpImg())">Загрузить</button>            
    . . .
</div>
Так как Id изображения удается получить, сайт файл видит (я прав?).
Но загрузки как таковой не происходит.

Люди добрые, помогите кто чем может, намекните, в какую сторону копать.
P. S.: несколько дней назад в Image Uploader исправили загрузку на радикал. Соответствующие параметры теоретически могут храниться в "настройках", но даже если я прав, хз в каком месте их искать.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 23.07.2013, 17:27
Ответы с готовыми решениями:

Ошибка при загрузке изображения
Здравствуйте! Написал html &lt;!DOCTYPE html PUBLIC&quot;-//W3C//DTD XHTML1.1//EN&quot; ...

Ошибка при загрузке изображения
Вот код моего окна: class menuWindow: def __init__(self): self.windowWidth = 1288 self.windowHeight = 720 ...

Ошибка при загрузке изображения
чЕТ Я НЕ ДОГОНЯЮ ПОЧЕМУ ОШИБКА уБИЛ УЖЕ КУЧА ВРЕМЕНИ -ГОЛОВА ПОХОЖА НА КУБ))) Exception in Tkinter callback Traceback (most recent...

11
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
26.07.2013, 03:00  [ТС]
Используя Http Analyzer, просмотрел вкладки Post Data (и Response Content) программы при загрузке картинки через Image Uploader. В результате получил рабочий код загрузки изображения на radikal.cc (опустил некоторые "мелочи", найти их можно в первом посте):
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

  MPS->AddFile("Filedata", path_jpg, "multipart/form-data");  // или image/jpeg для jpg
  MPS->AddFormField("Filename", path_jpg);  // можно и ExtractFileName()
  MPS->AddFormField("ISPUBLIC", "0");
  MPS->AddFormField("IDALBUM", "noall");
  MPS->AddFormField("RESPTYPE", "xml");
  MPS->AddFormField("FROMOBJECT", "22");
  MPS->AddFormField("MAXSIZEIMG", "1024");
  MPS->AddFormField("MAXSIZEIMGPREV", "180");
  MPS->AddFormField("ISINSCRIMGPREV", "1");
  MPS->AddFormField("INSCRIMGPREV", "Увеличить");  // = "Увеличить"
  MPS->AddFormField("COMMENTIMG", "");
  MPS->AddFormField("URLFORIMG", "");
  MPS->AddFormField("TAGS", "");
 
  RichEdit1->Text = HTTP->Post("http://radikal.cc/api3/rest/uplimg/prepared", MPS);
 
  for (I = 0; I < RichEdit1->Lines->Count; I++)
  {
    PosReturn = RichEdit1->Lines->Strings[I].Pos("<ImgUrl>");
    if (PosReturn) //found!
      break;
  }
  if (PosReturn > 0)
    Edit->Text = MidStr(RichEdit1->Lines->Strings[I], PosReturn+8, RichEdit1->Lines->Strings[I].Pos("</ImgUrl>")-PosReturn-8);
  else
    Edit->Text = "Ошибка загрузки.";
Миниатюры
Ошибка при загрузке изображения (методом "Post") на radikal.cc  
2
Почемучка)
 Аватар для Ddv122
1244 / 304 / 30
Регистрация: 23.12.2010
Сообщений: 2,001
Записей в блоге: 1
26.07.2013, 14:44
Интересно , а на старых INDY есть ли аналог TIdMultiPartFormDataStream
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33403 / 21513 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
26.07.2013, 14:53
Нет. Но можно создать запрос без TIdMultipartFormDataStream: http://stackoverflow.com/quest... 1#12079401
2
26.07.2013, 18:25

Не по теме:

Собственно недавно пробовал использовать Synapse тоже столкнулся с тем что руками нужно прописывать ...

0
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
27.07.2013, 14:57  [ТС]
Если кому нужен код загрузки на еще 4 хостинга картинок - ***********, wc3parser.com/imgupload, imgs.su и fotolink.su (хотя там всё просто, не нужно использовать утилиты, достаточно визуального анализа исходников соответствующих веб-страниц):
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

//   ***********
      MPS->AddFile("file1", path_jpg, "");  // multipart/form-data Вы не загрузили файлы
      MPS->AddFormField("check_thumb", "no");
//    MPS->AddFormField("submit", "Загрузить");
      MPS->AddFormField("uploading", "1");
      RichEdit1->Text = UTF8Decode(HTTP->Post("http://***********/upload?api=1", MPS));
 
      for (I = 0; I < RichEdit1->Lines->Count; I++)
      {
        PosReturn = RichEdit1->Lines->Strings[I].Pos("<imagepath>");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        Edit3->Text = MidStr(RichEdit1->Lines->Strings[I], PosReturn+11, RichEdit1->Lines->Strings[I].Pos("</imagepath>")-PosReturn-11);
      else
        Edit3->Text = "Ошибка загрузки.";
 
//   wc3parser.com/imgupload/
      MPS->AddFile("filename", path_jpg, "multipart/form-data");
      MPS->AddFormField("submit", "Upload");
      RichEdit1->Text = HTTP->Post("http://www.wc3parser.com/imgupload/", MPS);
 
      for (I = 0; I < RichEdit1->Lines->Count; I++)
      {
        PosReturn = RichEdit1->Lines->Strings[I].Pos("IMGLink");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        Edit3->Text = MidStr(RichEdit1->Lines->Strings[I], RichEdit1->Lines->Strings[I].Pos("http://www.wc3parser.com"), RichEdit1->Lines->Strings[I].Pos("</textarea>")-RichEdit1->Lines->Strings[I].Pos("http://www.wc3parser.com"));
      else
        Edit3->Text = "Ошибка загрузки.";
 
//   imgs.su
      MPS->AddFile("file", path_jpg, "multipart/form-data");  // multipart/form-data
      MPS->AddFormField("quality", "100");
      RichEdit1->Text = HTTP->Post("http://imgs.su", MPS);
 
      for (I = 0; I < RichEdit1->Lines->Count; I++)
      {
        PosReturn = RichEdit1->Lines->Strings[I].Pos("<textarea");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        Edit3->Text = MidStr(RichEdit1->Lines->Strings[I], RichEdit1->Lines->Strings[I].Pos("http://imgs.su/"), RichEdit1->Lines->Strings[I].Pos("</textarea>")-RichEdit1->Lines->Strings[I].Pos("http://imgs.su/"));
      else
        Edit3->Text = "Ошибка загрузки.";
 
//   fotolink.su
      MPS->AddFile("image", path_jpg, "multipart/form-data");  // multipart/form-data
      RichEdit1->Text = HTTP->Post("http://fotolink.su/upload_file.php", MPS);
 
      for (I = 0; I < RichEdit1->Lines->Count; I++)
      {
        PosReturn = RichEdit1->Lines->Strings[I].Pos("http://www.fotolink.su/pic_s/");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        Edit3->Text = "http://www.fotolink.su/pic_m/" + MidStr(RichEdit1->Lines->Strings[I], RichEdit1->Lines->Strings[I].Pos("pic_s/")+6, RichEdit1->Lines->Strings[I].Pos("border")-RichEdit1->Lines->Strings[I].Pos("pic_s/")-8);
      else
        Edit3->Text = "Ошибка загрузки.";

Не по теме:

установлены версии: Indy - 10.1.5, среда (IDE) - (CodeGear) C++ Builder 2007 (11.0.2709.7128)

Миниатюры
Ошибка при загрузке изображения (методом "Post") на radikal.cc  
1
Эксперт С++
 Аватар для Avazart
8488 / 6155 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
27.07.2013, 19:01
Цитата Сообщение от gunslier Посмотреть сообщение
достаточно визуального анализа исходников соответствующих веб-страниц):
Без снифера можно долго мучатся...
0
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
27.07.2013, 23:03  [ТС]
По этому поводу я и хотел высказаться, точнее, обобщить сказанное ранее.
С помощью программ Http Analyzer (информация об отправленных/полученных данных) и Image Uploader (список сайтов и загрузка файлов) можно достаточно легко реализовать в своей программе "алгоритм загрузки файла на определенный (из списка доступных) хостинг".
В Image Uploader выбираем сайт (доступны как хостинги картинок, так и файлообменники; не все, правда, "пригодны" - использование некоторых выдают ошибку) и загружаем файл.
В Http Analyzer'е на вкладке Post Data получаем необходимые для загрузки данные, на Response Content видим полученный ответ, из которого вытаскиваем ссылку на загруженный файл.
Список сайтов и отправленные/полученные данные на примере imageshack.us в виде скриншотов во вложенных миниатюрах.
Вроде всё. Спасибо за внимание.
Миниатюры
Ошибка при загрузке изображения (методом "Post") на radikal.cc   Ошибка при загрузке изображения (методом "Post") на radikal.cc   Ошибка при загрузке изображения (методом "Post") на radikal.cc  

0
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
29.07.2013, 03:13  [ТС]
Добавил загрузку на imageshack.us и ipicture.ru, выделил всё в отдельную функцию (замечу, что в данном случае RichEdit лучше Memo, так как правильно переносит строки):
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186

AnsiString UploadPicture(AnsiString path, int site)
{
  TIdMultiPartFormDataStream *MPS = new TIdMultiPartFormDataStream;
  TIdHTTP *HTTPtemp = new TIdHTTP(NULL);
  HTTPtemp->HandleRedirects = 1;
  TRichEdit *RichEdittemp = new TRichEdit(Form1);
  RichEdittemp->Visible = 0;
  RichEdittemp->Parent = Form1;
  RichEdittemp->ScrollBars = ssBoth;
  RichEdittemp->WordWrap = 0;
  int I, PosReturn;
  AnsiString result;
 
  switch (site)
  {
//  ***********
    case 1:
      MPS->AddFile("file1", path, "");  // если написать "multipart/form-data" вместо "", то выскочит ошибка "Вы не загрузили файлы"
      MPS->AddFormField("check_thumb", "no");
      MPS->AddFormField("uploading", "1");
      RichEdittemp->Text = HTTPtemp->Post("http://***********/upload?api=1", MPS);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("<imagepath>");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+11, RichEdittemp->Lines->Strings[I].Pos("</imagepath>")-PosReturn-11);
      else
        result = "Ошибка загрузки.";
      break;
 
//  radikal.cc
    case 2:
      MPS->AddFile("Filedata", path, "multipart/form-data");  // или image/jpeg для jpg
      MPS->AddFormField("Filename", path);  // можно и ExtractFileName()
      MPS->AddFormField("ISPUBLIC", "0");
      MPS->AddFormField("IDALBUM", "noall");
      MPS->AddFormField("RESPTYPE", "xml");
      MPS->AddFormField("FROMOBJECT", "22");
      MPS->AddFormField("MAXSIZEIMG", "1024");
      MPS->AddFormField("MAXSIZEIMGPREV", "180");
//    MPS->AddFormField("ISINSCRIMGPREV", "0");
//    MPS->AddFormField("INSCRIMGPREV", "Увеличить");  // = "Увеличить"
//    MPS->AddFormField("COMMENTIMG", "");
//    MPS->AddFormField("URLFORIMG", "");
//    MPS->AddFormField("TAGS", "");
 
      RichEdittemp->Text = HTTPtemp->Post("http://radikal.cc/api3/rest/uplimg/prepared", MPS);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("<ImgUrl>");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+8, RichEdittemp->Lines->Strings[I].Pos("</ImgUrl>")-PosReturn-8);
      else
        result = "Ошибка загрузки.";
      break;
 
//  wc3parser.com/imgupload/
    case 3:
      MPS->AddFile("filename", path, "multipart/form-data");
      MPS->AddFormField("submit", "Upload");
      RichEdittemp->Text = HTTPtemp->Post("http://www.wc3parser.com/imgupload/", MPS);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("[IMG]");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/IMG]")-PosReturn-5);
      else
        result = "Ошибка загрузки.";
      break;
 
//  imgs.su
    case 4:
      MPS->AddFile("file", path, "multipart/form-data");
      MPS->AddFormField("quality", "100");
      RichEdittemp->Text = HTTPtemp->Post("http://imgs.su", MPS);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("[img]");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/img]")-PosReturn-5);
      else
        result = "Ошибка загрузки.";
      break;
 
//   fotolink.su
     case 5:
      MPS->AddFile("image", path, "multipart/form-data");
      RichEdittemp->Text = HTTPtemp->Post("http://fotolink.su/upload_file.php", MPS);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("[img]");
        if (PosReturn) //found!
          break;
      }
 
      if (PosReturn > 0)
      {
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/img]")-PosReturn-5);
        result = AnsiReplaceText(result, "pic_s", "pic_m");
      }
      else
        result = "Ошибка загрузки.";
      break;
 
//   imageshack.us
     case 6:
      MPS->AddFile("fileupload", path, "");  // image/jpeg
      MPS->AddFormField("uploadtype", "on");
      MPS->AddFormField("key", "BXT1Z35V8f6ee0522939d8d7852dbe67b1eb9595");
      MPS->AddFormField("rembar", "0");
      MPS->AddFormField("a_username", "");
      MPS->AddFormField("a_password", "");
      RichEdittemp->Text = HTTPtemp->Post("http://imageshack.us/upload_api.php", MPS);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("<image_link>");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+12, RichEdittemp->Lines->Strings[I].Pos("</image_link>")-PosReturn-12);
      else
        result = "Ошибка загрузки.";
      break;
 
//   ipicture.ru
     case 7:
      MPS->AddFile("userfile", path, "multipart/form-data");  // image/jpeg
      MPS->AddFormField("method", "file");
      MPS->AddFormField("orig_resize_on", "0");
      MPS->AddFormField("rotate", "0");
//    MPS->AddFormField("string_big_on", "0");
      MPS->AddFormField("optimize", "on");
      MPS->AddFormField("ignorAllCheck", "0");
      MPS->AddFormField("galleries", "12");
      MPS->AddFormField("status", "on");
      MPS->AddFormField("quality", "100");
//    MPS->AddFormField("thumb_resize_on", "0");
//    MPS->AddFormField("thumb_resize", "180");
//    MPS->AddFormField("ramka_off", "0");
//    MPS->AddFormField("string_small_on", "0");
 
      HTTPtemp->Post("http://ipicture.ru/Upload", MPS);
//    RichEdittemp->Text = HTTPtemp->Get(HTTPtemp->Response->RawHeaders->ValueFromIndex[HTTPtemp->Response->RawHeaders->IndexOfName("Refresh")]);
      RichEdittemp->Text = HTTPtemp->Get(HTTPtemp->Response->RawHeaders->Values["Refresh"]);
 
      for (I = 0; I < RichEdittemp->Lines->Count; I++)
      {
        PosReturn = RichEdittemp->Lines->Strings[I].Pos("[IMG]");
        if (PosReturn) //found!
          break;
      }
      if (PosReturn > 0)
        result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/IMG]")-PosReturn-5);
      else
        result = "Ошибка загрузки.";
      break;
 
    default:
//    ShowMessage("Не выбран сайт для загрузки изображений.")
      ;
  }
 
  MPS->Free();
  HTTPtemp->Free();
  RichEdittemp->Free();
  return result;
}
Знакомый подбросил пример кода, использующий регулярные выражения для получения данных и передачу параметров загрузки в функцию (то есть в идеале для любого сайта, не только хостинга картинок, но и файлообменника). Особо не тестировалось и написано на Дельфи. Кому нужно - забирайте:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

function UploadFile(pPath, pParams, pURL, pExpr : string) : string;
var
 ParamsList : TStringList;
 HTTP1 : TIdHTTP;
 MPS : TIdMultiPartFormDataStream;
 PostResult, pName, pParam : String;
 RegExp : TRegExpr;
 i: Integer;
begin
 HTTP1 := TIdHTTP.Create(nil);
 MPS := TIdMultiPartFormDataStream.Create;
 HTTP1.HandleRedirects := True;
 HTTP1.Compressor := TIdCompressorZLib.Create(HTTP1);
 
 MPS.AddFile('Filedata', pPath, 'multipart/form-data');
 
 // парсинг параметров
 ParamsList := TStringList.Create;
 ParamsList.Delimiter := ';';
 ParamsList.StrictDelimiter := true;
 ParamsList.DelimitedText := pParams;
 for i:=0 to Length(ParamsList)-1 do
 begin
  pName := copy(ParamsList[i], 1, Pos('=') - 1);
  pParam := copy(ParamsList[i], Pos('=') + 1, Length(ParamsList[i]));
  if pParam = '%filename%' then pParam := ExtractFileName(pPath);
  MPS.AddFormField(pName, pParam);
 end;
 
 // посылаем данные на хостинг
 Try
  PostResult := HTTP1.Post(pURL, MPS);
 Except
  on E:EIdHTTPProtocolException do AddLog(E.ErrorMessage);
 End;
 
 // анализ полученных данных
 RegExp := TRegExpr.Create;
 try
  RegExp.Expression := pExpr;
  if RegExp.Exec(PostResult) then
  begin
   PostResult := RegExp.Match[2];
  end else
  begin
   AddLog(MainForm.DesignedLexicon1.Item[2]);
   PostResult := '';
  end;
 finally
  RegExp.Free;
 end;
 
  MPS.Free;
  HTTP1.Free;
  ParamsList.Free;
  Result := PostResult;
end;
2
bhswat
30.07.2013, 15:46
guns, постишь мой кривой код, который я набросал в блокноте...
Вот чуток поправил:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

function UploadFile(pPath, pParams, pURL, pExpr : string; pDebug : Boolean) : string;
var
    ParamsList : TStringList;
    HTTP1 : TIdHTTP;
    MPS : TIdMultiPartFormDataStream;
    PostResult, pName, pParam : String;
    RegExp : TRegExpr;
    i: Integer;
begin
    HTTP1 := TIdHTTP.Create(nil);
    MPS := TIdMultiPartFormDataStream.Create;
    HTTP1.HandleRedirects := True;
    HTTP1.Compressor := TIdCompressorZLib.Create(HTTP1);
 
    // парсинг параметров
    ParamsList := TStringList.Create;
    ParamsList.Delimiter := ';';
    ParamsList.StrictDelimiter := true;
    ParamsList.DelimitedText := pParams;
    for i:=0 to ParamsList.Count-1 do
    begin
        pName := copy(ParamsList[i], 1, Pos('=', ParamsList[i]) - 1);
        pParam := copy(ParamsList[i], Pos('=', ParamsList[i]) + 1, Length(ParamsList[i]));
        if pParam = '%filename%' then
    begin
      pParam := ExtractFileName(pPath);
      MPS.AddFile(pName, pPath, 'multipart/form-data');
    end else MPS.AddFormField(pName, pParam);
    end;
 
    // посылаем данные на хостинг
    Try
        PostResult := HTTP1.Post(pURL, MPS);
 
    if pDebug then MainForm.Debug.Lines.Add(PostResult); // debug info
    Except
        on E:EIdHTTPProtocolException do AddLog(E.ErrorMessage);
    End;
 
    // анализ полученных данных
    RegExp := TRegExpr.Create;
    try
        RegExp.Expression := pExpr;
        if RegExp.Exec(PostResult) then
        begin
            PostResult := RegExp.Match[2];
        end else
        begin
            PostResult := '';
        end;
    finally
        RegExp.Free;
    end;
 
  MPS.Free;
  HTTP1.Free;
  ParamsList.Free;
  Result := PostResult;
end;
Эксперт С++
 Аватар для Avazart
8488 / 6155 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
30.07.2013, 15:54
https://www.cyberforum.ru/blog... html#a_8.1.
0
bhswat
30.07.2013, 15:57
HostingList - массив из данных о хостинге, подгружаемый из xml
PROG_IMGHOSTING - переменная, хранящая имя выбранного хостинга
Пример заполнения массива:
Delphi
1
2
3
4
5
6

  HostingList[0].Name := 'radikal.cc';
  HostingList[0].HostingType := 1;
  HostingList[0].Debug := true;
  HostingList[0].URL := 'http://radikal.cc/api3/rest/uplimg/prepared';
  HostingList[0].PostParams := 'Filename=%filename%;ISPUBLIC=0;IDALBUM=noall;RESPTYPE=xml;FROMOBJECT=22;MAXSIZEIMG=1024;MAXSIZEIMGPREV=180;ISINSCRIMGPREV=1;COMMENTIMG=;URLFORIMG=;TAGS=;';
  HostingList[0].RegExp := '(<ImgUrl>)(.*)(</ImgUrl>)';
Пример использования функции:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

function SendImage(path_jpg : string) : string;
var
  PostResult : String;
  HostingFound : Boolean;
  i: integer;
begin
  for i := 0 to Length(HostingList) - 1 do
  begin
    if (HostingList[i].HostingType = 1) and (PROG_IMGHOSTING = HostingList[i].Name) then
    begin
      HostingFound := true;
      PostResult := UploadFile(path_jpg, HostingList[i].PostParams, HostingList[i].URL, HostingList[i].RegExp, HostingList[i].Debug);
 
      if HostingList[i].Debug then MainForm.Debug.Lines.Add(PostResult); //debug info
 
      if Length(PostResult) = 0 then
      begin
        AddLog(MainForm.DesignedLexicon1.Item[2]);
        PostResult := '';
      end;
    end;
  end;
 
  if HostingFound = false then AddLog(MainForm.DesignedLexicon1.Item[3]);;
  Result := PostResult;
end;
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 30.07.2013, 15:57
Помогаю со студенческими работами здесь

Ошибка при загрузке изображения
Ошибка при загрузке изображения в компонент Timage(проект вызвал класс исключения FPImageException с сообщение: image wrong image format)....

Ошибка при загрузке изображения в БД
Добрый день! Имеется база в MSAccess. При нажатии на кнопку открывается диалог выбора файла, выбираю jpeg, а программа выдает...

Ошибка при загрузке изображения
Здравствуйте! Пытаюсь нарисовать изображение: try { BufferedImage img = ImageIO.read(new File(&quot;logotip.jpg&quot;));...

Ошибка при загрузке изображения
сначала на Image1 загружается изображение формата jpeg например, потом оно сохраняется в формате bmp, и когда это изображение в формате bmp...

[Mono] Ошибка при загрузке изображения в monogame
Доброго времени суток. Пожалуйста помогите решить проблему:cry:. Хочу сделать мини игрушку &quot;Морской бой&quot;. В VisualStudio создал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
 10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru