» Вопросы по Delphi (все версии) - часть 4

TechnoDreamer
Попробуй вручную копировать строку. Примерно так:
SetLength(str1, length(str2))
Move(str2^, pointer(str1)^, length(str2) * SizeOf(WideChar))

sergiuz1303
Да мне и 7 версия вполне подходит. =)
Mandor Sawall
Да я вообще увидел этот пример на каком-то программерском сайте (форум сурсес.ру вроде). Вот просто решил (что в результате функция возвращает) к функции приделать чтоб вайдстринг возвращала. Там был намек на то что такой подход возвращает такими манимуляциями не анси строку. Ну я и подумал что раз не анс, значит результат вайдстринговый у функции должен быть, да плюс в меню функция добавления строки с буквой w. Хотя бы дайте ссылки как сделать юникодовое приложение, ну или поправьте как должно быть. =)

Maks150988
А тот вариант, которой написал, не работает?

Mandor Sawall
Работает. Но я проверить то не могу как на китайской системе, допустим, все это пойдет... Хотелось бы тогда какие-нибудь гарантии. =)
На немецком форуме программистов нашел функцию:


Код:
function AnsiToWide(Text : AnsiString; Charset : Cardinal) : WideString;
var
I : TCharsetInfo;
L : Integer;
begin
TranslateCharsetInfo(Charset, I, TCI_SRCCHARSET);
L := MultiByteToWideChar(I.ciACP, MB_PRECOMPOSED, @Text[1], Length(Text), nil, 0);
SetLength(Result, L);
MultiByteToWideChar(I.ciACP, MB_PRECOMPOSED, @Text[1], Length(Text), @Result[1], L);
end;

Maks150988
Подозреваю, что вместо CP_UTF8 должна быть кодировка, в которой закодирована STRING_ABOUT, наверно CP_1251. Но вариант, предложенный Mandor Sawall мне нравится намного больше, т к он во-первых надежнее, а во-вторых не требует лишнего кода.

Maks150988
Frodo_Torbins совершенно прав - вместо CP_UTF8 должно быть CP_1251. Но такой вариант - просто лишьные сложности.

В общем, принцип такой - если хотите делать unicode-программа, забудьте про AnsiString и използуйте только WideString. Конверсия через AnsiToWide будет нужна только если к вам приходят какие-то внешные AnsiStrings, но тогда должны знать кодировку.

Проблема такая, кидаю на форму компонент AntiFreeze, а форма все равно умирает, совершенно не обновляется. Я знаю, что Indy вообще кривая штука, но не настолько же? Может, быть я все таки что то не так делаю? Проблема появилась в Indy 10, в Indy 9 - форма хоть и с глюками, но регулярно перерисовывалась и не висла.
Сама прога скачивает по POP3 сообщения и сохраняет вложения. Заранее спасибо.

Antananarivu
Возможно эта статья: Выполнение кода в потоке без выделения его в процедуру поможет выделить тормозящий код в отдельный поток?

О Да! Спасибо огромное!

Есть такая программа EssentialPIM
http://forum.ru-board.com/topic.cgi?forum=5&topic=24849
(органайзер)
смысл ее не важен, главное что в папке с исполняемым файлом лежит файл с данными
например test.epim (как оказалось БД в формате Firebird) и (!) один файл gds32.dll
Т.е. программа полноценно работает с БД используя только одну dll-ку! Без всяких BDE и серверов!
Хочу так-же!
Не ткнет ли кто носом в работающий пример?

mihmig
Она использует БД Firebird Embedded. Скачиваешь такой дистрибутив с оффсайта и будет также

механизм планирования выполнения заданий: Round Robin

не подскажете, как реализовать сие?

extasy
http://www.delphi3000.com/articles/article_1896.asp?SK=

afiget
Да, я тоже это находил. Смущает что "Category: Games". И не совсем понятно что там относится к гейм, а что к механизму планирования

mihmig

тебе нужны компоненты прямого доступа к базе данных. самые популярные, но шароварные, для интербеза (фаербеда) это fibplus
ну и плюс Firebird Embedded как писал DmitryKz

Здравствуйте!
Вопрос связан с плохим пониманием функции синхронизации потоков.
Вопрос такой: У меня есть два потока. В одном из них я (по нажатию клавиши) присваиваю переменной какое-то значение (с: integer - присваиваю значение 25). Во втором потоке в процедуре имеется проверка: if c=25 тогда я отсоединяюсь от pop сервера и заканчиваю скачку почты.
Вопрос такой, нужна ли в данном случае процедура synchronize? Нужна ли синхронизация потоков? То есть может ли глюкануть программа, если первый поток будет присваивать переменной значение, как раз в тот момент когда второй поток проверяет ее значение?
Заранее спасибо!

Antananarivu
Книга по Win2000 сервер содержит много примеров реализации семафоров критических секций и даже использование системного журнала. Лучше копать в этом направлении.

