-
Постов
65 -
Зарегистрирован
-
Посещение
Весь контент Anasazi
-
Спасибо, большое. Разобрался на вашем примере с алгоритмом создания компонентов,
-
Доброго времени суток. Помогите пожалуйста разобраться с динамическим созданием компонентов. Хочу создать на 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?
-
А если внутри скрипта есть проверка пароля? Добавь поля login и pass и будет нормально.
-
Вот примерно так 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);
-
Не трогай 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 ответов
-
У меня была такая хрень, правда делал все не по статье 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 в коде изменения незначительные и будет все нормально.
-
Возможно ли реализовать работу жестов на компоненте TWebbrowser
Anasazi опубликовал вопрос в Прочие вопросы
Доброго времени суток! Есть приложение в котором используется TWebbrowser, хотел сделать чтобы при свайпе справа-налево выполнялся WebBrowser.GoBack, но обнаружил что жесты работают везде кроме TWebbrowser. Подскажите пожалуйста есть ли какое-либо решение этой проблемы? RAD Studio Berlin Update 1. -
Все получилось, спасибо большое!
-
Говорит что вот эта строка: function HTTPGet(const aURL: string; const aEncoding: TEncoding = TEncoding.UTF8): string;
-
Не компилируется, даже если не вызывать функцию.
-
C CheckInet все получилось, спасибо большое. А вот с HTTPGet не получается, при компиляции вываливается ошибка. HTTPGet вызываю так: xml_result:=HTTPGet('https://geocode-maps.yandex.ru/1.x/?geocode='+ 'Кунгур'+ ',+' +street+ '+улица,+дом+'+ house, Result); Подскажите пожалуйста как поправить.
-
Спасибо большое!
-
Можете поподробнее про HasConnection := true; Что это за переменная? Не могу информацию в гугле найти.
-
Всем добрый день! Получаю координаты с помощью yandex api. Использую вот такой код: try ////Запрос на Яндекс для получения координат MainForm.NetHTTPClient1.Get ('https://geocode-maps.yandex.ru/1.x/?geocode='+ 'Кунгур'+ ',+' +street+ '+улица,+дом+'+ house, Result); finally end; Код отрабатывает нормально, но если ну устройстве нет интернета, то приложение просто вылетает. Подскажите пожалуйста как поправить. Приложение для iOS.