[yunqa.de] Re: FW: DSQLite3 with see-aes128-ofb extension
- From: Stephen Lock <s.lock@xxxxxxxxxxxxx>
- To: "yunqa@xxxxxxxxxxxxx" <yunqa@xxxxxxxxxxxxx>
- Date: Thu, 19 Sep 2013 14:05:00 +0100
Yes, that works. Thank you.
Will this be appearing in a future release?
Stephen
Stephen Lock
Software Engineer
Craneware
Office: +44 131 550 3121
Fax: +44 131 550 3101
s.lock@xxxxxxxxxxxxx
www.craneware.com
The Best Get Better at Craneware's User Group Summit: October 22 - 24 in
Charlotte, NC
About Craneware, Inc.
Craneware (AIM: CRW.L) is the leader in automated revenue integrity solutions
that improve financial performance for healthcare organizations. Craneware's
market-driven, SaaS solutions help hospitals and other healthcare providers
more effectively price, charge, code and retain earned revenue for patient care
services and supplies. This optimizes reimbursement, increases operational
efficiency and minimizes compliance risk. By partnering with Craneware, clients
achieve the visibility required to identify, address and prevent revenue
leakage. To learn more, visit craneware.com and stoptheleakage.com.
NOTICE: This email contains confidential or proprietary information which may
be legally privileged. It is intended only for the named recipient(s). If an
addressing or transmission error has misdirected the email, please notify the
author by replying to this message. If you are not the named recipient, you are
not authorized to use, disclose, distribute, copy, print or rely on this email,
and should immediately delete it from your computer system.-----Original
Message-----
From: yunqa-bounce@xxxxxxxxxxxxx [mailto:yunqa-bounce@xxxxxxxxxxxxx] On Behalf
Of Delphi Inspiration
Sent: 19 September 2013 13:12
To: yunqa@xxxxxxxxxxxxx
Subject: [yunqa.de] Re: FW: DSQLite3 with see-aes128-ofb extension
Can you replace the following function in DISQLite3DataSet.pas and test if it
works for you:
{$IFDEF TDISQLite3WideStringField_GetAsVariant}
function TDISQLite3WideStringField.GetAsVariant: Variant; {$IFNDEF
COMPILER_5_UP}
var
s: PWideChar;
begin
s := nil;
if GetData(@s) then
begin
TVarData(Result).VOleStr := PWideChar(s);
TVarData(Result).vType := varOleStr;
end
else
Result := Null;
{$ELSE !COMPILER_5_UP}
{$IFDEF COMPILER_10_UP}
var
s: UnicodeString;
vb: TValueBuffer;
begin
Pointer(vb) := @s;
if GetData(vb{$IFNDEF COMPILER_14_UP}, False{$ENDIF}) then
Result := s
else
Result := Null;
Pointer(vb) := nil;
{$ENDIF COMPILER_10_UP}
{$ENDIF COMPILER_5_UP}
end;
{$ENDIF TDISQLite3WideStringField_GetAsVariant}
Ralf
On 19.09.2013 12:24, Stephen Lock wrote:
> Sorry, try these (see attached)
_______________________________________________
Delphi Inspiration mailing list
yunqa@xxxxxxxxxxxxx
//www.freelists.org/list/yunqa
_______________________________________________
Delphi Inspiration mailing list
yunqa@xxxxxxxxxxxxx
//www.freelists.org/list/yunqa
Other related posts:
