Найдено 40 результатов

Alek_Aaz
21.05.2024 14:55:05
Форум: Разработки на нашем сайте
Тема: Соревнователь архиваторов
Ответы: 8
Просмотры: 20041

Re: Соревнователь архиваторов

Проект Pack предпринял попытку создания формата для архивирования файлов, построенного на базе библиотеки SQLite и алгоритма сжатия ZSTD (Zstandard). Подготовленный прототип, написанный на языке Pascal и распространяемый под лицензией Apache 2.0, обогнал по скорости создания архивов наиболее ...
Alek_Aaz
13.05.2023 14:50:35
Форум: Общее
Тема: Почему не работает функция Pos?
Ответы: 2
Просмотры: 9670

Почему не работает функция Pos?

Странно, но не работает функция pos()
Выдает 0 и все тут!!! Че за фигня?

Const
DirName:string='c:\test\1\1\1';

var
Form1: TForm1;

implementation

{$R *.lfm}

function DirToFileName (Dir:string):string;
Var S:string;
t:integer;
Begin
S:=Dir;
t:=Pos(S,'\');
While Pos(S,DirSepar)>0 do S[Pos(S ...
Alek_Aaz
28.10.2022 03:32:20
Форум: Графика и мультимедиа
Тема: BGRAbitmap от скуки
Ответы: 3
Просмотры: 23549

Re: BGRAbitmap от скуки

Да. Спасибо, щас гляну примерчики.
Alek_Aaz
15.09.2022 09:34:45
Форум: Графика и мультимедиа
Тема: BGRAbitmap от скуки
Ответы: 3
Просмотры: 23549

Re: BGRAbitmap от скуки

А от скуки показать как сo слоями работать можно?
Alek_Aaz
23.11.2021 06:23:47
Форум: Графика
Тема: Black Shark Graphics Engine
Ответы: 101
Просмотры: 247143

Re: Black Shark Graphics Engine

BlackShark писал(а):Про "больше" - поддержка спецификации COLLADA.

А зачем COLLADA? Чем gltf плох?
Alek_Aaz
09.11.2021 14:43:51
Форум: Lazarus
Тема: Поддержка UWP платформы в Лазарус
Ответы: 4
Просмотры: 4955

Re: Поддержка UWP платформы в Лазарус

Alex2013 писал(а):Но интересно можно ли сделать с помощью Лазаруса пакет в стандарте UWP с поддержкой ARM-платформ?

Мне кажется на BGRAcontrols можно сделать что угодно.
Alek_Aaz
31.12.2020 04:49:30
Форум: Сторонние средства
Тема: Авторизовались с помощью Kerberos. Что дальше?
Ответы: 0
Просмотры: 10919

Авторизовались с помощью Kerberos. Что дальше?

Есть самописный простой клиент, есть самописный простой сервер. Хотелось бы прикрутить это к Kerberos.
Понятно, что на сервере стоять должен Kerberos, у клиента - его клиент.
Авторизовались, получил клиент тикет или удостоверение соединения к моему серверу.
А дальше то что делать?
Судя по описанию ...
Alek_Aaz
30.09.2020 10:33:26
Форум: Разработки на нашем сайте
Тема: Telegram bot API
Ответы: 80
Просмотры: 191310

Re: Telegram bot API

А клиента своего можно сделать на базе fp-telegram ? :roll:
Alek_Aaz
04.03.2020 04:55:49
Форум: Разное
Тема: OpenVR for Lazarus (Программирование VR на паскале)
Ответы: 74
Просмотры: 187784

Re: OpenVR for Lazarus (Программирование VR на паскале)

Вышла такая фигня:
m
Опубликован первый выпуск проекта Monado, нацеленного на создание открытой реализации стандарта OpenXR, который определяет универсальный API для создания приложений виртуальной и дополненной реальности, а также набор прослоек для взаимодействия с оборудованием, абстрагирующим ...
Alek_Aaz
30.08.2019 05:29:59
Форум: Обучение Free Pascal
Тема: Как правильно объявить структуру?
Ответы: 18
Просмотры: 35943

Re: Как правильно объявить структуру?

Но имхо "шустро" с использованием Variant не будет.
Да, верно. Тестил тут. Если использовать в нескольких операциях +-* variant вместо double, производительность падает где-то 5-6 раз(возможно будет и больше). Если на входе в процедуру присваивать локальным простым переменным(double) данные из ...
Alek_Aaz
28.08.2019 09:49:25
Форум: Обучение Free Pascal
Тема: Как правильно объявить структуру?
Ответы: 18
Просмотры: 35943

Re: Как правильно объявить структуру?

Оно умеет и в числа, и в строки, и в байты, и в копирование. Только с массивами в вариантах есть некоторая сложность, их нужно через VarArrayCreate() определять.
Да, с ними нормально получается. Только наверное не VarArrayCreate , а лучше через DynArrayToVariant и DynArrayFromVariant

правда ...
Alek_Aaz
21.08.2019 12:11:40
Форум: Обучение Free Pascal
Тема: Как правильно объявить структуру?
Ответы: 18
Просмотры: 35943

Re: Как правильно объявить структуру?

Record Types
Спасибо.
Но как это будет выглядеть в жизни?

Type
TMyElem = record
name:string;
Case tipdata:byte of
1:(data:int64);
2:(data:WideString);
3:(data:array of byte);
end;

Так?
А как присвоить значение?
MyElem<тут что-то должно быть>.data:='error';

Может пример есть где?
Alek_Aaz
21.08.2019 09:41:34
Форум: Обучение Free Pascal
Тема: Как правильно объявить структуру?
Ответы: 18
Просмотры: 35943

Как правильно объявить структуру?

День добрый.

Подскажите пжлста как по фэн-шую объявить структуры данных, а то я совсем что-то запутался, в объектах, классах, свойствах, дженериках и пр.

Хочу чтобы было так приблизительно:

ELEMENT=????? какой-то тип, а в нем поля
ELEMENT.Name = string имя, тут все просто
ELEMENT.Data = ???? а ...
Alek_Aaz
02.10.2017 11:21:18
Форум: Потрепаться
Тема: О Linux
Ответы: 54
Просмотры: 71078

Re: О Linux

Чем отличаются пользователи Windows от пользователей Linux?
Пользователи Linux сначала бьются тpи дня головой об стенку, а потом кайфуют.
Пользователи Windows первые тpи дня кайфуют, а затем начинают биться головой об стенку.
Байки линуксоидов
На самом деле что прекрасно ввинде - поставил ...
Alek_Aaz
02.10.2017 06:00:53
Форум: Потрепаться
Тема: О Linux
Ответы: 54
Просмотры: 71078

Re: О Linux

ТС наглухо пропал
Че сразу наглухо то? Просто перевариваю
Нет батенька, это никому не нужно.
Если вам нужен Linux для работы ставьте из первой пятёрки дистрибутивов + выбор окружения на свой вкус и цвет. Хотите поупражняться с Linux - для этого дистрибутивов как говна за баней.
Ну для начала ...