ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
Как закачать фото на сайт delphi |
09.06.2010, 00:55
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Как закачать фото на сайт delphi
вот что снифер перехватывает
-----------------------------23844141621881\r\nContent-Disposition: form-data; name="act"\r\n\r\nadd\r\n-----------------------------23844141621881\r\nContent-Disposition: form-data; name="from"\r\n\r\nfile\r\n-----------------------------23844141621881\r\nContent-Disposition: form-data; name="new_photo"; filename="1.jpg"\r\nContent-Type: image/jpeg\r\n\r\nÿØÿà
|
|
|
09.06.2010, 02:27
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 130
Провел на форуме:
436500
Репутация:
11
|
|
изъяснись конкретнее: что ты перехватил, что за сайт, есть ли попытки написания кода?
|
|
|
|
09.06.2010, 07:43
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Это кодировка multipart form-data, можешь найти о ней инфу в Google. Когда ознакомишься, - без трудностей сможешь загрузить картинку на требуемый сайт.
|
|
|
|
09.06.2010, 10:38
|
|
Участник форума
Регистрация: 04.06.2009
Сообщений: 176
Провел на форуме:
840493
Репутация:
0
|
|
Код:
var
formData: TIdMultiPartFormDataStream;
s,url:string;
reggi:tregexpr ;
begin
try formdata:=TIdMultiPartFormDataStream.Create; formData.AddFile('F',furl,'image/gif'); formData.AddFormField('upload', 'yes'); formData.AddFormField('rotate_angle', '0°');
s:= form1.idHTP1.Post('http://www.radikal.ru/action.aspx',formData);
reggi:=tregexpr.Create;
reggi.Expression:='<input id="input_link_1" value="(.*?)"'; if reggi.Exec(s) then begin
url:=reggi.Match[1];
showmessage(url) end
else showmessage('Не удалось загрузить изображение');
finally formdata.Free; reggi.Free; end;
вот делал недавно заливку картинки на радикал, можешь заточить под свой сайт |
|
|
|
09.06.2010, 16:07
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Вот запрос:
-----------------------------61911981522888\r\nContent-Disposition: form-data;
name="act"\r\n\r\nadd\r\n-----------------------------61911981522888\r\nContent-Disposition: form-data;
name="from"\r\n\r\nfile\r\n-----------------------------61911981522888\r\nContent-Disposition: form-data; name="new_photo";
filename="a_e36a5297.jpg"\r\nContent-Type: image/jpeg\r\n\r\nÿØÿà
вот я попытался сделать запрос, правильно?
formdata:=TIdMultiPartFormDataStream.Create; // создаем переменную пост запрсоа
formData.AddFile('F',filename,'image/jpeg');
formData.AddFormField('act', 'nadd');
formData.AddFormField('from', 'nfile');
formData.AddFormField('name', 'new_photo');
formData.AddFormField('filename', 'имя фото');
formData.Free;
Последний раз редактировалось aydar; 09.06.2010 в 16:11..
|
|
|
|
09.06.2010, 22:07
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
кто поможет?
|
|
|
|
09.06.2010, 22:14
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Вот так
multi:=Tidmultipartformdatastream.Create;
multi.addfile('photo', 'фотография.jpg', 'Content-Type: image/jpeg');
form1.idhttp1.post(сайт, multi);
|
|
|
|
09.06.2010, 22:57
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
aydar, зачем ты после заполнения formdata, не отправив запрос сразу его освобождаешь?
formData.AddFile('new_photo', filename, 'image/jpeg');
|
|
|
|
09.06.2010, 23:29
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Сообщение от HakaR
aydar, зачем ты после заполнения formdata, не отправив запрос сразу его освобождаешь?
Забыл поставить  ,
formdata:=TIdMultiPartFormDataStream.Create; // создаем переменную пост запрсоа
formData.AddFile('new_photo', filename, 'image/jpeg');
formData.AddFormField('act', 'nadd');
formData.AddFormField('from', 'nfile');
form1.idhttp1.post(сайт, formData);
formData.Free;
т.е. конечный код должен быть таким?
|
|
|
|
10.06.2010, 14:40
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от aydar
Забыл поставить ,
т.е. конечный код должен быть таким? да
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
