Компоненты и примеры

[Attid]

все таки такая тема нужна хоть и в поиске много чего можно уже найти на торри ничегоне началось а на нашем сайте пока тихо.
для начало много всего есть в придачу это примеры
/lazarus/examples/
и компоненты
/lazarus/components/
не знаю есть ли описания всего что там на русском если нет надо будет описать в этом топике.

компонеты еще есть на оф сайте http://www.lazarus.freepascal.org/modul ... eA&show=10
тоже надо будет перенести сюда с описанием на русском.

Lazarus Code and Component Repository


Предотвращение запуска нескольких копий программы.

RxLib от Лагунова Алексея
http://www.alexs75.narod.ru/fpc/rxfpc/index.html

alexsDataSet от Лагунова Алексея
http://www.alexs75.narod.ru/fpc/fbdataset/index.htm

LazReport генератор отчетов на основе freereport
http://lazreport.sourceforge.net/
последняя версия
http://mx.geocities.com/jesusrmx/lazaru ... 608.tar.gz

OpenGL Box позволяет рисовать OpenGL на форме.
http://www.slashstone.com/more/openglbox/

lNet сетевые компоненты
( * Base lNet TCP/UDP - stable
* Telnet Client - stable*
* FTP Client - stable*
* SMTP Client - stable**
* HTTP Client - experimental
* HTTP Server - experimental )
http://wiki.lazarus.freepascal.org/lNet

reportlivre генератор отчетов
https://sourceforge.net/projects/reportlivre/

Orpheus Port куча компонент от поворачиваех лейболов до компонент работающих с ДБ . надо их будет потестить
http://web.fastermac.net/~MacPgmr/OrphP ... tatus.html

Pascal Data Objects компонент доступа к различным БД
http://pdo.sourceforge.net/

Multilanguage unit/framework for Lazarus
http://www.softwareschule.ch/download/laz_multilang.zip

[Attid]

Примеры

примеры от shade
svn http://tools.assembla.com/svn/zalex/examples (для анонимного checkout попробуйте guest/guest, если будут проблемы дайте знать или зарегистрируйтесь http://www.assembla.com/ )

пример пазла на лазарусе
http://www.softwareschule.ch/download/laz_puzzle.zip

VNC клиент на Lazarus by David Schenk
http://sourceforge.net/projects/dsk

[Attid]

cgi
CGI Data Modules
Incomplete: Requires implementation of the IDE Interface for data modules.

codetools
The builtin pascal parser and pascal completion/refactoring tools of the IDE.

custom
Obsolete: Use packages instead
User defined components for the IDE

fpcunit
template for a fpcunit gui test runner

gtk
GTK specific components

gtkglarea
An OpenGL control. Only usable with the gtk interface under linux.

htmllite
HTMLLite package. A multithreaded HTML control.

interbase
Interbase database package.

jpeg
JPEG support for LCL and IDE.

memds
TMemDataset датасет работаеющий с памятью или локальным файлом.

mpaslex
Небольшой парсер для pascal.
не является на самом деле компонентом.

mysql
MySQL database package.

sdf
SDF database package.

sqlite
SQLite database package.

synedit
Редактор который используется самим IDE.
оф страница http://sourceforge.net/projects/synedit/

synunihighlighter
Модуль универсальной подсветки для synedit.
http://www.delphist.com/UniHighlighter.html
http://www.delphist.com/unidownloads.html

tdbf
TDBF database package.

turbopower_ipro
A HTML control.

[Attid]

MySql
viewtopic.php?f=10&t=3868

[kosteek]

У кого есть ссылка на компонент ASC для Lazarus?
Компонент для кроссплатформенной работы со звуком.

Лежит перед носом и неувидел .

svn версия
https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/acs

[Dzirt]

для Lazarus есть компоненты на BDE, ADO и какие-нибудь средства создания отчетов?

[Attid]

какие-нибудь средства создания отчетов

c:\lazarus\components\lazreport

BDE, ADO

это не кросплатформенные решения, может ZeosLib подойдет ?

[Dzirt]

это не кросплатформенные решения, может ZeosLib подойдет ?

Не знаю, нужно посмотреть. ZeosLib - это стандартный или нужно устанавливать, можешь дать ссылку?

[voltron]

ZeosLib - это стандартный или нужно устанавливать, можешь дать ссылку?

Это отдельный компонент, в стандартную поставку Lazarus он не входит. Взять можно по адресам
http://sourceforge.net/projects/zeoslib
http://zeos.firmos.at/

[algor]

Нет ли под FPC/Lazarus какого-нибудь парсера мат. выражений?

[B4rr4cuda]

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

