Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4

Модерирует : ShIvADeSt

ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

VitOs2

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Друзья! Помогите решить следующую задачу.
Есть текст в каком-то компоненте (к примеру TEdit).
Текст следующего формата:
"работа над объектами 23432, 345345 и 445"
Нужно выделить все цифры гипперсылками (по некоторому алгоритму, например, больше 100). И назначить действие при нажатии, например, OpenObject(id).
Посоветуйте, как можно это реализовать. Может, на основе другого какого-нибудь компонента...
Спасибо!

Всего записей: 54 | Зарегистр. 18-03-2008 | Отправлено: 12:19 14-05-2009 | Исправлено: VitOs2, 12:20 14-05-2009
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблема такая :
есть WebBrowser
есть html документ
 
При нажатии по ссылке в html документе, который открыт через WebBrowser по событию WebBrowser1DocumentComplete форма должна закрыться тогда когда прогрузиться документ по имени exit, на некоторых компьютерах закрывается, не некоторых нет почему понять не могу
 

Код:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var e:string;
begin
e:=('exit');
if e=WebBrowser1.LocationName then
begin
close;
Application.Terminate;
end;
end;
 

Всего записей: 3391 | Зарегистр. 20-05-2006 | Отправлено: 12:54 14-05-2009
V1s1ter



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grande

Цитата:
Уважаемые знатоки, существует ли способ получить формат даты-времени с удаленного SQL-сервера (например, с PostgreSQL'а)?  

Я незнаком со всеми SQL серверами, но, IMHO, алгоритм таков.
1) определяем Тип SQL сервера.
2) Для каждого типа формируем свой запрос о формате даты, например для MS SQL "select @DateTimeFormat".
Не смотря, на то, что форматы стындартезированы есть отличия. Пример 1-JAN-2009 InterBase поймет в любом случае, а МЫ SQL только если региональные настройки английские, а если русские то подавай ему 1-ЯНВ-2009.
Есть еще один формат ISO 8601, шабол таков ГГГГММДДTчч:мм:сс[.ммм] в середине именно латинская "T", она отделяет дату от времени.
Еще незабывайте, что возможно при одинаковом формате для разных серверов могут потребоватся разные кавычки для заключения этой самой даты.

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 13:27 14-05-2009
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grande
как сказал V1s1ter используйте в Вашей программе формат ISO
или подозреваю у Вас типа такого .ParamByName().Value :='12.01.2009' т.е. строка
переделайте в формат TDateTime
var mDate : TDateTime;
begin
  mDate :=Now;
  .ParamByName().Value := mDate;
 

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 14:49 14-05-2009
Grande



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
V1s1ter
Нету в постгресе DateTimeFormat, в том-то и дело
Да и похожего ничего нет.
 
 
Добавлено:
greenpc
У меня не так, но это мысль. Спасибо, попробую.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 16:15 14-05-2009 | Исправлено: Grande, 16:16 14-05-2009
V1s1ter



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grande
greenpc
Указанный вами способ проидет только для одного типа серверов, я понял, нужен универсальный. Поэтому сначало и надо определить тип сервера, а потом исходя из его возможностей и все остальное. Тип DateTime напрямую можно отослать толькос помощью api сервера, универсаньный код должен генерить строки в соответствующем формате.
Если интересовал только PostgreSQL, то и вопрос нужно было задать именно понему.

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 17:34 14-05-2009
f3ka

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
V1s1ter
вы не правы что надо определять тип сервера... как раз таки компоненты доступа уже знают куда они подключены и параметр будет преобразован в правильный вид...

Всего записей: 497 | Зарегистр. 02-03-2007 | Отправлено: 17:45 14-05-2009
V1s1ter



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
f3ka
Да видимо глупость написал... Точнее написл правильно, в смысле реализации решения, но забыл, что разработчики универсальных компонент, тоже должны были режить эту проблему. Сорри ...  

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 18:02 14-05-2009
Kursist



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня возник вопрос.  
У меня обычное VCL приложение. Как можно повысить приоритет основного и единственного потока своей программы? (гугли предложило только информацию про многопоточные приложения)

