» Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

volser
Брякается правильно.
А вот такое

Цитата:

Может быть проблема с неправильными символами перевода каретки.

было! Уж не знаю как так получилось, но при просмотре одного исходника в Notepad++ с включенным отображением спецсимволов заметил, что вместо 0D0A (перевод строки) несколько раз было только 0A! Пофиксил и о, чудо! Заработало! Век живи - век учись!

Ищу работающий алгоритм/компонент для генерации каптчи (captcha). Может кто встречал?

Delphi 2010 открывает файлы в TIFF формате, но, как я понял. не позволяет в нем сохранять.

spasius
ложите на форму image...генерите случайные символы...отображаете их в канвасе..и картинку сохраняете..или рисуете на форме все что надо(с компонентами) а потом что то типа

Код:
b:TBitmap;

b:=TBitmap.Create;
b.Width:=Form1.Width;
b.PixelFormat:=pf24bit;
b.Height:=Form1.Height;
b.Canvas.CopyRect(Form1.ClientRect, Form1.Canvas, Form1.ClientRect);
b.SaveToFile('c:\1.bmp');
b.Free;

mdid
Спасибо )
Капчу делаю под ISAPI. Этот вариант конечно рассматривался но на крайний случай. Больше интересует наличие компонентов, или готовых алгоритмов под Дельфи с эффектами и прочим.

блина во народ ленивый пошел...там же 10 строк написать..с эффектами?типа какого то шума или линий?ну не 10 а 20 строк

mdid
да нет, не ленивый. сломали у народа капчу, теперь в поисках чего нить существенного.

а кто вам мешает допустим вместо "1" ставить дерево..или вместо тройки кота скрюченного?...а вообще была в мое детство книжка...и там алфавит был в виде человечка который выгибался..можно в этом направлении копнуть...тоесть заменить цифры на людей животных или ростения...в сочитании с шумом и линиями я думаю сломать такое будет напряжно
или просить юзеров выбирать цифры(или буквы) рядом с которым есть какой то объект...кот пес..хз..что угодно...хотя я думаю такое будет легче сломать

При установке свежей версии Indy выскакивает ошибка: [DCC Error] IdURI.pas(466): E2003 Undeclared identifier: 'WideCharIsInSet'
Может кто подскажет что за фрукт WideCharIsInSet ?
WideCharSet и WideCharIsInSet - между ними есть что общего?

Присоединяюсь к вопросу о WideCharIsInSet.
Сегодня скачал Indy v.10.5.7. При попытке компиляции пакета IndyProtocols140.dpk в файле IdURI.pas действительно ругается на данную функцию.
Нигде больше в исходниках Indy ссылок на нее нет. Гугл молчит.
Проверил в старой версии Indy - 10.5.5 - там в этом месте была функция CharIsInSet (стандартная делфийская).
По всей видимости, очередной косяк разработчиков.

Подскажите, в D2009-2010 уникодный символ всегда строго двум байтам равен или возможна ситуация когда больше двух байт?

Bazzill
В зависимости от того, какого типа у вас строка. И плюс не стоит забывать про суррогатные пары.

Davemus
Medium

Цитата:

к вопросу о WideCharIsInSet

Скачивал Indy v.10.5.7 с SVN 8 марта - ревизию 4105... Нигде никакого упоминания ф-ции 'WideCharIsInSet'. Не знаю как насчет работоспособности, но все установилось идеально.
В последней ревизии 4148 эта ф-ция действительно упоминается без какого-либо объявления... Впервые она появилась в ревизии 4146. Так что юзайте ревизию 4145 и старше (в смысле более древнюю)...

psa1974
Спасибо за информацию. Если еще подскажешь, где скачать предыдущие ревизии (в частности, 4145 и старше) - буду признателен вдвойне.
Версию 10.5.7 ревизии 4148 брал здесь: hxxps://svn.atozed.com:444/svn/Indy10/.
Но ссылок на предыдущие там нет.

psa1974
Medium

Сегодня погуглил : http://forums2.atozed.com/viewtopic.php?f=7&t=4175
http://forums2.atozed.com/viewtopic.php?f=7&t=4162

Надеюсь что скоро пофиксят этот баг. А пока закомментировал строки следующим образом:

if {WideCharIsInSet(UnsafeChars, LChar) or} (Ord(LChar) < 33) or (Ord(LChar) > 128) then

if {WideCharIsInSet(UnsafeChars, LChar) or} (Ord(LChar) < 32) or (Ord(LChar) > 127) then

Но это конечно не самый лучший вариант.

Medium

Цитата:

Если еще подскажешь, где скачать предыдущие ревизии

Я качал с репозитория клиентом SVN - прогой TortoiseSVN...
Примерный алгоритм описан здесь: http://kvendi.pp.ru/?p=66 Все делать как там указано, только в окне TortoiseSVN->Экспорт указать не "ведущая ревизия (HEAD)", а требуемая...
Ну или могу выложить уже скачанную ревизию 4105...

