powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
42 сообщений из 42, показаны все 2 страниц
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491284
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Существует несколько наборов компонент которые позволяют встраивать в свою программу дизайнер форм:
- Greatis Form Designer
- TMS Scripter
- EControl Form Designer Pro

Возможно есть ещё что-то (что?).

Вопросы:
- можно ли создавать продукты использующие стандартные VCL-компоненты в design-time? Не будет ли против Delphi EULA ? (это EULA к XE2). Юридический язык для меня не родной.
- можно ли создавать продукты использующие коммерческие VCL-компоненты в design-time, например DevExpress (как тут )?
- можно ли в таких продуктах использовать установленный Delphi для компиляции своих форм?

Мой интерес не ради любопытства. Я развиваю проект который позволяет дизайнить формочки и у меня есть некоторые сомнения по поводу того где проходит юридическая граница того как можно и как нельзя.
Ещё я хочу понять можно ли так использовать набор компонентов Raise components . Его EULA не однозначен.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491293
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дизайнер отчетов FastReport нельзя встраивать в свои продукты.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491323
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FastBaseDevЕщё я хочу понять можно ли так использовать набор компонентов Raise components . Его EULA не однозначен.
кстати, таки да. Я шас пытаюсь ихний PageControl под Лазарь портировать. Поскольку лицензионная чистота IDE и используемых компонентов для меня приоритетна, то смущает вот эта фраза
... provided that you: ...; (b) do not use any part of the source code of the Components to build any other components for public distribution or commercial sale;
т.е., если я переименую названия классов, внесу косметические изменения в код, все равно это будет плагиат?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491338
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
JaDiДизайнер отчетов FastReport нельзя встраивать в свои продукты.
Если продукт является средой разработки, то при наличии партнёрского договора можно.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491346
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
JaDiДизайнер отчетов FastReport нельзя встраивать в свои продукты.
Можно, но за отдельную денежку.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491347
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Докт.е., если я переименую названия классов, внесу косметические изменения в код, все равно это будет плагиат?
Вообще то да. Это примерно как взять исходники msoffice (если бы их продавали), портировать его под Linux и продавать или раздавать бесплатно.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491385
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Док> Я шас пытаюсь ихний PageControl под Лазарь портировать

У тебя лицензия на него (Raise) куплена?

> все равно это будет плагиат?

Плагиат будет в любом случае, разумеется.
Цитата запрещает не плагиат, а распространение
части своего кода или компонент на его основе.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491401
LSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
- можно ли в таких продуктах использовать установленный Delphi для компиляции своих форм?Нет конечно.
А остальные пункты - а не пофиг ли ? Ну кто будет разбираться ?
Вообще готовые дизайнеры форм - крайне специфическая вещь.
Можно взять кусочек кода, как образец для допиливания.
Но использовать целиком - не очень себе представляю, что из этого получится.

зы: Я сделал систему с полностью самодельным дизайнером форм. В нем не используется привычный инспектор св-в.
ТОчнее, есть список только нужных свойств (большинство из них не существуют у используемых компонентов), который лежит в обычном раскрашенном гриде (внешне похожем на ИС), и по событиям изменяет данные в XML, хранящем настройки формы.
Плюсы:
* ничего лишнего.
* своего кода написано немного.
* можно реализовать любую специфику своей платформы.
* не нужно изучать тонные чужого кода стороннего дизайнера и нудно выпиливать из него мешающее и докидывать нужное.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491411
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Гаджимурадов РустамУ тебя лицензия на него (Raise) куплена?
нет, конечно. Я же психфрилансер-одиночка. Просто в Лазаре PageControl деградирует от версии к версии, вот и решил в кишках у RC покопаться.
Гаджимурадов РустамЦитата запрещает не плагиат, а распространение
части своего кода
Вся беда в том, что там все фишки реализованы достаточно сложно через множество промежуточных классов. Воленс-ноленс, придется либо изобретать велосипед с квадратными колесами, либо менять архитектуру классов, чтобы избежать обвинений копировании.

Распространение "части своего кода" - весьма расплывчатое понятие, имхо. Например, оригинальный код в дельфях
Код: pascal
1.
2.
3.
4.
5.
6.
procedure WMEraseBkgnd( var Msg: TWMEraseBkgnd ); message wm_EraseBkgnd;
...
procedure TRzTabScroller.WMEraseBkgnd( var Msg: TWMEraseBkgnd );
begin
  Msg.Result := 1;