Преобразование строки в математическое выражение и получение результата.
Автор: Vimil Saju
Представляю Вашему вниманию сомпонент, на вход которого подаётся строка, содержащая математическое выражение, а на выходе результат вычисления этого выражения. При необходимости Вам не составит труда добавить в компонент такие функции как sin,cos,log,tan и т.д. Единственная неприятность, это присутствие глюка. Если ввести строку типа '5* -3', то мы получим ошибку. Я обязательно в ближайшее время постараюсь исправить данный баг.
Совместимость: Delphi 4.x (или выше)
  Собственно сам исходничек:
  unit MathComponent; 
 
 interface 
 
 uses 
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,math; 
 
 
 type 
 TMathtype=(mtnil,mtoperator,mtlbracket,mtrbracket,mtoperand); 
 
 type 
 TMathOperatortype=(monone,moadd,mosub,modiv,momul,mopow); 
 
 type 
 pmathchar = ^Tmathchar; 
 TMathChar = record 
   case mathtype: Tmathtype of 
    mtoperand:(data:extended); 
    mtoperator:(op:TMathOperatortype); 
 end; 
 
 type 
   TMathControl = class(TComponent) 
   private 
    input,output,stack:array of tmathchar; 
    fmathstring:string; 
    function getresult:extended; 
    function calculate(operand1,operand2,operator:Tmathchar):extended; 
    function getoperator(c:char):TMathOperatortype; 
    function getoperand(mid:integer;var len:integer):extended; 
    procedure processstring; 
    procedure convertinfixtopostfix; 
    function isdigit(c:char):boolean; 
    function isoperator(c:char):boolean; 
    function getprecedence(mop:TMathOperatortype):integer; 
   protected 
   published 
    property MathExpression:string read fmathstring write fmathstring; 
    property MathResult:extended read getresult; 
   end; 
 
 procedure Register; 
 
 implementation 
 
 function Tmathcontrol.calculate(operand1,operand2,operator:Tmathchar):extended; 
 begin 
 result:=0; 
 case operator.op of 
   moadd: 
    result:=operand1.data + operand2.data; 
   mosub: 
    result:=operand1.data - operand2.data; 
   momul: 
    result:=operand1.data * operand2.data; 
   modiv: 
    if (operand1.data<>0) and (operand2.data<>0) then 
     result:=operand1.data / operand2.data 
    else 
     result:=0; 
   mopow: result:=power(operand1.data,operand2.data); 
 end; 
 end; 
 
 function Tmathcontrol.getresult:extended; 
 var 
 i:integer; 
 tmp1,tmp2,tmp3:tmathchar; 
 begin 
 convertinfixtopostfix; 
 setlength(stack,0); 
 for i:=0 to length(output)-1 do 
   begin 
    if output[i].mathtype=mtoperand then 
     begin 
      setlength(stack,length(stack)+1); 
      stack[length(stack)-1]:=output[i]; 
     end 
    else if output[i].mathtype=mtoperator then 
     begin 
       tmp1:=stack[length(stack)-1]; 
       tmp2:=stack[length(stack)-2]; 
       setlength(stack,length(stack)-2); 
       tmp3.mathtype:=mtoperand; 
       tmp3.data:=calculate(tmp2,tmp1,output[i]); 
       setlength(stack,length(stack)+1); 
       stack[length(stack)-1]:=tmp3; 
     end; 
   end; 
 result:=stack[0].data; 
 setlength(stack,0); 
 setlength(input,0); 
 setlength(output,0); 
 end; 
 
 function Tmathcontrol.getoperator(c:char):TMathOperatortype; 
 begin 
 result:=monone; 
 if c='+' then 
   result:=moadd 
 else if c='*' then 
   result:=momul 
 else if c='/' then 
   result:=modiv 
 else if c='-' then 
   result:=mosub 
 else if c='^' then 
   result:=mopow; 
 end; 
 
 function Tmathcontrol.getoperand(mid:integer;var len:integer):extended; 
 var 
 i,j:integer; 
 tmpnum:string; 
 begin 
 j:=1; 
 for i:=mid to length(fmathstring)-1 do 
   begin 
    if isdigit(fmathstring[i]) then 
     begin 
      if j<=20 then 
       tmpnum:=tmpnum+fmathstring[i]; 
      j:=j+1; 
     end 
    else 
     break; 
   end; 
 result:=strtofloat(tmpnum); 
 len:=length(tmpnum); 
 end; 
 
 procedure Tmathcontrol.processstring; 
 var 
 i:integer; 
 numlen:integer; 
 begin 
 i:=0; 
 numlen:=0; 
 setlength(output,0); 
 setlength(input,0); 
 setlength(stack,0); 
 fmathstring:='('+fmathstring+')'; 
 setlength(input,length(fmathstring)); 
 while i<=length(fmathstring)-1 do 
   begin 
    if fmathstring[i+1]='(' then 
     begin 
      input[i].mathtype:=mtlbracket; 
      i:=i+1; 
     end 
    else if fmathstring[i+1]=')' then 
     begin 
      input[i].mathtype:=mtrbracket; 
      i:=i+1; 
     end 
    else if isoperator(fmathstring[i+1]) then 
     begin 
      input[i].mathtype:=mtoperator; 
      input[i].op:=getoperator(fmathstring[i+1]); 
      i:=i+1; 
     end 
    else if isdigit(fmathstring[i+1]) then 
     begin 
      input[i].mathtype:=mtoperand; 
      input[i].data:=getoperand(i+1,numlen); 
      i:=i+numlen; 
     end; 
   end; 
 end; 
 
 
 function Tmathcontrol.isoperator(c:char):boolean; 
 begin 
 result:=false; 
 if (c='+') or (c='-') or (c='*') or (c='/') or (c='^') then 
   result:=true; 
 end; 
 
 function Tmathcontrol.isdigit(c:char):boolean; 
 begin 
 result:=false; 
 if ((integer(c)> 47) and (integer(c)< 58)) or (c='.') then 
   result:=true; 
 end; 
 
 function Tmathcontrol.getprecedence(mop:TMathOperatortype):integer; 
 begin 
 result:=-1; 
 case mop of 
   moadd:result:=1; 
   mosub:result:=1; 
   momul:result:=2; 
   modiv:result:=2; 
   mopow:result:=3; 
 end; 
 end; 
 
 procedure Tmathcontrol.convertinfixtopostfix; 
 var 
 i,j,prec:integer; 
 begin 
 processstring; 
 for i:=0 to length(input)-1 do 
   begin 
    if input[i].mathtype=mtoperand then 
     begin 
      setlength(output,length(output)+1); 
      output[length(output)-1]:=input[i]; 
     end 
    else if input[i].mathtype=mtlbracket then 
     begin 
      setlength(stack,length(stack)+1); 
      stack[length(stack)-1]:=input[i]; 
     end 
    else if input[i].mathtype=mtoperator then 
     begin 
      prec:=getprecedence(input[i].op); 
      j:=length(stack)-1; 
      if j>=0 then 
       begin 
        while(getprecedence(stack[j].op)>=prec) and (j>=0) do 
         begin 
          setlength(output,length(output)+1); 
          output[length(output)-1]:=stack[j]; 
          setlength(stack,length(stack)-1); 
          j:=j-1; 
         end; 
        setlength(stack,length(stack)+1); 
        stack[length(stack)-1]:=input[i]; 
       end; 
     end 
    else if input[i].mathtype=mtrbracket then 
     begin 
      j:=length(stack)-1; 
      if j>=0 then 
       begin 
        while(stack[j].mathtype<>mtlbracket) and (j>=0) do 
         begin 
          setlength(output,length(output)+1); 
          output[length(output)-1]:=stack[j]; 
          setlength(stack,length(stack)-1); 
          j:=j-1; 
         end; 
        if j>=0 then 
         setlength(stack,length(stack)-1); 
       end; 
     end; 
   end; 
 end; 
 
 
 procedure Register; 
 begin 
   RegisterComponents('Samples', [TMathControl]); 
 end; 
 
 end. 

     

Парсер рабочий, правда я его использовал не как компонент, а как юнит и потом переделывал для других целей. Если будете разбирать - почитайте о польской нотации (записи), все маф парсеры построены на этом принципе.

[Mr.Smart]

почитайте о польской нотации

правильней будет "обратная польская нотация"....

[algor]

Парсер рабочий, правда я его использовал не как компонент, а как юнит и потом переделывал для других целей. Если будете разбирать - почитайте о польской нотации (записи), все маф парсеры построены на этом принципе.

Спасибо большое =)
Я уже завалился книгами, ссылками и т.п. и сам начал писать. Практически точно по статье на "Королевстве Delphi" - http://www.delphikingdom.com/asp/viewitem.asp?catalogid=10. Единственное отличие - класс + поддержка переменных (правда, назвать это "фичей" язык не поворачивается =)). Если надо - допишу, код выложу, хотя код-то довольно простой (как оказалось).
Правда, как я понял, обратная польская нотация в статье не используется.

[B4rr4cuda]

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

[Lazzik]

А есть Indy под lazarus и где его достать???