FreePascal.ru

> Задам традиционный вопрос техподдержки: а вы уверены, что этот NLS_LANG установлен в той версии ORACLE_HOME, что реально используется?
> Сколько ORACLE_HOME на машине? 32 или 64 бита?

Я тоже немного занимаюсь техподдержкой, и эти вещи мне очень хорошо знакомы. Особенно часто приходится ...

> Что стоит в настройках клиента Oracle, кстати? Интересует NLS_LANG.

И на клиенте, и на сервере NLS_LANG = AMERICAN_AMERICA.CL8MSWIN1251

Тогда мне ещё больше стало не понятно. Получается, в UTF8 его переводит клиент, т.е. ZEOS? И причём тут тогда размер переменной, которая создается для приёма ...

Полазил-полазил по форумам, и ничего не нашёл.
В итоге полез в исходники этой ZEOS и нагло добавил ей 2 строчки:

procedure InitializeOracleVar(PlainDriver: IZOraclePlainDriver;
Connection: IZConnection; var Variable: PZSQLVar;
DataType: TZSQLType; OracleType: ub2; DataSize ...

Всем привет.
У меня Windows XP SP3 + Lazarus 1.0.8 + FPC 2.6.2 + Zeos 7.0.3 (Stable).
ORACLE 10 XE
В ORACLE есть таблица:
create table TESTTABLE
(
test VARCHAR2(4)
) ... и пр.

Есть TZReadOnlyQuery, у которого SQL равен "select TEST from testtable"
В таблице одна запись.

Так вот. Если заполнять ...

Во! Наконец-таки то, что надо.
Это работает. Спасибо.

А Вы что одновременно использовали и utf8toansi() и UTF8toUTF16 ?

Не понял вопроса Вот так utf8toansi(UTF8toUTF16('Текст')) или вот так UTF8toUTF16(utf8toansi('Текст')) я не делал. А что - надо было?

v.Selection.TypeText(UTF8toUTF16('Привет!'#13)); - вот так выдаёт ошибку.

Попробовал. Ругается ошибкой:

project1
--------------------------------------------
Press OK to ignore and risk data corruption
Press Cancel to kill program
--------------------------------------------
OK Cancel
--------------------------------------------

В то же время, если убрать этот ...

Всем привет.

Lazarus 1.0.4, FPC 2.6.0, всё это под Windows XP.
Пишу вот такое:

procedure TForm1.Button1Click(Sender: TObject);
var v:Variant;
begin
Windows.MessageBoxA(0,pchar(utf8toansi('Привет')),'',0); //Тут пишет по-русски
v:=CreateOleObject('Word.Application');
v ...

> Очень хороший генератор прямоугольников может стоить несколько сотен тысяч рублей, что на порядок дороже хорошего ноута

Это что, как автомобиль? Интересно, для чего ж такой нужен... Я, конечно, давно не занимался электроникой, но, по-моему, банальный мультивибратор по цене деталей в 30 рублей ...

Да, это работает. Буфер я делать большой не стал (странно, что не знал такую штуку, как absolute. Это получается что-то типа C-шного UNION что ли? )
А добавил 4 байта в структуру
FILE_BASIC_INFORMATION = packed record
CreationTime:FileTime;
LastAccessTime:FileTime;
LastWriteTime:FileTime ...

Наваял на скорую руку небольшой тест (на Delphi пока что):

type
IO_STATUS_BLOCK = Record
NTSTATUS:Pointer;
Information:Pointer;
end;
PIO_STATUS_BLOCK = ^IO_STATUS_BLOCK;

FILE_BASIC_INFORMATION = Record
CreationTime:FileTime;
LastAccessTime:FileTime;
LastWriteTime&#58 ...

╔══════════════════════════ Атрибуты ══════════════════════════╗
║ Изменить файловые атрибуты ║
║ a.bat ║
╟──────────────────────────────────────────────────────────────╢
║ Владелец: CLIENTXP1Alex ║
╟──────────────────────────────────────────────────────────────╢
║ [x] Только для чтения [x ...

Скажу больше - когда я меняю, например, атрибут ReadOnly для файла, то LastWriteTime у него остается тем же, а вот это самое загадочное время изменения становится равным текущему (когда я поменял атрибут).

Добавлено спустя 1 минуту 51 секунду:
У меня FAR 2.0.1807
Скачайте с m если что.

Хотел ...

Я тоже так сначала думал. А потом взял всё по тому же Ctrl+A в FAR установил для них разные значения. И они спокойненько установились
Открываю картинку снова - установлены так, как я им велел

Вопрос видимо не совсем по Lazarus (а скорее по WinAPI). Но столкнулся с этим, когда писал на Lazarus, поэтому пишу сюда.
Как следует из HELPа Windows SDK (в составе Delphi), в системе NTFS у файла (или каталога) есть 3 даты: создания, последней модификации, и последнего доступа. Соответственно, для ...