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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста возможно ли отсортировать главную таблицу по информации в подчиненной таблице в  
Delphi 6. Использую два DBGrid -а и ADOTable. Таблицы связаны с помощью свойств MasterSource и MasterFields.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 12:57 16-08-2006 | Исправлено: pit23, 17:01 17-08-2006
ShadowMen

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно ли как нибудь изменить цвет Caption-а у CheckBox-а при включенном манифесте?

Всего записей: 263 | Зарегистр. 18-02-2002 | Отправлено: 14:56 17-08-2006 | Исправлено: ShadowMen, 15:00 17-08-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите, пожалуйста, как преобразовать шестнадцатеричное  число (типа $fff6) в десятичное, с соблюдением знака
FFF6 -> -10  
 
Спасибо!

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

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 13:36 18-08-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vetal303
  if StrToInt('$'+edt1.Text)> MAXWORD then
    ShowMessage(IntToStr(StrToInt('$'+edt1.Text)- MAXWORD -1))
  else  ShowMessage(IntToStr(StrToInt('$'+edt1.Text)));

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 14:44 18-08-2006 | Исправлено: greenpc, 14:44 18-08-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
greenpc
РЕСПЕКТ ТЕБЕ!!!

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 15:03 18-08-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Vetal303greenpc
Если чуточку мозги напряч, то можно и без if'ов обойтись (они сильно бьют по производительности)
Так как мы имеем дело с 2 байтовым, то пишем так
x:=SmallInt(WORD(strtoint('$'+s)));
для однобайтовых
x:=Shortint(byte(strtoint('$'+s)));
для 4байтовых
x:=Longint(Longword(strtoint('$'+s)));
 
такие преобразования типов прозрачны для компилятора, они просто нужны, что бы он не ругался на несовместимость типов.
 
ну s - надеюсь догадались, наше шестнадцатеричное число

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

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 18:53 18-08-2006
kzsergo

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

Всего записей: 36 | Зарегистр. 14-07-2006 | Отправлено: 19:49 18-08-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OdesitVadim
Пасибо БОЛЬШОЕ, ты как всегда на высоте!!!    тебе!!!

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

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 20:40 18-08-2006
ShIvADeSt



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

Цитата:
Подскажите как вытащить из чужой библиотеки какую-нибудь функцию или форму, если я не знаю ее ни описания, ни имени.

Никак.


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

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:18 19-08-2006
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kzsergo
Форму можно вытащить редактором ресурсов, например, PE Explorer. Но только DFM (без кода). Код можно только декомпилировать, н-р, при помощи dede, он дает ассемблерный код:

Цитата:
 
DeDe is a very fast program that can analyze executables compiled with Delphi:
- All dfm files of the target. You will be able to open and edit them with Delphi.
- All published methods in well commented ASM code with references to strings,
imported function calls, classes methods calls, components in the unit,
Try-Except and Try-Finally blocks.
...
 


----------
... не это главное ...

Всего записей: 832 | Зарегистр. 30-01-2002 | Отправлено: 12:53 19-08-2006
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kzsergo
Скорее все же, как сказал жестоко, но справедливо ShIvADeSt - "Никак." $-))
потому как хоть что-то надо знать о той функции/форме, которую вы хотите получить ;-))
ну ладно, если человек пытлив, тогда не помешает ещё почитать про DLL Руководство по созданию DLL (progz.ru)  
особенно глава 3. 3.2. Как получить таблицу экспортируемых имен? Подробнее...
удачи.
 
 
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 12:20 20-08-2006
Jokerjar



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

Цитата:
Подскажите как вытащить из чужой библиотеки какую-нибудь функцию

В смысле экспортировать? В неоторых редакторах ресурсов (например, Exescope) можно просмотреть список всех экспортируемых функций в dll (без параметров)  

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 19:52 20-08-2006
ShIvADeSt



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

Цитата:
В смысле экспортировать? В неоторых редакторах ресурсов (например, Exescope) можно просмотреть список всех экспортируемых функций в dll (без параметров)  

Ага, а потом эмпирически подбирать что нужно туда передавать . А одних названий мало, для экспорта функций.


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

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:07 21-08-2006
xitsmex



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

Цитата:
Воспользовавшись утилитой dumpbin.exe с ключом -exports из состава Microsoft Visual Studio, вы можете увидеть содержимое секции экспорта DLL.
В рамках Delphi можно воспользоваться tdump - так же покажет экспортируемые функции.
 

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 09:59 21-08-2006
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShIvADeSt, иногда можно и догадаться о параметрах по названию

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

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, как можно открыть, напирмер, у Word-а окно 'Абзац' или какое-нибудь другое окно с параметрами. Или же у INTERNET EXPLORER окно 'Свойства обозревателя'. Тоесть мне нужно открыть модальную форму чужого приложения. При это я знаю все параметры этого окна, например класс.  
 
Как снять какой-нибудь из флажков (если таковы присутствуют) в данных окнах?  

Всего записей: 36 | Зарегистр. 14-07-2006 | Отправлено: 18:38 21-08-2006
ShIvADeSt



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

Цитата:
Подскажите, как можно открыть, напирмер, у Word-а окно 'Абзац' или какое-нибудь другое окно с параметрами. Или же у INTERNET EXPLORER окно 'Свойства обозревателя'. Тоесть мне нужно открыть модальную форму чужого приложения.

Если оно создано и просто скрыто, тогда делаешь поиск по классу и посылаешь ShowWindow(hWnd,SW_SHOW) если же окно, не создано, а создается только при клике на пункт меню, то эмулируй нажатие кнопок для меню, чтобы его вызвать.


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

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:53 22-08-2006
platypus

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А кто может подсказать про написание чата на DCOM? Любая помощь ...

Всего записей: 19 | Зарегистр. 13-07-2006 | Отправлено: 11:23 22-08-2006
kzsergo

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

Цитата:
то эмулируй нажатие кнопок для меню, чтобы его вызвать.

 
Как это делается?
 

Цитата:
Если оно создано и просто скрыто

 
Несовсем понял, что значит создано и что значит скрыто?

Всего записей: 36 | Зарегистр. 14-07-2006 | Отправлено: 14:13 22-08-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kzsergo
а если пойти другим путем.
для IE можно через реестр
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False);
а для word'a через OLE
 
 

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 15:53 22-08-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