end;


в Лазаре выглядит так
Код: pascal
1.
procedure WMEraseBkgnd(var Msg: TLMEraseBkgnd); message LM_ERASEBKGND;


Естественно, реализация будет та же.

Это является распространением?

Или константы/типы/множества, разбросанные по разным модулям, можно при портировании собрать в один модуль. Это можно считать частью их кода?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491417
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
JaDiДизайнер отчетов FastReport нельзя встраивать в свои продукты.

а зачем он тогда нужен?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491418
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
X11JaDiДизайнер отчетов FastReport нельзя встраивать в свои продукты.

а зачем он тогда нужен?
чтобы в дизайн-тайме дизайнить отчёты
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491422
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FastBaseDevJaDiДизайнер отчетов FastReport нельзя встраивать в свои продукты.
Если продукт является средой разработки, то при наличии партнёрского договора можно.

а ты не называй свой продукт средой разработки, пуст будет "обычная" программа
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491424
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecator,

та ну.... бред же
специально дают возможность конечным пользователям использовать и скриптовый язык
а нафиг тогда скриптовый язык?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491426
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
X11defecator,

та ну.... бред же
специально дают возможность конечным пользователям использовать и скриптовый язык
а нафиг тогда скриптовый язык?
раньше всё было по-другому, а потом FR захотел ещё больше бабла
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491427
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Док> нет, конечно

Ну, значит, до плагиата и пр. лицензионных
ограничений ещё далеко, это обычный варез.
О лицензионных ограничениях можно
говорить, когда она (лицензия) есть.

> Это является распространением?

Нет, конечно. Это даже плагиатом трудно назвать.

> Это можно считать частью их кода?

