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

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

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

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
andead



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как в Explorer добавить своё раскрывающееся меню, например 7-Zip создаёт такое: http://img213.imageshack.us/img213/4946/screen002wa7.jpg
и чтобы каждый пункт запускал программу с определёнными параметрами, нашёл как сделать один пункт меню, а вот с раскрывающимся проблемс(
 
Добавлено:
2. есть два TImage в которые загружены битмапы, как их можно сравнить? нужно что то типа crc32 высчитать, только не файла а TImage.Picture

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 04:22 30-09-2006
Jokerjar



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

Цитата:
есть два TImage в которые загружены битмапы, как их можно сравнить?

может по циклу каждый пиксель сравнить

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 05:33 30-09-2006
RomanTim

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

Цитата:
Полностью согласен, но видимо я еще не достиг "достаточно долгой итерации цикла" т.к. ProcessMessages реально помог, да же на слабой машинке.

А ты глянь сколько процессора сжирает выполнение цикла  
while .. do Application.ProcessMessages;
пока условие = True - ведь пока сообщений нет оно просто гоняет программу по одному и тому же месту. Я такую вещь обычно использую когда итерация цикла все же выполняет какое то более-менее продолжительное действие, и периодически вызываю обработку сообщений чтобы форма переисовалась
 

Цитата:
Что ты подразумевал под т.д. или семафоры (CreateMutex, OpenMutex, Pipe)  рулитят ? Если есть опыт работы с ними - поделись

По поводу синхронизации потоков лучше найди книгу Джефри Рихтер. Windows для профессионалов - книга очень полезная и думаю в электронном виде не самый большой дефицит.
А вообще для синхронизации записи в общие переменные обычно используют критические секции. Ну а советовать что-то конкретное, не зная того что и как ты пишешь, довольно сложно

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 10:55 30-09-2006
goodwen



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет. Стоит Borland Developer Studio 2006 (бех хотфиксов)
Не могу добраться до компонента Shockwave Flash (нужен для проигрывания в окне анимации).
Нашел в инете следующие статью http://www.ishodniki.ru/art/artshow.php?id=47&cat=1&show=delphi но нечего не получилось.
Мои действия:
1) Создаю новый проект (VCL Forms Application)
2) Меню Commponent->Import component->Import Activex Control->next->Shockwave Flash->next->В разделе Pallete Page выбираю Standart->next->Finish
Дальше в моем понимании в разделе Standart должен появится новый компонент, но вместо этого открывается unit ShockwaveFlashObjects_TLB; и что с ним дальше делать непонятно...
 
Подскажите, что не так делаю.

Всего записей: 243 | Зарегистр. 09-04-2006 | Отправлено: 14:45 30-09-2006
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
goodwen, попробуй установить этот unit как компонент (компонент -> установить компонент)

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 16:24 30-09-2006
JackOff



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую всех! Может, кто писал парсер DDL SQL скриптов или знает компоненту для этого под ADO (надо из скрипта сгенерить структура БД в mdb файле).

Всего записей: 73 | Зарегистр. 13-11-2005 | Отправлено: 18:15 30-09-2006
Zver1992

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

Код:
123'123

и

Код:
321<>321

Просто нужно выдерать кусочки html'ок :\
 
Добавлено:
Кхм. Точнее даже поподробней. Есть страничка. В ней есть <form>. имена полей постоянно меняються. Как мне сформировать пакет, выдрав эти имена? Как пакет то отравить я знаю, но т.к. имена полей меняються - я не могу его сформировать правильно

Всего записей: 599 | Зарегистр. 30-10-2004 | Отправлено: 19:23 30-09-2006
Dmitry

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zver1992
а пример странички с текущими именами полей можно? можно в пм

Всего записей: 81 | Зарегистр. 24-09-2003 | Отправлено: 21:35 30-09-2006
Zver1992

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dmitry
http://tztime.ru/code.txt
Он именно в такой неудобной форме поставляеться
Нужно выдерать вот эти значения:
<input type=hidden name='WiCkBzQu' value='0'><input type=hidden name='YuFuEsYr' value='-1'><input type=hidden name='QuNaPhJq' value='-1'>
 