psa1974

Цитата:

Ну или могу выложить уже скачанную ревизию 4105...

Выложи, пожалуйста. Спасибо

Medium
Indy 10.5.7.4105
Indy 10.5.7.4145
P.S. на всякий напомню, что перед установкой надо тщательно вычистить старую Инди...

psa1974
Большое спасибо

Frodo_Torbins

Цитата:

В зависимости от того, какого типа у вас строка. И плюс не стоит забывать про суррогатные пары.

Можно по-подробнее и по первому и по второму моменту?

Ведь по идее, WIDE это 2 байта, и даже в справке написано, что в Win используется только двух-байтовая схема.

Кодировка этого Unicode - UTF16, а значит два байта.

Хотелось бы разобраться с этим вопросом.

Bazzill
Delphi в мире Юникода, часть I: что такое Юникод, зачем он Вам нужен и как с ним работать в Delphi?

psa1974

Ты знаешь, там много чего написано про то как переходить на Unicode версии Delphi.

Мне бы изначально знать, будет ли символ всегда двухбайтовым в памяти или нет. А уж потом думать, переходить мне на Unicode или нет.

В разных местах по-разному пишут.

Bazzill

Цитата:

Мне бы изначально знать, будет ли символ всегда двухбайтовым в памяти или нет. А уж потом думать, переходить мне на Unicode или нет.

Если сказать кратко - нет, не всегда символ будет двухбайтовым. Все зависит от используемого способа представления юникода. Например, в UTF-8 символы с номером меньше 128, при записи превращается в обычный текст ASCII (т.е. ангельские символы - однобайтовые, национальные - двухбайтовые).
Читай сюда: http://ru.wikipedia.org/wiki/Юникод (читать все равно много придется )

psa1974

Это понятно, что читать много придеться.

Вот ты пишешь про UTF-8, но ведь в Delphi по-умолчанию UTF-16 используется.

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


Мало ли какой софт люди пишут, не все же с файлами работают и парсят их, определять в какой они кодировке.

Bazzill

Цитата:

Вот ты пишешь про UTF-8, но ведь в Delphi по-умолчанию UTF-16 используется.

Прошу прощения, сперва я тебя не так понял

Да, если использовать тип string (который на самом деле есть UnicodeString, который есть старый добрый WideString но с подсчетом ссылок), символы в памяти всегда будут двухбайтовые. Об этом достаточно прозрачно написано в первой предложенной мной статье, которую ты поленился почитать.


Цитата:

Мало ли какой софт люди пишут, не все же с файлами работают и парсят их, определять в какой они кодировке.

Способ представления юникода (UTF-8, UTF-16 и пр.) определяется преамбулой (заголовком, BOM) файла (в Дельфи есть для этого штатные средства)... Проблема возникает, если файл, записанный в юникоде, не имеет преамбулы, что в принципе возможно и часто бывает...
Например, если сохранить строку "Delphi в мире Юникода, часть I. Что такое Юникод, зачем он Вам нужен и как с ним работать в Delphi" в файл в UTF-8 с преамбулой и без нее и попытаться загрузить этот файл в тот же стринглист, то в первом случае длина текста будет правильная - 98 символов, а во втором - полный бред длиной 161 символ... Но каждый символ в памяти будет занимать ровно 2 байта.

Bazzill
Про суррогатные пары тут: http://ru.wikipedia.org/wiki/UTF-16 В делфи с ними можно работать с помощью класса TEncoding.

Ok.

Всем спасибо за ответы.

psa1974, есть ссылки и прямее ), обновляются через 2-3 дня
http://indy.fulgan.com/
ftp://indy.fulgan.com/
В шапку, чтоб лишних вопросов не было!

Поставил Indy v.10.5.7 Rev.4145. Полет пока нормальный, спасибо.
Старые баги поправили, новые добавили

Новая проблема всплыла. Пользует ли кто старые компоненты XL Report от, увы, приказавшей долго жить AfalinaSoft. Может есть портированная версия под Delphi 2010?

У меня есть какая-то самопальная (не моя) версия, портированная под D2009. Найдена на просторах ru-board. Устанавливается и частично в D2010 работает, но половину отчетов выдает полупустыми с мусором в отдельных ячейках.

добавлено
В общем, вопрос по XL Report снят. Стоит спросить, как сам находишь решение . Может это еще кому облегчит жизнь.
У компонента TxlReport в свойстве DataExportMode надо обязательно указывать вместо xdmDDE - xdmVariant. И будет вашему отчету счастье.
Если кому понадобится портированный и рабочий под D2010 XLReport - обращайтесь

Medium
к компонентам XL Report для делфи 2009-2010 обычно идет инструкция по переносу и там этот момент указан. Я решал так: искал тотал-командером dfm с xdmDDE, затем открывал эти dfm как "текст" в среде и заменял автозаменой, в общем с этим компонентом при переходе на делфи 2010 каких-то проблем небыло!