-
Постов
65 -
Зарегистрирован
-
Посещение
Информация о Anasazi
- День рождения 20 мая
Информация
-
Пол
Мужчина
-
Город
Пермь
Посетители профиля
1 757 просмотров профиля
Достижения Anasazi
-
Ingalime отреагировал на сообщение в теме: PHP сервер для рассылки Push на Android и iOS
-
DMS отреагировал на ответ на вопрос: Проблема при активации memo или edit программа зависает и закрывается.
-
Rusland отреагировал на ответ на вопрос: Проблема при активации memo или edit программа зависает и закрывается.
-
Rusland отреагировал на сообщение в теме: [Статья] PHP сервер для рассылки Push на Android и iOS
-
Спасибо, большое. Разобрался на вашем примере с алгоритмом создания компонентов,
-
Доброго времени суток. Помогите пожалуйста разобраться с динамическим созданием компонентов. Хочу создать на vertscrollbox несколько rectangle, На каждом из rectangle создать хочу попробовать создать tbutton и tlabel. Пока смог только создать несколько TRectangle. Получился вот такой: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i :=1 to 30 do with TRectangle.Create(VertScrollBox1) do Parent:=VertScrollBox1 end; procedure TForm1.FormResize(Sender: TObject); var i: integer; begin for i :=0 to Box1.ComponentCount-1 do begin if box1.Components is TRectangle then with TRectangle(box1.Components) do begin Align := TAlignLayout.Top; Margins.Left:=10; Margins.Top:=15; Margins.Right:=15; end; end; Подскажите пожалуйста как на каждом из созданных TRectangle создать Tbutton и Tlabel?
-
Ingalime отреагировал на сообщение в теме: [Статья] PHP сервер для рассылки Push на Android и iOS
-
Anasazi отреагировал на ответ на вопрос: [Андроид] статья ZuBy и фантомный пуш
-
Ingalime отреагировал на ответ на вопрос: [Андроид] статья ZuBy и фантомный пуш
-
walexw отреагировал на ответ на вопрос: [Андроид] статья ZuBy и фантомный пуш
-
А если внутри скрипта есть проверка пароля? Добавь поля login и pass и будет нормально.
-
Ingalime отреагировал на ответ на вопрос: [Андроид] статья ZuBy и фантомный пуш
-
Вот примерно так 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);
-
Ingalime отреагировал на ответ на вопрос: [Андроид] статья ZuBy и фантомный пуш
-
Не трогай TWebBrowser1. Делай все через пост-запросы. Пример нужен?
-
А как думаете, как лучше получить URL'ы? PHP пусть возвращает одной строкой и потом разбивать по разделителю?
- 15 ответов
-
Всем доброго времени суток. Возникла необходимость решить такую задачу: в таблице базы 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;
- 15 ответов
-
Ingalime отреагировал на ответ на вопрос: [Андроид] статья ZuBy и фантомный пуш
-
У меня была такая хрень, правда делал все не по статье Zuby, а по статье Александра Бирюкова, она тут тоже где-то есть на форуме. Пуш отправлял через обычную строку браузера http://пример.ru/push.php?action=send-push&text=МЧС предупреждает: сильные ливни! Заметил такую хрень, что фантомные пуши отправлялись в момент синхронизации chrome. Или когда заходил в свою учетку chrome и на другом компе и chrome начинал подтягивать журнал пароли и прочее.
-
Нашел тему: Заменил OnClick на OnTap и все стало работать корректно.
-
Установил у всех TImage hittest := false, но теперь скролинг совсем не работает.
-
Доброго времени суток всем! Столкнулся с такой штукой: есть TVertScrollBox, на нем TGridPanelLayout, а у уже в ячейках TImage. Проблема в том что при скролинге срабатывает событие OnClick у компонентов TImage. Можно ли как то исключить срабатывание этого события при прокрутке?
-
И версию ОС
-
Я вроде бы только одну строку заменил в global.pas // Отправляем запрос Mainform.NetHTTPClient1.Post(DOMAIN + 'push.php', postdata);
-
Замени idHTTP на NetHTTPClient в коде изменения незначительные и будет все нормально.