Нужно только name'ы раскинуть и всё. value уже не нужны.

Всего записей: 599 | Зарегистр. 30-10-2004 | Отправлено: 21:57 30-09-2006
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zver1992, загружай html в memo и ищи что нужно примерно таким образом: pos('name=',memo1.lines.text), потом копируй что нужно (copy)

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 04:51 01-10-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
goodwen
Покоже еще один глюк в мастере импорта компонент.
Как советовал Jokerjar сделать не получится, так как в 2006 больше нет мастера установки компонента - придется все то же самое, но ручками:
- после импорта открой ..\Borland\BDS\4.0\lib\dclusr.bds
- в ProjectManager правой кнопкой по dclusr100.bpl -> Add и добавь ..\Borland\BDS\4.0\Imports\ShockwaveFlashObjects_TLB.pas
- в том же контекстном меню выбери Install
 
Zver1992
Для таких вещей очень удобно использовать реглярные выражения.
А если делать через Pos, то Memo использовать совсем не обязательно - хватит и обычного TStringList

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 11:43 01-10-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Как можно принудительно поменять кодировку в TWebBrowser, в случае если он ее определил не правильно?
Как определить нужную кодировку - знаю.
 
Добавлено:
и отключить сообщение о ошибках при открытии

----------
При изучении наук примеры полезнее правил. ©Исаак Ньютон

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 13:55 01-10-2006
Dmitry

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RomanTim
нда, сильно ему поможет TStringList, если там все в одну строку
 
Zver1992
а что касается разбора - то действительно или регулярные выражения (TRegExp например), или парсить вручную. учитывая узкую специализацию задачи, второе может оказаться даже менее трудоемким

Всего записей: 81 | Зарегистр. 24-09-2003 | Отправлено: 14:51 01-10-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Dmitry
Яписал к тому, что нет смысла дергать большой и визуальный TMemo, у которого использовать только Lines.Text. А вообще для того чтобы в строку поместить тектовый файл довольно удобно, хотя можно и через TStringStream - но он сам по строкам не разберет

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 18:24 01-10-2006
goodwen



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Спасибо всем кто ответил.  
Решение нашел в Интернете(проморгав ответ RomanTim), в 2006 это делается через создание пакета.
 
Новый вопрос:
На форме имеется компонент ListBox добавив в него несколько Items и откомпилировав можно пощелкав, выбирать нужный итемс  при этом выбранный итемс выделяется СИНИМ ЦВЕТОМ, можно ли этот цвет поменять на другой или же это решается только настройками цветов виндоус  ?
 

Всего записей: 243 | Зарегистр. 09-04-2006 | Отправлено: 11:13 02-10-2006 | Исправлено: goodwen, 11:26 02-10-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
goodwen
Не обязательно. Устанавливаешь Style в OwnerDraw и отрисовываешь элементы в OnDrawItem как тебе нравится

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 11:27 02-10-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
goodwen
Всё можно, если осторожно. Просто нужно переопределить в ListBox  OnDrawItem и стиль выставить Style = lbOwnerDrawFixed. И можно будет отрисовывать хоть в клеточку.
---
Добавлено
Медлено пишу
Можно также в JEDY заюзать компоненты

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 11:30 02-10-2006 | Исправлено: OdesitVadim, 11:31 02-10-2006
goodwen



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
эээ...а сможно для  адаренных в деталях?

Всего записей: 243 | Зарегистр. 09-04-2006 | Отправлено: 11:46 02-10-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
goodwen
Например, так
Код взят из исходноков VCL и немного доработан.

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 11:53 02-10-2006
goodwen



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Ramazan
О да это то что нада спасиба

Всего записей: 243 | Зарегистр. 09-04-2006 | Отправлено: 14:47 02-10-2006
   

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru