Перейти к содержанию
Fire Monkey от А до Я

Ethernet

Пользователи
  • Постов

    5
  • Зарегистрирован

  • Посещение

Весь контент Ethernet

  1. Вот что мне дало приложение Tamper Data: Уходящая переменная "POST_DATA": -----------------------------14523881525560\r\nContent-Disposition: form-data; name="title"\r\n\r\nÒåñòîâîå ñîîáùåíèå\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="cat_id"\r\n\r\n121\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="pred"\r\n\r\n1\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="price"\r\n\r\n1000\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="currency"\r\n\r\n1\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="city_id"\r\n\r\n2\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="description"\r\n\r\nÒåñòîâîå ñîîáùåíèå îòïðàâëåííîå ñ ïðèëîæåíèÿ "AnnMess"\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="name_from"\r\n\r\nAnnMess\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="email_from"\r\n\r\noo.prof@bk.ru\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="phone_from"\r\n\r\n+7(012)345-67-89\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="url"\r\n\r\n\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="photo_1"; filename=""\r\nContent-Type: application/octet-stream\r\n\r\n\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="photo_2"; filename=""\r\nContent-Type: application/octet-stream\r\n\r\n\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="photo_3"; filename=""\r\nContent-Type: application/octet-stream\r\n\r\n\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="photo_4"; filename=""\r\nContent-Type: application/octet-stream\r\n\r\n\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="period"\r\n\r\n30\r\n-----------------------------14523881525560\r\nContent-Disposition: form-data; name="captcha"\r\n\r\n959231\r\n-----------------------------14523881525560--\r\n Но проблема всё та же, с приложения post - запрос не уходит. Но GET работает прекрасно. Возможно это из-за аякса, не знаю. Может я что-то не так делаю? Уже голова с этим сайтом кругом идёт. Может так же заполнять "PARAMS" как и "POST_DATA"? "А воз и нынче там" (с)
  2. Nix0N и xenon54, большое спасибо за ответы. aURL = 'http://10.1.3.1/board/add.html'; На сайт под таким URL спокойно вхожу и забираю капчу GETом. Сам сайт: http://10.1.3.1/board/ или http://ymym.ru/board/ Но сомневаюсь, что Вы сможете на него зайти. Как раз проблема в том, что запрос вообще не уходит.
  3. havord, спасибо за ответ. Забыл добавить в продемонстрированный фрагмент: with fMain.IdHTTP1 do begin Request.Host := '10.1.3.1'; Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0'; Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'; Request.AcceptLanguage := 'ru,en-us;q=0.7,en;q=0.3'; Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7'; end; Так же дописал предложенные Вами варианты: with fMain.IdHTTP1 do begin Request.BasicAuthentication := False; // Так же пробовал и True Request.ContentType := 'application/x-www-form-urlencoded'; end; Но результат всё тот же. Запрос не уходит. xenon54, удалил полностью фрагмет кода html страницы. Надеюсь Вас это устроит.
  4. Доброго вам времени суток, уважаемые форумчане. Столкнулся с проблемой нажатия на кнопку сайта. Инструментарий: Delphi XE7 --> FM; Indy 10.6.0.5169 --> idHTTP Свойства idHTTP1: CookieManager | IdCookieManager1 AllowCookies | True HandleRedirects | True Процедура в разрабатываемом приложении: procedure SelenaURL.SendData(Captcha: string); var i: Integer; Text: String; begin try Params := TStringList.Create; Params.Add('title=' + fMain.eTitle.Text); Params.Add('cat_id=121'); case fMain.cbCategory.ItemIndex of 0: Params.Add('pred=1'); 1: Params.Add('pred=2'); end; Params.Add('price=' + fMain.eCost.Text); Params.Add('currency=1'); case fMain.cbCity.ItemIndex of 0: Params.Add('city_id=1'); 1: Params.Add('city_id=2'); 2: Params.Add('city_id=3'); 3: Params.Add('city_id=4'); 4: Params.Add('city_id=5'); end; Text := fMain.mText.Lines[0]; for i := 1 to fMain.mText.Lines.Count - 1 do Text := Text + #13#10 + fMain.mText.Lines[i]; Params.Add('description=' + Text); Params.Add('name_from=' + fMain.eName.Text); Params.Add('email_from=' + fMain.eMail.Text); Params.Add('phone_from=' + fMain.ePhone.Text); for i := 1 to fMain.ListBox2.Count do Params.Add('photo_' + IntToStr(i) + '=' + fMain.ListBox2.Items[i - 1]); Params.Add('period=30'); Params.Add('captcha=' + Captcha); Params.Add('submit=Добавить объявление'); // Что с ним, что без него запрос не уходит Response := fMain.IdHTTP1.Post(aURL, Params); fMain.mText.Lines.Clear; fMain.mText.Text := Response; // Тут можно увидеть, что переадресации никакой не было. Где стояли, там и стоим finally Params.Free; end; end; Код самой кнопки: <input class="buttom" onclick="addForm(document.getElementById('f'))" value="Добавить объявление" type="submit"> Код процедуры, выполняемая кнопкой: /* Подгружаем форму - добавить объявление */ function addForm(value) { form_result = document.getElementById('ajax_result'); form_indicator = document.getElementById('ajax_indicator'); form_result.className = 'ajaxform-result-hide'; form_indicator.innerHTML = '<img src="'+AJAX_DIR+'templates/default/images/indicator.gif">'; form_indicator.className = 'ajaxform-indicator'; JsHttpRequest.query( AJAX_DIR+'ajax.php?act=add', { q: value }, function(result, errors) { form_result.innerHTML = ''; if (result['q']) { form_result.innerHTML = '<div class="ajaxform-result"><fieldset class="fieldset_error"><legend class="legend_error">Ошибка:</legend>'+result['q']+'</fieldset></div>'; form_result.className = ''; form_indicator.innerHTML = ''; document.getElementById("ajax_form").style.display = 'block'; }else{ if(result['action'] == '3') { form_result.innerHTML = '<div class="ajaxform-result"><fieldset class="fieldset_msg"><legend class="legend_msg">Сообщение:</legend><div class="msg">Ваше объявление было отправлено на проверку. <a href="'+AJAX_DIR+'">Перейти на главную страницу</a>.<br><br>Ваши данные: <br><b>ID:</b> '+result['id']+' <br><b>Пароль:</b> '+result['password']+'</div></fieldset>'; }else{ form_result.innerHTML = '<div class="ajaxform-result"><fieldset class="fieldset_msg"><legend class="legend_msg">Сообщение:</legend><div class="msg">Ваше объявление "<b>ID'+result['id']+'</b>" было успешно добавлено. <a href="'+AJAX_DIR+''+result['id']+'.html">Перейти к объявлению</a>.<br><br>Ваши данные: <br><b>ID:</b> '+result['id']+' <br><b>Пароль:</b> '+result['password']+'</div></fieldset>'; } form_result.className = ''; form_indicator.innerHTML = ''; document.getElementById("ajax_form").style.display = 'none'; } }, false // не кэшировать ); } /* конец */ Наведите хотя бы в какую сторону копать. Срочно необходимо завершить приложение, но возникла данная проблема. Буду рад любой вашей помощи. Спасибо!
  5. Здравствуйте. Есть проблема, с которой не могу разобраться уже на протяжении какого-то времени. Суть проблемы. Создаю dll библиотеку и сую туда форму со своим функционалом (Delphi, RAD Studio XE5). Динамически подгружаю в приложение и по сути всё работает, но... Когда же я хочу выгрузить приложение я получаю, либо ряд ошибок AV, либо зависание всего приложение при выполнении FreeLibrary, либо неизвестную мне ошибку "DXGI ERROR: CreateDXGIFactory cannot be called from DllMain. [ MISCELLANEOUS ERROR #76: ]". Так же не могу понять, как передать Handle приложения в библиотеку (в VSL это было довольно просто). К сожалению никакой информации по данным вопросам я не смог найти, кроме не больших вырезок со своими недочётами. Прошу вас помочь в решении данных проблем. Большое спасибо. С уважением, Ethernet.
×
×
  • Создать...