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

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

23.07.2013, 17:27. Показов 4365. Ответов 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
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,014
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
33377 / 21501 / 8236
Регистрация: 22.10.2011
Сообщений: 36,896
Записей в блоге: 11
26.07.2013, 14:53
Нет. Но можно создать запрос без TIdMultipartFormDataStream: http://stackoverflow.com/quest... 1#12079401
2
26.07.2013, 18:25

Не по теме:

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

0
place status here
 Аватар для gunslinger
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,014
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
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,014
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
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,014
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
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru