VPF::Скомпилировать короткий код на Kylix под Linux

Serges

Дата 11.2.2007, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.2.2007

Репутация: нет
Всего: нет

Господа!

Не могли бы вы скомпилировать на 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.2.2007

Репутация: нет
Всего: нет

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

mntek

Дата 26.2.2007, 10:21 (ссылка)

(нет голосов)

Загрузка ...

freakin_brain

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 15.8.2004
Где: saint-petersburg

Репутация: нет
Всего: 1

лови

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

Код


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.

Это сообщение отредактировал(а) mntek - 26.2.2007, 10:23

Присоединённый файл ( Кол-во скачиваний: 8 )

libfb2lib.so 77,36 Kb

Serges

Дата 27.2.2007, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.2.2007

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »