Hello everyone ....

Compile with the latest version of lazarus. with FPC.exe and the ppcx64.exe.

Lazarus My Configuration is as follows:

Compilation Options, on the lapel of code:

Desired = Win64 OS
Desired Family CPU = x86_64

The only thing that the Offset code change from 63 to 81.

Now the error is:

"Not found.invalid request BLR at offset 81.
DESENCRYPTERTEXT function is not defined.
EntryPoint module name or Could not be found. "

Not indicating the offset ...

This the the code of my dll:

library UDFx64;
//{$mode objfpc}{$H+}{$ifdef fpc}{$mode delphi}{$endif}uses Classes { you can add units after this };
{$IFDEF WINDOWS}{$R UDFx64.rc}{$ENDIF}
Function EncrypterText(PStr: PChar): PChar;stdcall;export;var iKey:Integer;sResult, sStrAux:String;begin sResult := ''; //asigno el PChar a un String porque el PChar empieza desde 0 sStrAux := PStr; for iKey:=1 to Length(sStrAux) do sResult:=Chr(Byte(sStrAux[iKey])+1)+sResult; Result := PChar(sResult);end;
Function DesEncrypterText(PStr: PChar): PChar;cdecl;export;var iKey:Integer;sResult,sStrAux:String;begin sResult := ''; //asigno el PChar a un String porque el PChar empieza desde 0 sStrAux := PStr; for iKey:=1 to Length(sStrAux) do sResult:=Chr(Byte(sStrAux[iKey])-1)+sResult; Result := PChar(sResult);end;
function Mensaje(PStr:PChar):PChar;begin Result := PStr;end;
exports EncrypterText, DesEncrypterText, Mensaje;beginend.
Someone could compile it in 64bit and see if it goes ...

Thanks to all ....
Regards
PD /: automatically translated by Google Translator
To: firebird-support@yahoogroups.com
From: ismael@...
Date: Tue, 20 Jul 2010 16:48:19 -0400
Subject: Re: [firebird-support] Re: Firebird 2.1.3 64bits y UDF not found.invalid request BLR at offset 63.




























I believe that not he should get compiled with Lazarus. You should make it with Delphi or C++.



I repeat, I have understood.



Regards

=========

|| ISMAEL ||

=========

----- Original Message -----

From: santiagorichardsierra

To: firebird-support@yahoogroups.com

Sent: Tuesday, July 20, 2010 2:52 PM

Subject: [firebird-support] Re: Firebird 2.1.3 64bits y UDF not found.invalid request BLR at offset 63.



Hello Everyone ...

Compile a UDF to 64bit with Lazarus and continue with the same problem ....



Any Idea ....



Saluda atte ...



PD /: automatically translated by Google Translator



--- In firebird-support@yahoogroups.com, Thomas Steinmaurer <ts@...> wrote:



>

> Hello,

>

> > I am working with firebird 2.1.3 64bits on 64bits WinSeven

> > and want access to a UDF and I get the following error:

> >

> > Not found.invalid request BLR at offset 63. is not defined.

> > EntryPoint module name or Could not be found.

>

> One reason might be that your UDF hasn't been compiled with a 64-bit

> compiler.

>

> > I tried the same UDF in InterBase 2007 SP2 and doing well ... (Also in WinSeven 64bit)

>

> InterBase 2007 is 32-bit only, so it won't have a problem with using a

> 32-bit UDF library.

>

>

>

> --

> Best Regards,

> Thomas Steinmaurer

> LogManager Series - Logging/Auditing Suites supporting

> InterBase, Firebird, Advantage Database, MS SQL Server and

> NexusDB V2

> Upscene Productions

> http://www.upscene.com

> My blog:

> http://blog.upscene.com/thomas/

>

>

> > I tried changing the path of the UDF but the same error ....

> >

> >

> > Someone could help me??

> >

> > Saluda Atte.

> >

> >

> > PD/:Automatic Translation by Google Translator

> >

> >

> >

> >

> > ------------------------------------

> >

> > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

> >

> > Visit http://www.firebirdsql.org and click the Resources item

> > on the main (top) menu. Try Knowledgebase and FAQ links !

> >

> > Also search the knowledgebases at http://www.ibphoenix.com

> >

> > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

> > Yahoo! Groups Links

> >

> >

> >

> >

> >

>



[Non-text portions of this message have been removed]


















_________________________________________________________________



[Non-text portions of this message have been removed]