Обсуждение замечаний и предложений. [Delphi, Windows]
Страницы:
<
1
2
>
Vladimir Kladov © (2007-04-14 12:53:00)
Кстати, это правильно: делать отдельное обсуждение, куда
складывать замечания. Но если туда же писать всевозможные
рассуждения и обсуждения по их поводу, то уже в пределах той ветки
трудно будет разобраться, как не раз бывало. Соответственно,
обсуждать предлагаю в других местах.
И вообще, предложения лучше выкладывать не сразу, как в
голову пришли, а выборочно, когда уже окончательно оформлены.
Теперь собственно обсуждение. У меня вопросы: какой тип у
IsUnisode - KOLstring? Где вы параметры для IsUnicodeString нашли
(F000), что-то я констант соответствующих в windows.pas не вижу.
MSDN почитал. Очень не советуют вроде пользоваться
IS_TEXT_UNICODE_STATISTICS and IS_TEXT_UNICODE_REVERSE_STATISTICS.
Чем и как пользоваться и почему, не пишут. Насчет возвращаемого
результата даже не понятно: это может быть не ответ "да, Unicode",
а ответ "тест пройден, см. результаты в i" - не больше того.
MTsv DN (2007-04-14 14:07:00) [21]
> какой тип у IsUnisode - KOLstring?
i : integer;
IsUnicode : WideString;
Где вы параметры для IsUnicodeString нашли (F000), что-то я
констант соответствующих в windows.pas не вижу.
Из JEDI взял...
const
IS_TEXT_UNICODE_ASCII16 =
$0001;
{$EXTERNALSYM IS_TEXT_UNICODE_ASCII16}
IS_TEXT_UNICODE_REVERSE_ASCII16 = $0010;
{$EXTERNALSYM IS_TEXT_UNICODE_REVERSE_ASCII16}
IS_TEXT_UNICODE_STATISTICS
= $0002;
{$EXTERNALSYM IS_TEXT_UNICODE_STATISTICS}
IS_TEXT_UNICODE_REVERSE_STATISTICS = $0020;
{$EXTERNALSYM IS_TEXT_UNICODE_REVERSE_STATISTICS}
IS_TEXT_UNICODE_CONTROLS =
$0004;
{$EXTERNALSYM IS_TEXT_UNICODE_CONTROLS}
IS_TEXT_UNICODE_REVERSE_CONTROLS = $0040;
{$EXTERNALSYM IS_TEXT_UNICODE_REVERSE_CONTROLS}
IS_TEXT_UNICODE_SIGNATURE =
$0008;
{$EXTERNALSYM IS_TEXT_UNICODE_SIGNATURE}
IS_TEXT_UNICODE_REVERSE_SIGNATURE = $0080;
{$EXTERNALSYM IS_TEXT_UNICODE_REVERSE_SIGNATURE}
IS_TEXT_UNICODE_ILLEGAL_CHARS = $0100;
{$EXTERNALSYM IS_TEXT_UNICODE_ILLEGAL_CHARS}
IS_TEXT_UNICODE_ODD_LENGTH = $0200;
{$EXTERNALSYM IS_TEXT_UNICODE_ODD_LENGTH}
IS_TEXT_UNICODE_DBCS_LEADBYTE = $0400;
{$EXTERNALSYM IS_TEXT_UNICODE_DBCS_LEADBYTE}
IS_TEXT_UNICODE_NULL_BYTES = $1000;
{$EXTERNALSYM IS_TEXT_UNICODE_NULL_BYTES}
IS_TEXT_UNICODE_UNICODE_MASK = $000F;
{$EXTERNALSYM IS_TEXT_UNICODE_UNICODE_MASK}
IS_TEXT_UNICODE_REVERSE_MASK = $00F0;
{$EXTERNALSYM IS_TEXT_UNICODE_REVERSE_MASK}
IS_TEXT_UNICODE_NOT_UNICODE_MASK = $0F00;
{$EXTERNALSYM IS_TEXT_UNICODE_NOT_UNICODE_MASK}
IS_TEXT_UNICODE_NOT_ASCII_MASK = $F000;
{$EXTERNALSYM IS_TEXT_UNICODE_NOT_ASCII_MASK}
> MSDN почитал. Очень не советуют вроде пользоваться
IS_TEXT_UNICODE_STATISTICS
> and IS_TEXT_UNICODE_REVERSE_STATISTICS. Чем и как
пользоваться
> и почему, не пишут. Насчет возвращаемого результата даже
> не понятно: это может быть не ответ "да, Unicode", а
ответ
> "тест пройден, см. результаты в i" - не больше того.
Ну, если честно, то я щас и не пользуюсь IsTextUnicode. В
данном случае задача сводится к проверке не столько на UNICODE,
сколько на ANSI-16. Поэтому я использую сл.код...только не
смейтесь:
{$IFDEF UNICODE_CTRLS}
IsUnicode := FindData.cFileName;
if (IsUnicode <> '.') and (IsUnicode <>
'..') then
begin
if Pos('?', AnsiString(IsUnicode)) <> 0
then
CopyMemory(@FindData.cFileName,
@FindData.cAlternateFileName, SizeOf(FindData.cAlternateFileName));
end;
{$ENDIF}
После приведения к AnsiString, все символы не-AnsiString
становятся "?" (кстати, поэтому я и про Trim вспомнил), а т.к. в
имени файла/папки "?" быть не может, то следовательно, есть
не-AnsiString символы...
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
