Re: Странная ошибка рестора БД с UDF под Linux

Thu, 13 Oct 2011 03:47:38 -0700 

"Vsevolod" <[email protected]>
сообщил/сообщила в новостях следующее:
news:[email protected]...
>
>
>   Если можно подскажи приз где я не прав и что не так делаю.
>
>

Не знаю к кому ты стучишся. Если конкретно к Владу то извини.
Вот мои потуги в написании библиотек на ФрееПаскале.
Я в лазарусе компилил. Еще и для 64 разрядного OpenSuse 11.2

library KHRStr;

{$LONGSTRINGS ON}
{$IFDEF UNIX}
  {$MODE DELPHI}
{$ENDIF}

uses
{$IFDEF UNIX}
  cthreads, // must be included before anything else for multithreaded apps,
hell knows why
{$ENDIF}
  SysUtils,
  Classes;

function KHRPos(ASubStr, AStr : PChar) : Longint; cdecl;
var
  P : PChar;
begin
  P := StrPos(AStr, ASubStr);
  if P = nil
    then Result := 0
    else Result := P - AStr + 1;
end;

exports
  KHRPos             name 'KHRPOS'             {$IFNDEF
UNIX}resident{$ENDIF},

begin
  isMultiThread:=True;
end.

Основная проблема была когда не было вот этого
{$IFDEF UNIX}
  cthreads, // must be included before anything else for multithreaded apps,
hell knows why
{$ENDIF}

С уважением Виктор Храпко

Ответить