Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Скомпилировать короткий код на Kylix под Linux

Автор: Serges 11.2.2007, 18:11

Господа!

Не могли бы вы скомпилировать на Kylix под Linux нежеследующий код и оформить его в виде динамической библиотеки (.so)?
Нужно это для того, чтобы обеспечить работу данного продукта http://www.fb2-library.redholl.com/ на СУБД FireBird под Linux.

Сам я не программер, и похоже единственный заинтересованный в хранении базы данной программы на FireBird под Linux.
А разработчик с Kylix и Linux не работает и не имеет соответственно возможности сделать такую библиотечку.

Вот собственно и вся просьба.

Вот такой файлик fb2lib.pas:
-- cut --

Код


library fb2lib; 

uses 
  SysUtils, Classes; 

{$R *.res} 

function UpperCase(InString:PChar):PChar;cdecl;export; 
begin 
  Result:=PChar(AnsiUpperCase(string(InString))); 
end; 

function substr(InString:PChar;StartPos,Len:Integer):PChar;cdecl;export; 
begin 
  Result:=PChar(Copy(string(InString),StartPos,1)); 
end; 

exports UpperCase,substr; 

begin 
end.

-- cut --

Спасибо.

Автор: Serges 26.2.2007, 06:13

Неужели моя просьба настолько сложна?

Автор: mntek 26.2.2007, 10:21

лови

только теперь код выглядит тк:

Код


library fb2lib;

uses
  SysUtils;

function UpperCase(InString:PChar):PChar;cdecl;export;
begin
  Result:=PChar(AnsiUpperCase(string(InString)));
end;

function substr(InString:PChar;StartPos,Len:Integer):PChar;cdecl;export;
begin
  Result:=PChar(Copy(string(InString),StartPos,1));
 end;

exports UpperCase,substr;

begin
end.

Автор: Serges 27.2.2007, 09:59

Огромное спасибо!
smile