Куски кода из нескольких модулей, собранные
в один - разумеется. Если они не "переработаны".
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491429
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да хватит уже всякую чушь нести, тем более, что тема не про FR.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491434
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Это ещё хорошо, что производители компонентов (ещё) не обфусцируют исходный код перед продажей,
как это делает DevArt в ODAC:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
procedure OOQCCOQOO0(O0QCCOQOO0:integer);
begin
raise ENetError.Create(O0QCCOQOO0,'Net error '+IntToStr(O0QCCOQOO0));
end;
procedure OCQCCOQOO0(OQQCCOQOO0:integer);
begin
raise EDBError.Create(OQQCCOQOO0,'Unknown error '+IntToStr(OQQCCOQOO0));
end;
function OOOQCOQOO0:sword;
begin
OQ0CCOQOO0('Function is not supported');
Result:=0;
end;
function O0QC0OCOO0.OQQC0OCOO0:boolean;
begin
Result:=OOOQ0OCOO0<>nil;
end;
constructor O0QC0OCOO0.Create(OCOQ0OCOO0:TObject);
begin
inherited Create;
OCQC0OCOO0:=1;
OOOQ0OCOO0:=OCOQ0OCOO0;
end;
procedure O0QC0OCOO0.OQOQ0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
inherited Free;
end;
end;
end;
procedure O0QC0OCOO0.OO0Q0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then
inherited Free;
end;
end;
procedure O0QC0OCOO0.O00Q0OCOO0;
begin
Inc(OCQC0OCOO0);
end;
function O0OQCOQOO0(OCOQCOQOO0,OQOQCOQOO0:String):String;
var
OO0QCOQOO0:integer;
begin
Result:='';
OO0QCOQOO0:=Pos(OQOQCOQOO0,OCOQCOQOO0);
if OO0QCOQOO0=0 then
Exit;
OO0QCOQOO0:=OO0QCOQOO0+Length(OQOQCOQOO0);
if OCOQCOQOO0[OO0QCOQOO0]='='then begin
Inc(OO0QCOQOO0);
while not((OCOQCOQOO0[OO0QCOQOO0]=')')or(OCOQCOQOO0[OO0QCOQOO0]=#0))do begin
Result:=Result+OCOQCOQOO0[OO0QCOQOO0];
Inc(OO0QCOQOO0);
end;
end;
end;
function O00QCOQOO0(OC0QCOQOO0,OQ0QCOQOO0,OOCQCOQOO0:String):String;
var
O0CQCOQOO0,OCCQCOQOO0:integer;
begin
O0CQCOQOO0:=Pos(OQ0QCOQOO0,OC0QCOQOO0);
if O0CQCOQOO0=0 then
OQ0CCOQOO0(OQ0QCOQOO0+' not found');
O0CQCOQOO0:=O0CQCOQOO0+Length(OQ0QCOQOO0);
if OC0QCOQOO0[O0CQCOQOO0]='='then begin
Inc(O0CQCOQOO0);
OCCQCOQOO0:=O0CQCOQOO0;
while not((OC0QCOQOO0[OCCQCOQOO0]=')')or(OC0QCOQOO0[OCCQCOQOO0]=#0))do
Inc(OCCQCOQOO0);
Delete(OC0QCOQOO0,O0CQCOQOO0,OCCQCOQOO0-O0CQCOQOO0);
Insert(OOCQCOQOO0,OC0QCOQOO0,O0CQCOQOO0);
end;
Result:=OC0QCOQOO0;
end;
function OQCQCOQOO0(OOQQCOQOO0:word):boolean;
begin
if(OOQQCOQOO0>=OQCCO00OO0)and(OOQQCOQOO0<=OCQCO00OO0)then
Result:=True
else
Result:=False;
end;



а то ведь тогда вообще был бы ад
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491467
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecator,

хммм. У меня ODAC нет, пользуюсь только MyDAC/LiteDAC/SDAC, там такого ада нету.

По теме - можно конечно делать свои компоненты и давать использовать только их в самопальном дизайнере, но как быть с базовыми компонентами (TPanel, TButton и т.д.), неужели их нельзя использовать по юридическим основаниям? Было бы интересно от какого нить представителя Эмбы услышать комментарий по теме
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491493
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
asutp2> но как быть с базовыми компонентами (TPanel, TButton и т.д.),
asutp2> неужели их нельзя использовать по юридическим основаниям?

Господи, ну включите же логику. Вы эти
"базовые компоненты" распространяете?
Нет. Ну а тогда к чему эти вопросы?

> Было бы интересно от какого нить представителя
> Эмбы услышать комментарий по теме

Я попросил кого-нибудь из них прокомментировать,
но примерно представляю, что они скажут (как обычно).
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491494
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
function O00QCOQOO0(OC0QCOQOO0,OQ0QCOQOO0,OOCQCOQOO0:String):String;
var
O0CQCOQOO0,OCCQCOQOO0:integer;
begin


Неплохо бы и типы свои завести !!!
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491496
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
X11FastBaseDevпропущено...

Если продукт является средой разработки, то при наличии партнёрского договора можно.

а ты не называй свой продукт средой разработки, пуст будет "обычная" программа
Я уже пошел по пути заключения договора.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491502
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Докт.е., если я переименую названия классов, внесу косметические изменения в код, все равно это будет плагиат?
Конечно.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491506
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Гаджимурадов Рустамэто обычный варез.
тогда в данном контексте, чем обычный варез от лицензионных ограничений отличается? :)
Гаджимурадов РустамЕсли они не "переработаны".
хм... хитрое место. Если добавлю префикс к каждому методу - уже "переработал"?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491507
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecatorкак это делает DevArt в ODAC
lavrov.jpg
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491508
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
LSV- можно ли в таких продуктах использовать установленный Delphi для компиляции своих форм?Нет конечно.
Почему нет? Есть запрет?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491513
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Kazantsev AlexeyКонечно.
пипец. Как написать новую песню, если нот все семьдвенадцать? Эдак, скоро опять упрешься в чье-нибудь лицензионное ограничение, потому что вновь тобой изобретенный код кем-то и когда-то был написан
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491524
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ДокЭдак, скоро опять упрешься в чье-нибудь лицензионное ограничение, потому что вновь тобой изобретенный код кем-то и когда-то был написан
Вероятность повторяемости в сколь-нибудь серьезном куске кода от разных авторов крайне маловероятна.

Говорить же о портировании коммерческого кода вообще довольно странно, если на это нет позволения автора - это банальное воровство.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491549
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Док> тогда в данном контексте, чем обычный варез
Док> от лицензионных ограничений отличается? :)

Тем, что варез - это воровство (если не freeware),
а лицензионные ограничения (могут быть и для
freeware, кстати) - это "ты купил, но по лицензии
можно a-b-c, а d-e-f нельзя".

> Если добавлю префикс к каждому методу - уже "переработал"?

Префиксов не хватит, конечно. А чего хватит -
будет решать суд, если таковой состоится.
Я напомню про суд срач Гугл против Оракла
на мильоны из-за 9 строк кода функции rangeCheck,
которые в принципе очень трудно написать иначе
на любом ЯП.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491571
LSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FastBaseDevLSVпропущено...
Нет конечно.Почему нет? Есть запрет?На бесплатное использование ? Нет. Если копия оплачена, то наверно можно.

ps: Слышал про такой продукт (конструктор учет. системы), где можно было скомпилить модуль на лету. DCC32.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491600
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Использовать DCC32 на компе без установленной делфи однозначно нарушает лицензионное соглашение.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491656
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecatorЭто ещё хорошо, что производители компонентов (ещё) не обфусцируют исходный код перед продажей,
как это делает DevArt в ODAC:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
procedure OOQCCOQOO0(O0QCCOQOO0:integer);
begin
raise ENetError.Create(O0QCCOQOO0,'Net error '+IntToStr(O0QCCOQOO0));
end;
procedure OCQCCOQOO0(OQQCCOQOO0:integer);
begin
raise EDBError.Create(OQQCCOQOO0,'Unknown error '+IntToStr(OQQCCOQOO0));
end;
function OOOQCOQOO0:sword;
begin
OQ0CCOQOO0('Function is not supported');
Result:=0;
end;
function O0QC0OCOO0.OQQC0OCOO0:boolean;
begin
Result:=OOOQ0OCOO0<>nil;
end;
constructor O0QC0OCOO0.Create(OCOQ0OCOO0:TObject);
begin
inherited Create;
OCQC0OCOO0:=1;
OOOQ0OCOO0:=OCOQ0OCOO0;
end;
procedure O0QC0OCOO0.OQOQ0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
inherited Free;
end;
end;
end;
procedure O0QC0OCOO0.OO0Q0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then
inherited Free;
end;
end;
procedure O0QC0OCOO0.O00Q0OCOO0;
begin
Inc(OCQC0OCOO0);
end;
function O0OQCOQOO0(OCOQCOQOO0,OQOQCOQOO0:String):String;
var
OO0QCOQOO0:integer;
begin
Result:='';
OO0QCOQOO0:=Pos(OQOQCOQOO0,OCOQCOQOO0);
if OO0QCOQOO0=0 then
Exit;
OO0QCOQOO0:=OO0QCOQOO0+Length(OQOQCOQOO0);
if OCOQCOQOO0[OO0QCOQOO0]='='then begin
Inc(OO0QCOQOO0);
while not((OCOQCOQOO0[OO0QCOQOO0]=')')or(OCOQCOQOO0[OO0QCOQOO0]=#0))do begin
Result:=Result+OCOQCOQOO0[OO0QCOQOO0];
Inc(OO0QCOQOO0);
end;
end;
end;
function O00QCOQOO0(OC0QCOQOO0,OQ0QCOQOO0,OOCQCOQOO0:String):String;
var
O0CQCOQOO0,OCCQCOQOO0:integer;
begin
O0CQCOQOO0:=Pos(OQ0QCOQOO0,OC0QCOQOO0);
if O0CQCOQOO0=0 then
OQ0CCOQOO0(OQ0QCOQOO0+' not found');
O0CQCOQOO0:=O0CQCOQOO0+Length(OQ0QCOQOO0);
if OC0QCOQOO0[O0CQCOQOO0]='='then begin
Inc(O0CQCOQOO0);
OCCQCOQOO0:=O0CQCOQOO0;
while not((OC0QCOQOO0[OCCQCOQOO0]=')')or(OC0QCOQOO0[OCCQCOQOO0]=#0))do
Inc(OCCQCOQOO0);
Delete(OC0QCOQOO0,O0CQCOQOO0,OCCQCOQOO0-O0CQCOQOO0);
Insert(OOCQCOQOO0,OC0QCOQOO0,O0CQCOQOO0);
end;
Result:=OC0QCOQOO0;
end;
function OQCQCOQOO0(OOQQCOQOO0:word):boolean;
begin
if(OOQQCOQOO0>=OQCCO00OO0)and(OOQQCOQOO0<=OCQCO00OO0)then
Result:=True
else
Result:=False;
end;



а то ведь тогда вообще был бы ад

Видимо у меня старый ODAC, такого не нашел :)
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491659
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
schidefecatorЭто ещё хорошо, что производители компонентов (ещё) не обфусцируют исходный код перед продажей,
как это делает DevArt в ODAC:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
procedure OOQCCOQOO0(O0QCCOQOO0:integer);
begin
raise ENetError.Create(O0QCCOQOO0,'Net error '+IntToStr(O0QCCOQOO0));
end;
procedure OCQCCOQOO0(OQQCCOQOO0:integer);
begin
raise EDBError.Create(OQQCCOQOO0,'Unknown error '+IntToStr(OQQCCOQOO0));
end;
function OOOQCOQOO0:sword;
begin
OQ0CCOQOO0('Function is not supported');
Result:=0;
end;
function O0QC0OCOO0.OQQC0OCOO0:boolean;
begin
Result:=OOOQ0OCOO0<>nil;
end;
constructor O0QC0OCOO0.Create(OCOQ0OCOO0:TObject);
begin
inherited Create;
OCQC0OCOO0:=1;
OOOQ0OCOO0:=OCOQ0OCOO0;
end;
procedure O0QC0OCOO0.OQOQ0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
inherited Free;
end;
end;
end;
procedure O0QC0OCOO0.OO0Q0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then
inherited Free;
end;
end;
procedure O0QC0OCOO0.O00Q0OCOO0;
begin
Inc(OCQC0OCOO0);
end;
function O0OQCOQOO0(OCOQCOQOO0,OQOQCOQOO0:String):String;
var
OO0QCOQOO0:integer;
begin
Result:='';
OO0QCOQOO0:=Pos(OQOQCOQOO0,OCOQCOQOO0);
if OO0QCOQOO0=0 then
Exit;
OO0QCOQOO0:=OO0QCOQOO0+Length(OQOQCOQOO0);
if OCOQCOQOO0[OO0QCOQOO0]='='then begin
Inc(OO0QCOQOO0);
while not((OCOQCOQOO0[OO0QCOQOO0]=')')or(OCOQCOQOO0[OO0QCOQOO0]=#0))do begin
Result:=Result+OCOQCOQOO0[OO0QCOQOO0];
Inc(OO0QCOQOO0);
end;
end;
end;
function O00QCOQOO0(OC0QCOQOO0,OQ0QCOQOO0,OOCQCOQOO0:String):String;
var
O0CQCOQOO0,OCCQCOQOO0:integer;
begin
O0CQCOQOO0:=Pos(OQ0QCOQOO0,OC0QCOQOO0);
if O0CQCOQOO0=0 then
OQ0CCOQOO0(OQ0QCOQOO0+' not found');
O0CQCOQOO0:=O0CQCOQOO0+Length(OQ0QCOQOO0);
if OC0QCOQOO0[O0CQCOQOO0]='='then begin
Inc(O0CQCOQOO0);
OCCQCOQOO0:=O0CQCOQOO0;
while not((OC0QCOQOO0[OCCQCOQOO0]=')')or(OC0QCOQOO0[OCCQCOQOO0]=#0))do
Inc(OCCQCOQOO0);
Delete(OC0QCOQOO0,O0CQCOQOO0,OCCQCOQOO0-O0CQCOQOO0);
Insert(OOCQCOQOO0,OC0QCOQOO0,O0CQCOQOO0);
end;
Result:=OC0QCOQOO0;
end;
function OQCQCOQOO0(OOQQCOQOO0:word):boolean;
begin
if(OOQQCOQOO0>=OQCCO00OO0)and(OOQQCOQOO0<=OCQCO00OO0)then
Result:=True
else
Result:=False;
end;




а то ведь тогда вообще был бы ад

Видимо у меня старый ODAC, такого не нашел :)

Файл OraNet.pas
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491749
-Rik-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FastBaseDevМой интерес не ради любопытства. Я развиваю проект который позволяет дизайнить формочки и у меня есть некоторые сомнения по поводу того где проходит юридическая граница того как можно и как нельзя.
Ещё я хочу понять можно ли так использовать набор компонентов Raise components . Его EULA не однозначен.
Это была главная причина, почему я "свалил" на Lazarus с подобной поделкой, использую свободные компоненты с ними проще. Можете посмотреть если хотите: visual-t.ru
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491788
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-Rik-Это была главная причина, почему я "свалил" на Lazarus
Привет, Юр. Редко ты сюда захаживаешь :)

Это главная причина для многих. Причем, как я вижу, не только одиночек.

Kazantsev Alexeyэто банальное воровство
по большому счету - да. Мне теперь просто интересно, взлетит или нет. Может сделаю втихаря для себя ;)
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491793
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ДокМожет сделаю втихаря для себя ;)
Дело конечно твоё, но не лучше ли допилить до требуемых кондиций LCL'ный и запостить патч на трекер?
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39491871
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecatorschiпропущено...


Видимо у меня старый ODAC, такого не нашел :)

Файл OraNet.pas

У меня его нет, только .dcu :-(
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39492255
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
-Rik-Это была главная причина, почему я "свалил" на Lazarus с подобной поделкой, использую свободные компоненты с ними проще.
В Lazarus нужно открывать исходники если смешивать GPL-ный код с чем-то другим. Получается что GPL-ный код с коммерческими библиотеками смешивать нельзя, т.к. производители таких библиотек не разрешают публиковать свой код. Например нельзя использовать лазарусовский дизайнер форм (он под GPL) с FastReport.
http://wiki.lazarus.freepascal.org/licensing Below are some of the more popular misconceptions and their rebuttal:

- If I distribute FPC with my application for internal scripting, I must also package the FPC source.
No, a link to the FPC site in some copyright addendum is enough, though you should keep the source yourself for three years, see the next paragraph

- If I modify FPC and distribute it with my application (but am not linked to it), I must ship the source of my application.
No, only if you link your application to GPLed code. If you package it, modifications (the modified source) on your site or distribution media is enough.

-If I link to GPL code, I must publish my own sources.
Yes, but only when you distribute them outside your organization. See Lazarus licensing section and [1]) Note that FPC is set up in a way that linking to GPL code is usually not needed.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39492678
FastReports
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
JaDiДизайнер отчетов FastReport нельзя встраивать в свои продукты.
Можно, просто если продукт "широкого применения" (продукт позволяет создавать продукты с генератором отчётов, грубо говоря, или же сам по себе генератор отчётов), то ещё дополнительные роялти предусмотрены.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39492689
-Rik-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[quot FastBaseDev]-Rik-Это была главная причина, почему я "свалил" на Lazarus с подобной поделкой, использую свободные компоненты с ними проще.
В Lazarus нужно открывать исходники если смешивать GPL-ный код с чем-то другим. Получается что GPL-ный код с коммерческими библиотеками смешивать нельзя, т.к. производители таких библиотек не разрешают публиковать свой код. Например нельзя использовать лазарусовский дизайнер форм (он под GPL) с FastReport.
Все верно, поэтому лично я не использую коммерческие компоненты.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39492690
-Rik-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ДокПривет, Юр. Редко ты сюда захаживаешь :)
Привет, привет.. Да нет, захожу иногда, просто последнее время в качестве наблюдателя, читаю что пишут..
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39492715
-Rik-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FastBaseDev-Rik-Это была главная причина, почему я "свалил" на Lazarus с подобной поделкой, использую свободные компоненты с ними проще.
В Lazarus нужно открывать исходники если смешивать GPL-ный код с чем-то другим. Получается что GPL-ный код с коммерческими библиотеками смешивать нельзя, т.к. производители таких библиотек не разрешают публиковать свой код. Например нельзя использовать лазарусовский дизайнер форм (он под GPL) с FastReport.
Хотя нет, наверно не так, вы должны открывать код только того что попадает под лицензию GPL или то что вы модифицировали сами из GPL.
...
Рейтинг: 0 / 0
Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
    #39493252
FastBaseDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
FastBaseDevВозможно есть ещё что-то (что?).
Ещё есть LMD IDE-Tools .
...
Рейтинг: 0 / 0
42 сообщений из 42, показаны все 2 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Лицензионные ограничения на свой дизайнер форм и компонеты (VCL и чужие)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]