Спасибо... еще такой наверное глупый вопрос:
По какому принципу в PopupMenu нумеруются Items. Самый верхний нулевой, а дальше по порядку?
PopupMenu1.Items[0].Enabled:=false;
PopupMenu1.Items[1].Enabled:=false;
PopupMenu1.Items[2].Enabled:=true;
А что если я через какое то время решу добавить еще один пункт и поставить его на самый верх, нумерация изменится? То есть бывший Items[0] станет Items[1] и т.д. Соответственно придется переписывать код?
Где я не прав и как этого избежать? Заранее спасибо!

Items также имеют свои имена (по-умолчанию N1, N2 и т.д.) можно обращаться по имени (N1.Enabled := true)

Antananarivu
В твоем случае синхронизация не нужна. Она была бы нужна если бы переменная была длиннее четырех байт (строка или дата например), или если бы оба потока считывали и записывали в нее. А когда один только пишет, а второй только читает - все будет работать без проблем.

Antananarivu по вложенности


Код:
Файл Правка Справка
Открыть Копировать
Выход Вставить

Antananarivu
А какой случай то?
a) Пишете экземпляр в учебник.
б) Расчитываете на VirtualPC, dotNet, и разные процессоры
(Ну если представлять шину данных в связи с памятью, то так и будет. Всвязи с кешем процессора, я бы тут притормозил. Устанавливал win2000 на старый пентиум - ошибка установки. Отключил кэш процессора - установка прошла полностью.)
в) Филосовский вопрос, - ну по win32, так это в кибернетике макроподход, когда ты ничего не знаешь, что там внутри может находится. NT конечно защитит чужие процессы, но не гарантирует работоспособность процесса использующего "ненадёжные" техники программирования.

delover

Цитата:

А какой случай то?

Я так понимаю вопрос был ко мне? Запись и чтение четырехбайтной выравненной переменной это атомарная операция на x86 процессорах и в дополнительной синхронизации не нуждается.

Цитата:

a) Пишете экземпляр в учебник.

Рихтер уже все написал.

Цитата:

б) Расчитываете на VirtualPC, dotNet, и разные процессоры

Я так понял речь шла про нормальную программу. а не про извращения вроде dotNet. А процессоры бывают только x86. Во всяком случае дельфийский компилятор расчитан только на них.

Цитата:

в) Филосовский вопрос, - ну по win32, так это в кибернетике макроподход, когда ты ничего не знаешь, что там внутри может находится. NT конечно защитит чужие процессы, но не гарантирует работоспособность процесса использующего "ненадёжные" техники программирования.

Это надежная техника программирования. В самом деле.

anfilat

Скажите, пожалуйста, а где можно почерпнуть такую подробную информацию: при каких размерах переменной и при каких конкрентно действиях нужна синхронизация, а при каких не нужна? Какие операции атомарные, а какие нет?
Откуда это можно узнать?

Добавлено:
Dimoniusis

А если, скажем через месяц я решу, что на первом месте в моем меню должна быть позиция "Настройки".
Я сделаю так:
Menu1.Items[0].Caption =>Настройки
И после этого мне придется заново переделывать кучу кода, так как произошло смещение нумерации на одну позицию:
Menu1.Items[1].Caption =>Файл
Menu1.Items[1].Items[0].Caption => Открыть
Menu1.Items[1].Items[1].Caption => Выход
Menu1.Items[2].Caption =>Правка
Menu1.Items[2].Items[0].Caption => Копировать
Menu1.Items[2].Items[1].Caption => Вставить
Menu1.Items[3].Caption =>Справка

anfilat

Цитата:

Я так понял речь шла про нормальную программу. а не про извращения вроде dotNet.

А я думал IUnknown придумали люди понимающие что-то в "надёжной" технике.

ps.
Уверен, что ничего не понял. Что лучше, Вам, как говориться виднее.

Еще одна проблема возникла... мне уже неудобно спрашивать...
Свернул я программу в трей, по нажатию правой кнопкой мыши всплывает popupmenu. И вот с ним возник один неприятный глюк.
Моя программа начинает работать по таймеру. Допустим программа в трее, я нажал правой кнопкой мыши и вижу popupmenu, в этот момент срабатывает таймер - он запускает программу и одновременно делает неактивными некоторые строки popupmenu. И вот после этого popupmenu "виснет" - нажать на активные пункты меню в нем нельзя, при повторном нажатии на значок трея правой кнопкой мыши меню вообще перестает появлятся.
Как избавится от такого глюка...

Antananarivu, как вариант можно принудительно закрывать меню при срабатывании таймера (или блокировать срабатывание таймера при открытом меню).

RSoFT1978
Как программно принудительно закрыть меню?

Добавлено:
И еще предположение, по таймеру программа (после того, как сделала неактивными строки меню) уходит в параллельный поток, может в этом дело?

Antananarivu, попробуйте popupmenu1.FreeOnRelease (если я правильно помню, сейчас не имею возможности проверить)

Antananarivu

Цитата:

И еще предположение, по таймеру программа (после того, как сделала неактивными строки меню) уходит в параллельный поток, может в этом дело?

Возможно да. А что у вас за таймер, мне кажется стандартный не должен срабатывать, пока открыта менюшка?