Всего записей: 137 | Зарегистр. 12-07-2004 | Отправлено: 16:00 17-05-2009
Terre



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kursist
что то типа того наверное
 
для приложения
  SetPriorityClass(GetCurrentProcess, xxx_PRIORITY_CLASS);  
 
для потока
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_xxxxx);

Всего записей: 27 | Зарегистр. 31-07-2008 | Отправлено: 19:36 17-05-2009
Kursist



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Terre
Спасибо!
Про поток информацию находил, а про приложение нет.
А где лучше это вставлять? В FormCreate, FormActivate ?

Всего записей: 137 | Зарегистр. 12-07-2004 | Отправлено: 21:21 17-05-2009 | Исправлено: Kursist, 21:23 17-05-2009
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kursist

Цитата:
А где лучше это вставлять? В FormCreate, FormActivate ?

В FormCreate естессно.
 


----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:49 18-05-2009
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А, если кто пользовал, функция AttachThreadInput должна отдавать поток ввода в другой. Но я может ещё чего-то не делаю? Но ShowModal не работает...

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 22:27 18-05-2009
3x3r



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе утро всем, вот задали задачку не могу решить.
 
Дано число А, содержащее 2 знака до запятой и  2 после ( 35,11 ) Получить новое число, поменяв целую и дробную части ( 11, 35 )
 
Подскажите пожалуйста, может кто сталкивался.

Всего записей: 124 | Зарегистр. 17-12-2005 | Отправлено: 04:51 19-05-2009
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
3x3r
Result := Frac(A) * 100 + Int(A) / 100;

----------
Per rectum ad...

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 07:55 19-05-2009
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Но ShowModal не работает.

Простите, неправильно пишу. Оказалось что цикл ShowModal работает. Только я сначала делаю BrignToFront окошку, а потом оно всё едино сваливается под главное окно. Пробовал DisableTask в разных вариациях, но метод научного тыка подвёл. ( Что, то я в школе пропустил. Я не хотел бы делать StayOnTop, хотя думаю это даже меньшее зло. Что бы такого придумать, чтоб виндовс был полезнее чем Delphi?

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 20:08 19-05-2009
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может WM_ACTIVATE отдавать в модальное окно?
 
Добавлено:
А вообще, есть событие в виндовсе, которое отвечает за Z-ордер. Или это понятие только для Delphi? Я уже подобные вещи давно не трогал - извините.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 09:57 20-05-2009 | Исправлено: delover, 10:07 20-05-2009
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
delover
Насколько помню Z-ордер это понятие не дельфи, а именно МС.Где то встречал функции которые переупорядочивали его,ноэто давно было. Сформулируй понятно что ты хочешь получить а не отрывки контекста, возможно есть более простой способ. Судя по тому что я прочитал, ты хочешь принудительное выкидывание окна вперед сделать (что то типа SetForegroundWindow но без мерцания а сразу вперед), но могу ошибаться так как не вижу четкого ТЗ.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 15:26 20-05-2009
Aladdinych



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите плз решение проблемы
Нужно в несколько адресов посылать ping? Так, чтобы все посылки были независимы друг от друга
я пробовал использовать компонент IdIcmpClient, но он посылает пинг и дожидается ответа. Если таймаут достаточно большой, то работа всей программы на это время тормозится.
Как этого избежать.
Чтобы процессы посылки запроса и приема ответа были независимы
может быть есть другие компоненты для этой цели под Delphi 7

Всего записей: 323 | Зарегистр. 18-10-2005 | Отправлено: 15:28 20-05-2009
f3ka

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aladdinych
Использовать ПОТОКИ

Всего записей: 497 | Зарегистр. 02-03-2007 | Отправлено: 16:00 20-05-2009
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru