FreePascal.ru

Закинул либу в /lib/CMYKlib/
>>В параметрах компилятора -Fl<каталог библиотеки>. Это для сборки
Добавил путь

>>тот же путь нужно добавить в переменную среды LD_LIBRARY_PATH.
Для этого в "/etc/ld.so.conf.d/" создал файл "CMYKlib.conf" в который добавил строку "/lib/CMYKlib". Затем sudo ldconfig ...

Доброго времени суток. Подключаю к своему проекту, мной же и созданный dll (ну .so естественно). Компилятор мне выдает следующее.

/usr/bin/ld&#58; cannot find -lCMYKlib
project1&#46;lpr(20,1) Error&#58; Error while linking

Подозреваю что Dll нужно где-то регистрировать. Если можно подоробно, что ...

Иван Шихалев писал(а):А с ключиком -O2 тоже в памяти? У меня уходит в регистр.

Во! то что нужно. Большое спасибо. Конечно чуть медленее. Но уже что-то.

А медленее из-за CMP EBX,EAX

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

А все потому, что счетчик кругов находится в памяти, а не в регистре как у делфей. Отсюда и тормоза

0041F378 INC DWORD PTR SS&#58;&#91;EBP-10&#93;
0041F37B CMP ...

Ситуация такая же. Может кто нибуть отписать это разработчикам? С английским у меня не очень...


похоже придется юзать ассемблерные вставки. Уж они то выполняются нормально.
Где-то так

var
i, x&#58; integer;
a, b&#58; integer;
begin
a &#58;= GetTickCount;
i &#58;= 0;
{$ASMMODE INTEL}
asm ...

>>Odyssey 04.02.2011 16:41:34

Тоже самое.

>>Папаметры проекта=> Другие=> Параметры пользователя=> {-Oo LOOPUNROLL}

Не помогло (

coyot.rush писал(а):

-Oo LOOPUNROLL

опция компилятора fpc для размотки цикла

Ммм еще раз извините. Покажите пожалуйста, наглядно, как его оформлять и куда в юниту втыкать. Собсно на лазарусе это первый у меня боле-менее серьезный проект. А в делфях и так все работает ((

coyot.rush писал(а):попробуйте

Код: Выделить всё

 -Oo LOOPUNROLL

ммм а это кто? извините.




ну собсно 63 тика против 262-х

Здравствуйте.
Один и тот же код

procedure TForm1&#46;Button10Click(Sender&#58; TObject);
var
i,x&#58;integer;
a, b&#58;integer;
begin
a &#58;= GetTickCount;
for x&#58;=0 to 100000000 do i&#58;=x+123 ;
b &#58;= GetTickCount;
showmessage(inttostr(b-a));

end;

Выполняется в lazarus намного ...

Вот очень быстрый попиксельный доступ к битмапу с помощью API. Несколько строчек и не надо никаких дополнительных компонентов.
http://freepascal.ru/forum/viewtopic.php?f=5&t=6507&st=0&sk=t&sd=a&start=15

Пока не смотрел - сорри.
Это случайно не платформо зависимый сбособ? А то меня слово API ...

Смотрел там сильно медлено. 254 тиков против 15 на scanline

Но я надыбал способ побыстрее, где-то 15-16 тиков


type
PBGRPixel = ^TBGRPixel;

TBGRPixel = packed record
blue, green, red&#58; byte;
end;

&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;




procedure ...

Доброго времени суток.
У меня имеется двумерный массив с пикселями, как бы быстро вывести их на канву собственными средствами, тоесть сторонии компонентами пользоваться нельзя. В делфях я бы создал битмап и посредством сканлайн заполнил бы его, а затем draw на канву. А здесь как быть? попиксельный ...

К сожалению не подходит (
Проблема осталась

Hi all!
Такая ситуация.

Lazarus


procedure TForm1&#46;Button1Click(Sender&#58; TObject);
begin
Mouse&#46;CursorPos&#58;=Point(0,0);
end;


В винде это все работает нормально, а вот в убунте "Душа" перемещается, а "бренное тело" остается на месте. И что характерно событие от онклик передается ...

Доброе время суток. Мучаю тут сабжевую библиотечку, возникла проблема. Этот код создает пдф страничку, вроде все ок. Но при закрытии странички в адобе возникает ошибка "wrong object type". Как бы это вылечить? Что характерно с родным шрифтом (helios помоему) все номально.


procedure make_pdf ...