Zeoslib Portal

@EgonHugeist

Now is correct in 32 and 64 bit version Lazarus/fpc for Windows.

Michal Abramczyk

@EgonHugeist When in dbgrid in TIME cell I enter: 1:1:1 and leave cell then 01:46:34 appears in cell 2:2:2 and leave cell then 01:46:34 appears in cell 3:3:3 and leave cell then 23:27:09 appears in cell 4:4:4 and leave cell then 01:46:34 appears in cell Lazarus/fpc 32-bits Windows, Firebird 2.5 Wind...

@EgonHugeist

Fixed placement of modules in dpk and strengthened the DEBUG options.

Mchal Abramczyk

@EgonHugeist

It seems that it is almost good(rev 1297).
In cursory testing, in principle, everything works except for the conversion of TIME in the DBGrid (and maybe DATETIME in Lazarus / fpc for Windows and Firebird 2.5).

I add corrected packages for XE2.

Michal Abramczyk

@EgonHugeist

1:1 is the text that I entered the cell grid.

This is another example of the error (with Firebird 2.5 and DXE2-64):

Michal Abramczyk

There is something wrong with fields of type TIME(Firebird 2.5) in Lazarus for Win 32/64
For example, after entering in the grid value 1:1, the display takes the form of 2:30:43.

Michal Abramczyk

@EgonHugeist

Simple Firebird 2.5(Win) application with table(from AnyDAC test) and dbgrid, working only when compiling on not unicode Delphi 2006.

The same application compiling on DXE2 32 and 64 bits
and on Lazarus/fpc for Window 32 and 64, freeze or destroys data.

Michal Abramczyk

For Lazarus 1.1.0 Source from SVN 20-4-2012 Rev 36942
FreePascal 2.7.1 Source from SVN 20-4-2012 Rev 20936

I add: {$UNDEF WITH_TBOOKMARK}

unit ZAbstractDataset;

interface

{$I ZComponent.inc}
{$UNDEF WITH_TBOOKMARK}
uses

and now it compiles

Michal Abramczyk

@EgonHugeist

Missing semicolon at the end of the line 1020 in file ZUpdateSqlEditor.pas

TZUpdateSQLEditForm.FormResize procedure (Sender: TObject);
Var i: Integer <------
begin
i: = PageControl.Height - 92;

Michal Abramczyk

@EgonHugeist Could you put a simple test that shows the error PByte and Win64 about which you write? I use the Windows7/64 Delphi XE2 and Lazarus in this distribution: http://www.pilotlogic.com/sitejoom/index.php/codetyphon (CodeTyphon current version 2.60) and I do not see this error. Michal Abramc...

@EgonHugeist Sorry but you have to go back to the previous version, or: {** Gets a stream from the specified columns. @param Buffer a row buffer. @param ColumnIndex an index of the column. } function TZRowAccessor.GetBlobObject(Buffer: PZRowBuffer; ColumnIndex: Integer): IZBlob; var BlobPtr: PPointe...

@EgonHugeist

In Delphi XE2:

{$IF Defined(POSIX)}
THandle = Cardinal;
{$IFEND}
{$IF Defined(MSWINDOWS)}
THandle = NativeUInt;
{$IFEND}

In Delphi 2006
THandle = LongWord;

Michal Abramczyk

@EgonHugeist Recent modifications for Delphi XE2 64-bits (mod_z7eh_r1274) Handle for Delphi in PlainLoader.pas should be of type THandle. It seems to me that the simplified GetBlobObject, SetBlobObject should work in fpc and Delphi XE2 32/64 bits. I add a minimal set of dpk. Compiled unity are store...

>oh that i don't know. Does your fix run without trouble on W64, W32, OSX? My version so your not on Delphi XE2 Win32 and Win64. >Yes this is right. That's why i added the {$IFDEF FPC} ... {$ELSE} .. {$ENDIF} around Not everywhere. >>Why does the testing branch was defective (nonsense) ZDbcCache.pas...

@EgonHugeist
{$IFDEF WIN64} mean the same in fpc and Delphi XE2.

>the packages tested from two users and they where lucky
Do they have tried in Delphi XE2 64-bit compilation and application usage?

Michal Abramczyk