Anasazi

Пользователи
  • Публикации

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

  • Посещение

1 подписчик

О Anasazi

  • Звание
    Продвинутый пользователь
  • День рождения 20 мая

Информация

  • Пол
    Мужчина
  • Город
    Пермь

Посетители профиля

315 просмотров профиля
  1. Можете скинуть куда-нибудь файл push.php с внесенными вами изменениями?
  2. А если внутри скрипта есть проверка пароля? Добавь поля login и pass и будет нормально.
  3. Вот примерно так PostData:= TStringList.Create; try // Создаём подключение IdHTTP1 := TIdHTTP.Create; // Указываем данные для отправки PostData.Clear; postdata.Add('text_push=' + Memo1.Text); postdata.Add('action=send_push'); // Отправляем запрос Result:=IdHTTP1.Post(DOMAIN + 'push.php', postdata); finally end; Потом можешь куда-нибудь отобразить результат. showmessage(result);
  4. Не трогай TWebBrowser1. Делай все через пост-запросы. Пример нужен?
  5. А как думаете, как лучше получить URL'ы? PHP пусть возвращает одной строкой и потом разбивать по разделителю?
  6. Всем доброго времени суток. Возникла необходимость решить такую задачу: в таблице базы MySQL хранится список изображений и их URL. Необходимо получить этот список массивом. Затем загрузить изображения и поочередно с интервалом показать их в TImage. Понимаю, что получить список изображений правильнее при помощи PHP скрипта, но в каком виде скрип должен вернуть данные, чтобы в Delphi получить из них массив не знаю. Раньше для получения изображений использовал такую процедуру. Но вопрос, где хранить изображения перед демонстрацией их в TImage? Создавать несколько MemoryStream? procedure LoadWebImage(url: string; image: TBitmap); var idhttp : TNetHTTPClient; ms : TMemoryStream; begin IdHTTP := TNetHTTPClient.Create(nil); ms := TMemoryStream.Create; try idhttp.Get(url, ms); ms.Position := 0; image.LoadFromStream(ms); finally ms.Free; idhttp.Free; end; end;
  7. У меня была такая хрень, правда делал все не по статье Zuby, а по статье Александра Бирюкова, она тут тоже где-то есть на форуме. Пуш отправлял через обычную строку браузера http://пример.ru/push.php?action=send-push&text=МЧС предупреждает: сильные ливни! Заметил такую хрень, что фантомные пуши отправлялись в момент синхронизации chrome. Или когда заходил в свою учетку chrome и на другом компе и chrome начинал подтягивать журнал пароли и прочее.
  8. Нашел тему: Заменил OnClick на OnTap и все стало работать корректно.
  9. Установил у всех TImage hittest := false, но теперь скролинг совсем не работает.
  10. Доброго времени суток всем! Столкнулся с такой штукой: есть TVertScrollBox, на нем TGridPanelLayout, а у уже в ячейках TImage. Проблема в том что при скролинге срабатывает событие OnClick у компонентов TImage. Можно ли как то исключить срабатывание этого события при прокрутке?
  11. Я вроде бы только одну строку заменил в global.pas // Отправляем запрос Mainform.NetHTTPClient1.Post(DOMAIN + 'push.php', postdata);
  12. Замени idHTTP на NetHTTPClient в коде изменения незначительные и будет все нормально.
  13. Доброго времени суток! Есть приложение в котором используется TWebbrowser, хотел сделать чтобы при свайпе справа-налево выполнялся WebBrowser.GoBack, но обнаружил что жесты работают везде кроме TWebbrowser. Подскажите пожалуйста есть ли какое-либо решение этой проблемы? RAD Studio Berlin Update 1.
  14. Все получилось, спасибо большое!