FreePascal.ru

И так подведем микро итог:

1. bash-файл с семью модулями подключенными через source запускается и прекрасно выполняет их.
2. Были параллельно открыты семь файлов, и Samba не дала отказ в доступе к ним, т.е. ограничений на количество параллельно открытых файлов по сути нет.

Остается вопрос - что ...

Лекс Айрин писал(а):fdima1979, странно, а зачем заходить как админу?

А разница? Я все равно там один. Ни кого там нет, и комп локальный.

Шара подключается у меня вот такой строкой:

//192.168.1.25/pascal /mnt/server.pascal cifs noauto,users,noserverino,rw,username=admin,password=123,uid=500,sec=lanman,exec 0 0

На той стороне пароль админа admin, а пароль 123.
ls выдает что владелец файла я, т.е. пользователь 500 ...

А монтировать по nfs не пробовали? При сборке исполняемый файл и библиотеки тоже на сетевой диск кладется или локальный? Может как-то влияют права на запуск, хотя это и было бы странно. Ну и естественно очистить все и пересобрать )

По NFS на данном устройстве не пробовал, но надо попробовать ...

У меня тоже не получилось получить доступ к файлу используя пути типа smb://путь. Под Linux нужно сетевую папку монтировать, после этого работаете с ней как с локальным каталогом...

Так я ее и монтирую к /mnt/server.pascal. В fstab прописываю и монтирую.

С другими расшаренными папками все окей ...

Доброго времени суток.

В общем ситуация такая. Решил я перенести свои fpc исходники на хронилище (Synalogy DS210). Перенос, ну и тут-же попробовал откомпилировать их там. Но оказалось fpc что-то компилирует, а на что-то ругается. Где не компилирует, пишет - что "Невозможно открыть включаемый файл ...

Попробовал перебрать эти коды. Пишет знаки вопроса.
Прошу прощения, немного сбил вас с толка, надо было всего-лишь преобразовать к UTF-8:
For Iter := 1 To 10000 Do
begin
WriteLn (Iter, ' ', UTF8Encode(WideString(WideChar (Iter))));

WideChar это двубайтный юникодный символ, и его нужно ...

Не совсем понятно, что вы хотели получить этим кодом
For Iter := 1 To 10000 Do
0-127 получите ASCII символы, а остальные в UTF-8 начинаются с 49280 и до 57279 для двубайтных кодов.
Попробовал перебрать эти коды. Пишет знаки вопроса.

Добавлено спустя 5 минут 29 секунд:
вот новый код ...

Модуль должен быть в Utf8 и компилятор настроен на эту кодировку. Чтото из этого не настроено или локаль не Utf8 или вообще шрифт терминала не Unicode , такое бывает в Linux

Консоль через cat/more выводит на экран файлы написанные в уникоде (русская локаль). FPC тоже выводит эти файлы через ...

Имеется код:

{$mode objfpc}{$H+}

var Iter : LongInt;
Stop : LongInt;
begin
Stop := 1;
For Iter := 1 To 10000 Do
begin
WriteLn (Iter, ' ', WideChar (Iter));
Inc (Stop);
If Stop = 10 Then
begin
ReadLn;
Stop := 1;
End;
End;
End.


В линуксойдном lazarus ...

Имеется код:

{$mode objfpc}{$H+}

var Iter : LongInt;
Stop : LongInt;
A : String;
begin
Stop := 1;
For Iter := 1 To 10000 Do
begin
WriteLn (Iter, ' ', WideChar (Iter));
Inc (Stop);
If Stop = 10 Then
begin
ReadLn;
Stop := 1;
End;
End;
End.


В ...

Есть две формы: одна основная, вторая подчиненная.
Подчиненная форма вызывается с помощью нажатия функциональной кнопки (F7) через обработчик OnKeyDown:

~~~~~~~~~~~~~~~~~
If Key = VK_F7 Then Form2.ShowModal;
~~~~~~~~~~~~~~~~~

Внутри подчиненной формы несколько tEdit, которые я заполняю.

И вот ...

Ещё можно попробовать использовать модуль keyboard.
Отличный модуль. Правда его нужно еще подточить, но это будет очень интересно. Тут даже не надо отдельно ловить функциональные кнопки - все кнопки на одном уровне.

Хорошо бы еще найти где-нибудь возможность находить текущее положение курсора в ...

Спасибо за разъяснения и интересные ссылки.
Я тут вчера нарыл инфу будто к FPC можно подключить библиотеку nocurses, и типа она может работать с консолью.

Когда то я писал на TurboPascal. Отличный был язык, я стока в нем понаписал что просто... в общем одной из ценных визуальных фишек в нем была вот такая штука:

Uses CRT;

Var Ch : Char;
Str : String[20];
Begin
Str := '';
While True Do
begin
Write (Str);
Ch := ReadKey ...