Zeoslib Portal

mariuszekpl

tkyr look there:
http://zeos.firmos.at/viewtopic.php?t=2130
I write simple application zeos+firebird+unicode

mariuszekpl

Today i update firebird part of zeos and add simple application with unicode support
testing\test\delphi2009\firebird-zeos\myTestFirebirdUnicode.exe

mariuszekpl

You should test your sql script with "EMS SQL MANAGER"

mariuszekpl

Invalid Request BLR at offset 300 bad parameter number - it is error from firebird, may be you have error in your SQL?

mariuszekpl

1)zip all (project, database and dll witch you use to connect)
2)use http://www.rapidshare.com/ to upload file
3) write url at http://zeos.firmos.at/

mariuszekpl

can you publish sample application ?
You don't have EXCEPTION MESAGE ?

mariuszekpl

We have two roads: 1) Use one common TZStringField for Unicode and Ansi strings (like IBX) or 2) User can select what he want , if he has data with unicode he should inform ZEOS about it , and now zeos use internal UNICODE , if we want ANSI zeos internal use ANSI In my opinion first way is better, w...

mariuszekpl

I can't understund why TstringField.GetAsString return ansistring
but we can't use TstringField if we want add unicode suport.

In new delphi string == widestring we don't need two types: TstringField and TWideStringField

We can use common type for all string field.

mariuszekpl

tkyr - can you publish some code and database with utf8 data ?
My version zeos support unicode in sqlite and postgresql. Firebird is next

http://91.121.81.145/zeos/
there you can find my sample application and my zeos 7 code

tkyr - publish sample application, + database + dll

mariuszekpl

Seems like GetMem allocates using blocks of 8 bytes + 4 bytes extra at start procedure TZTestSysUtilsCase.TestDebug; var temp:Pointer; begin CheckEquals(True, debug_get_memorydiff>0); CheckEquals(0, debug_get_memorydiff); GetMem(Temp,5); FreeMem(Temp,5); CheckEquals(0, debug_get_memorydiff); GetMem(...

mariuszekpl

AllocMemsize don't work in Delphi 2009 AllocMemSize: Integer deprecated; {Unsupported} New version: {$IFDEF DELPHI12_UP} function ZeosAllocMemsize(): integer; var mManager: TMemoryManagerState; Bytes: Integer; I: Integer; begin Bytes :=0; GetMemoryManagerState(mManager); for I := 0 to High(mManager....

mariuszekpl

I publish my version ZEOS and sample application to test unicode http://91.121.81.145/zeos/ Code is based on SVN version zeos. My sample application are in directory: testing\test\delphi2009\TestUnicode.exe - sqlite and postgresql testing\test\delphi2009\firebird-zeos\myTestFirebirdUnicode.exe - fir...

mariuszekpl

Is

Code: Select all

    ErrorMessage := Trim(StrPas(PlainDriver.GetErrorMessage(Handle)))

Should be

Code: Select all

 {$IFDEF ZEOS_FULL_UNICODE}
    ErrorMessage := Trim(UTF8ToUnicodeString(StrPas(PlainDriver.GetErrorMessage(Handle))))
 {$ELSE}
    ErrorMessage := Trim(StrPas(PlainDriver.GetErrorMessage(Handle)))
 {$ENDIF}

mariuszekpl

Error in generate SQL for SET CLIENT_ENCODING TO IS procedure TZPostgreSQLConnection.Open; var LogMessage: string; QueryHandle: PZPostgreSQLResult; SQL: PAnsiChar; begin if not Closed then Exit; LogMessage := Format('CONNECT TO "%s" AS USER "%s"', [Database, User]); { Connect to ...

mariuszekpl

Is procedure TZPostgreSQLResultSet.Open; ... ColumnLabel := StrPas(FPlainDriver.GetFieldName(FQueryHandle, I)); Should be procedure TZPostgreSQLResultSet.Open; ... {$IFDEF ZEOS_FULL_UNICODE} ColumnLabel := UTF8ToUnicodeString(StrPas(FPlainDriver.GetFieldName(FQueryHandle, I))); {$ELSE} ColumnLabel :...

Zeoslib Portal

Search found 54 matches

[bug_fixed] TZTestSysUtilsCase.TestDebug

[bug_fixed] debug_get_memorydiff

My code and sample application

[patch_done] CheckPostgreSQLError (add support unicode)

[bug_fixed] BUG in TZPostgreSQLConnection.Open;

[patch_done] TZPostgreSQLResultSet.Open;