Это просто потрясающе!! Будем ждать автоматического отображения адреса в Edit
27 2016-12-13 11:01:51
Re: Оповещение о добавленных записях (37 replies, posted in Russian)
Не поможете скриптом?
Логикой я понимаю его так:
Процедура для формы OnShow
В ней
if (дата выхода пользователя) > (даты последних добавленных записей)
then (строка записи = цвет).
Как объяснить это программе?))
28 2016-12-12 19:07:01
Re: TWeb Browser, сохранение изображения скриптом. (8 replies, posted in Russian)
Я понял как сохранить ссылки на изображения, однако не понимаю как их сразу же сохранить в бд...
29 2016-12-12 19:00:37
Re: Длина, сложность,упрощение скрипта, или отладка... (6 replies, posted in Russian)
Спасибо за ответ! Буду знать.
30 2016-12-12 18:59:03
Re: Оповещение о добавленных записях (37 replies, posted in Russian)
Дмитрий, а нет конкретного примера раскрашивания записей созданых в отсутствии пользователя? Или куска скрипта?
31 2016-12-11 19:46:12
Re: реализация наподобие виндового (или эппловского) календаря (45 replies, posted in Russian)
Думаю тогда Вам подскажет Дмитрий - разработчик. Скорее всего надо править сам компонент календаря...если то, что Вы описали действительно так нужно, либо здесь на форуме, есть пример напоминалки, по функционалу - это то, что Вам нужно, правда визуально немного по-другому выглядит. Если для заказчика делаете, то вероятнее всего, этот пример ему понравится - он удобен.
32 2016-12-10 15:23:35
Re: реализация наподобие виндового (или эппловского) календаря (45 replies, posted in Russian)
Сделал пример для вас, посмотрите вы это имели ввиду?
https://yadi.sk/d/5EYAwYn632tiEW
33 2016-12-10 14:09:22
Re: реализация наподобие виндового (или эппловского) календаря (45 replies, posted in Russian)
Сделайте поиск по дате с выводом в TablrGrid. А потом реализуйте поиск по дате, разместих два DateTimePicker на форме, в одном параметр поиска сделайте >= а в другом <= тогда при поиске будут выводится значения от и до. То есть за определенный промежуток времени. Все это можно подвязать к календарю в событии OneChange
34 2016-12-08 23:39:54
Re: Элементы управления для TWebBrowser (назад, обновить, вперед) (5 replies, posted in Russian)
Поддерживаю вопрос по отобржению текущего адреса в edit
35 2016-12-08 23:15:59
Re: Длина, сложность,упрощение скрипта, или отладка... (6 replies, posted in Russian)
Понял, сейчас потыкаюсь, спасибо огромное заранее!)
36 2016-12-08 23:04:03
Re: Поиск по всем таблицам MySQL + вывод. (6 replies, posted in Russian)
Протестировал, все работает отлично! Спасибо большое!
37 2016-12-08 23:02:07
Re: Длина, сложность,упрощение скрипта, или отладка... (6 replies, posted in Russian)
Спасибо за исходник, но блин никак не найду решения.
Мобильная версия отображается некорректно, а у меня в проекте принцип работы такой:
Пользователь заходит через проект на авито, выбирает нужный товар, если после звонка он ему подходит, тогда он кликает кнопку "автозаполнение" и все данные копируются в аналогичные данные в проект.
Поэтому нужна полная версия авито(
Не знаете, случаем, способа просмотра номера с десктопной версии авито?
Извиняюсь за оффтоп(
38 2016-12-08 22:40:28
Re: Оповещение о добавленных записях (37 replies, posted in Russian)
Либо, что даже лучше и скорее всего проще, выделение записей (отображаемых в TableGrid) добавленных с момента последнего ВЫХОДА пользователя цветом. Реализуемо?
39 2016-12-08 22:27:30
Re: Элементы управления для TWebBrowser (назад, обновить, вперед) (5 replies, posted in Russian)
Здравствуйте Дмитрий!!!
Это просто ЧУДО!!!....,ДЛЯ ПОЛНОГО СЧАСТЬЯ НЕ ХВАТАЕТ....:
отображения в едит адреса странички, которая находиться в TWebBrowser...
Это сложно будет воплотить в реальность???
Скажите пожалуйста, можем с Вами как либо связаться, хочу вопрос задать по парсингу с авито, знаю Вы продвинулись в этом деле и подсказывали мне.
40 2016-12-08 20:40:45
Re: TWebBrowser (32 replies, posted in Russian)
Да, отправьте пожалуйста. При приобретении этой версии, обновления так же до версии 4.0?
41 2016-12-08 20:36:04
Topic: Длина, сложность,упрощение скрипта, или отладка... (6 replies, posted in Russian)
Тема больше философская, не думаю, что здесь много будет конкретики.
Сразу хочу оговорится, что я полностью удовлетворен быстродействием проектов (по крайней мере на MySQL) данные вопросы и размышления ради интереса. Ну и конечно же: человек всегда хочет выше, быстрее, сильнее, может от Ваших, Дмитрий, ответов что-то получится улучшить в проектах.
Сидел тут, упорядочивал скрипт проекта, для лучшего ориентирования по нему и задумался...
Как работает скрипт, каким образом?
Он при запуске проекта сразу обрабатывает весь текст, превращая его в функционал, или же он подгружает функционал, при задействовании элементов?
Имеет ли приоритетное значение расположение процедур в скрипте? Или же любые процедуры могут быть раскиданы по скрипту, скажется ли это на производительности? И если имеет, то какие части стоит располагать в скрипте выше, а какие можно кинуть в последние строки?
Очень интересно, отчего зависит быстродействие программы, как программа определяет кол-во потребляемых ресурсов? Пробовал запускать проект и на очень слабом компьютере и на мощном игровом компьютере и на сервере немалых мощностей.
Отклик и время запуска программы примерно одинаковый, отличается секундой, или даже миллисекундами...
Может быть есть какая либо среда, для ручного распределения ресурсов системы?
По поводу текста скрипта так же интересует вопрос, сказывается ли как-то на производительности части скрипта, которые язык игнорирует?
То есть, закомментированы строки ( //Не обрабатывай это).
А что касается элементов на форме? Сказывается ли на производительности использование, скажем, нестандартных шрифтов, нестандартных цветов элементов?
Буду благодарен за подробный ответ, если вопрос стоит свеч
Всех с наступающим Новым Годом!
42 2016-12-08 18:25:50
Re: Ассоциативный выбор в ComboBox из Edit (4 replies, posted in Russian)
Спасибо! Скажите, а почему по-хорошему лучше в базе?
Кстати, навело на новый вопрос, создам новую тему, пожалууй.
43 2016-12-08 12:22:26
Re: TWebBrowser (32 replies, posted in Russian)
И ещё два вопроса, касаемых TWebBrowser
1) Как растянуть компонент на всю форму, при разворачивании окна?
2) Вы встроите весь вышеописаный функционал в версию 2.х - ведь TWebBrowser компонент этой версии.
Просто необходимо сдавать проект, а он в триал версии 3 создан, вскоре покупку попросит, или скажите, когда можно будет купить стабильную 3 версию?)
44 2016-12-08 12:06:54
Re: TWebBrowser (32 replies, posted in Russian)
Да, извиняюсь не обратил внимания.
Все работает, вопрос решен.
45 2016-12-07 18:01:56
Re: TWeb Browser, сохранение изображения скриптом. (8 replies, posted in Russian)
Самую малость продвинулся.
Ниже часть исходного кода авито, в которой содержатся изображения:
<meta property="og:image" content="https://51.img.avito.st/640x480/3138614951.jpg" /><meta property="og:image" content="https://76.img.avito.st/640x480/3138616176.jpg" /><meta property="og:image" content="https://33.img.avito.st/640x480/3138616933.jpg" /><meta property="og:image" content="https://68.img.avito.st/640x480/3138617468.jpg" /><meta property="og:image" content="https://79.img.avito.st/640x480/3138618379.jpg" /><meta property="og:image" content="https://78.img.avito.st/640x480/3138619278.jpg" /><meta property="og:image" content="https://84.img.avito.st/640x480/3138619784.jpg" /><meta property="og:image" content="https://04.img.avito.st/640x480/3138620604.jpg" /><meta property="og:image" content="https://00.img.avito.st/640x480/3138621200.jpg" /><meta property="og:image" content="https://34.img.avito.st/640x480/3138621834.jpg" /><meta property="og:image" content="https://26.img.avito.st/640x480/3138622626.jpg" /><meta property="og:image" content="https://10.img.avito.st/640x480/3138623110.jpg" /><meta property="og:image" content="https://52.img.avito.st/640x480/3138624652.jpg" /><meta property="og:image" content="https://24.img.avito.st/640x480/3138625324.jpg" /><meta property="og:image" content="https://83.img.avito.st/640x480/3138625883.jpg" /><meta property="og:image" content="https://24.img.avito.st/640x480/3138626424.jpg" /><meta property="og:image" content="https://75.img.avito.st/640x480/3138626875.jpg" /><meta property="og:image" content="https://23.img.avito.st/640x480/3138627923.jpg" /><meta property="og:image" content="https://66.img.avito.st/640x480/3138630166.jpg" /><meta property="og:image" content="https://87.img.avito.st/640x480/3138633487.jpg" /><meta property="og:image" content="https://51.img.avito.st/640x480/3138614951.jpg" />
Понимаю, что мне необходимо использовать функцию httpgetfile:
HttpGetFile('http://24.img.avito.st/640x480/3138614951.jpg', 'C:\Cap\file1.jpg');
HttpGetFile('http://24.img.avito.st/640x480/3138616176.jpg', 'C:\Cap\file2.jpg');
HttpGetFile('http://24.img.avito.st/640x480/3138618379.jpg', 'C:\Cap\file3.jpg');
HttpGetFile('http://24.img.avito.st/640x480/3138620604.jpg', 'C:\Cap\file4.jpg');
и т.д.
Однако, путь к файлам один, а названия файлов разные. То есть данный код подойдет только для одного объекта.
Как я могу сделать так, чтобы работало таким образом:
HttpGetFile('http://24.img.avito.st/640x480/Гружу все, что есть по данному адресу с расширением .jpg', 'C:\Cap\генерирую произвольное имя с расширением .jpg');
46 2016-12-07 17:10:29
Re: Обучающие материалы (6 replies, posted in Russian)
Очень качественные ссылки с понятным материалом, спасибо!
47 2016-12-07 16:53:43
Re: TWebBrowser (32 replies, posted in Russian)
Разместил кнопку с данным кодом,
ругается на слово Stop
48 2016-12-07 16:13:47
Re: TWebBrowser (32 replies, posted in Russian)
Отправил проект на почту, с описанием
49 2016-12-07 16:00:14
Topic: Элементы управления для TWebBrowser (назад, обновить, вперед) (5 replies, posted in Russian)
Как возможно для формы, с компонентом TWebBrowser прописать действия для кнопок:
На предыдущую страницу
Обновление текущей страницы
На страницу вперед (срабатывает, только после нажатия кнопки "На предыдущую страницу"
В целом небольшой аналог браузера
50 2016-12-07 15:54:34
Re: Ассоциативный выбор в ComboBox из Edit (4 replies, posted in Russian)
Код не мой, взял его из Вашего примера:
procedure frmAddNewObject_Edit3_OnChange (Sender: string);
begin
frmAddNewObject.ComboBox2.dbFilter := 'type LIKE "%'+ frmAddNewObject.Edit3.Text +'%"';
UpdateDatabase('type');
if frmAddNewObject.ComboBox2.Items.Count = 2 then
begin
frmAddNewObject.ComboBox2.DroppedDown:=False;
frmAddNewObject.ComboBox2.ItemIndex := 1;
end else frmAddNewObject.ComboBox2.DroppedDown:=True;
end;