Вопросы по Delphi (все версии) - часть 4 - [65] :: Прикладное программирование :: Компьютерный форум Ru.Board

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

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

ChiPnGo

Junior Member

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

Скомпилировал с EurekaLog, не получил никакой новой информации при ошибке, поскольку программа зависла еще безнадежнее.
Внес небольшие изменения в код, скомпилировал с EurekaLog - начало везде правильно работать. Аналогичные изменения сделал в обычной версии - не работает.

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 16:52 30-01-2009

Frodo_Torbins

Silver Member

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

В принципе EurekaLog не панацея, например она не контролирует всякие сторонние библиотеки и т д. Особенно если в этих библиотеках висит куча кода на DLL_PROCESS_ATTACH.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 17:36 30-01-2009

DmitryKz

Silver Member

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

Frodo_Torbins
Интересно построено предложение:

Цитата:

она не контролирует всякие сторонние библиотеки и т д. Особенно если

Так контролирует или нет?

Всего записей: 3145 | Зарегистр. 29-09-2005 | Отправлено: 21:28 30-01-2009

ChiPnGo

Junior Member

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

Цитата:

Так контролирует или нет?

Контролирует так, как работает глюк в моей проге. То вроде возникает при каких-то обстоятельствах, то пропадает бесследно в зависимости от того, кто где успел себе выделить память.

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 22:23 30-01-2009

Frodo_Torbins

Silver Member

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

DmitryKz
Она не может контролировать библиотеки где куча кода висит на DLL_PROCESS_ATTACH т к глюк происходит раньше, чем она начинает работать (хотя может я неправильно понимаю принцип ее работы).

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 00:28 31-01-2009 | Исправлено: Frodo_Torbins, 00:29 31-01-2009

Grande

Full Member

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

Добрый день, уважаемые знатоки.
Не поможет ли кто решить такую проблему:
имеется хэндл экземляра TMemo другого приложения. Как можно поместить в этом мемо свой текст из своего приложения?
Спасибо.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 12:17 31-01-2009 | Исправлено: Grande, 12:23 31-01-2009

ChiPnGo Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Это вопрос по Win API. sendmessage(handle, em_replacesel, 0, pchar('my text')); Добавляет строку вместо выделенной (или в текущую позицию, если выделение нулевое).
	Всего записей: 149 \| Зарегистр. 25-10-2008 \| Отправлено: 12:46 31-01-2009

Grande Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ChiPnGo Понял, спасибо, сейчас попробую.
	Всего записей: 588 \| Зарегистр. 18-09-2003 \| Отправлено: 13:24 31-01-2009

Grande Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Блин, никак не получается сделать перевод строки... Не реагирует на $0f хоть тресни
	Всего записей: 588 \| Зарегистр. 18-09-2003 \| Отправлено: 15:34 31-01-2009

ChiPnGo Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору sendmessage(handle, em_replacesel, 0, pchar('my text'#13#10)); ага
	Всего записей: 149 \| Зарегистр. 25-10-2008 \| Отправлено: 16:08 31-01-2009

Grande Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ChiPnGo Делал я так - не хочет Может, потому, что поле ввода в другом приложении?
	Всего записей: 588 \| Зарегистр. 18-09-2003 \| Отправлено: 16:11 31-01-2009

ChiPnGo Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Проверял с delphi 6, работает.
	Всего записей: 149 \| Зарегистр. 25-10-2008 \| Отправлено: 16:53 31-01-2009

Grande Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Решил задачу
	Всего записей: 588 \| Зарегистр. 18-09-2003 \| Отправлено: 18:59 31-01-2009

Erazer

Advanced Member

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

Никто не знает как писать юникодные строки в ini файл ?

ini := TNTIniFile.Create('c:\تمكين تعليقات.ini');
ini.WriteString('mysection', 'myvar', 'تمكين تعليقات');
создают файл но вместо указанной строки в файле вопросики. и это в d2009!

WritePrivateProfileStringW(PWideChar('mysection'), PWideChar('myvar'), PWideChar('تمكين تعليقات'), PWideChar('c:\myfile.ini'));
дает то же самое. фактически TNTIniFile это обертка вышеприведенной функции.

Добавлено:
гы... этот форум походу не понимает юникода тоже

Ну там арабская вязь была. В блокноте и контролах прекрасно отображается, а вот здесь и в ини файле фигу

Всего записей: 1731 | Зарегистр. 02-08-2003 | Отправлено: 23:37 31-01-2009

Maks150988

Advanced Member

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

delover
А фиг знат. Методом тыка поставил стандартный юнит для тем. Вроде работает теперь стабильно. Где-то я видать ошибся в сокращенном модуле.

Erazer
А хз как там надо. Я себе вот такие функции подправил из стандартных для анси. Вроде работает.

Код:

function GetIniStringW(szFileName, szSection, szIdent, szDefault: WideString): WideString;
var
szBuffer: Array [0..MAX_PATH - 1] of WideChar;
begin
GetPrivateProfileStringW(PWideChar(szSection), PWideChar(szIdent), PWideChar(szDefault), szBuffer, SizeOf(szBuffer), PWideChar(szFileName));
Result := szBuffer;
end;

function SetIniStringW(szFileName, szSection, szIdent, szValue: WideString): Boolean;
begin
Result := WritePrivateProfileStringW(PWideChar(szSection), PWideChar(szIdent), PWideChar(szValue), PWideChar(szFileName));
end;

Возможно в PWideChar необходимо еще WideString добавлять.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 00:58 01-02-2009 | Исправлено: Maks150988, 01:00 01-02-2009

Erazer

Advanced Member

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

Maks150988 ключевое слово вроде прикол заключался в том что WritePrivateProfileStringW не создает Unicode file, она может толькол записывать в него. Потому чтобы писать в такой файл его сначала нужно создать юникодным, но в таком случае зачем писать в него и читать через зад ?!
_http://img230.imageshack.us/img230/9885/unicodeuc3.jpg
Код на рисунке прекрасно справляется с этим и без WritePrivateProfileStringW/GetPrivateProfileStringW.

Всего записей: 1731 | Зарегистр. 02-08-2003 | Отправлено: 02:09 01-02-2009 | Исправлено: Erazer, 02:16 01-02-2009

Maks150988 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Erazer Да можно поди через CreateFileW или AssignFile без всяких VCL приблуд. =)
	Всего записей: 836 \| Зарегистр. 23-12-2006 \| Отправлено: 02:56 01-02-2009

delover

Advanced Member

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

Как узнать видно контрол или не видно? Свойство Visible говорит только показывать контрол или нет. Например я переключился на другой Tab в PageControl. Все компоненты неактивной страницы так и остались Visible. Но их уже не видно, однако ActiveControl формы указывает на компонент с неактивной страницы. И получается что срабатывают акции для невидимого контрола. Как быть? Я просто хочу знать видно ли контрол реально?

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

Frodo_Torbins Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору delover Можно через винапи узнать.
	Всего записей: 2319 \| Зарегистр. 24-05-2007 \| Отправлено: 18:47 02-02-2009

Maks150988 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору delover IsWindowVisible подходит? А то если такое дело, надо самому обрабатывать такие финтиклюшки при изменения страниц табов.
	Всего записей: 836 \| Зарегистр. 23-12-2006 \| Отправлено: 19:31 02-02-2009 \| Исправлено: Maks150988, 19:32 02-02-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