Zeoslib Portal

SVN patch attachment New XE8 Packages Changes to ZEOS.INC Change to compile error for ZVariant +++ src/core/ZVariant.pas (working copy) @@ -2492,7 +2492,13 @@ vtAnsiString: Result.VUnicodeString := ZWideString(Value.VAnsiString); vtUTF8String: + begin + {$IFDEF VER290} + Result.VUnicodeString := ZRa...

My testing would show EgonHugeist has fixed the issue with commit 3158. Nice work.

https://sourceforge.net/p/zeoslib/tickets/77/

I use something like this, ZQuery, MySQL OnBeforePost var OldValue : variant; begin if Self.State in [dsEdit] then begin if not FieldByName('taskstatusid').IsNull then begin OldValue := FieldByName('taskstatusid').OldValue; if VarIsOrdinal(OldValue) then begin if FieldByName('taskstatusid').AsIntege...

Could you clarify further? How to use NewValue and OldValue? http://stackoverflow.com/questions/19710472/delphi-how-to-get-datasets-oldvalue-and-newvalue-for-blob-field-as-streams function FieldChanged(DataSet: TDataSet; FieldName: string): Boolean; var fld: TField; begin fld := DataSet.FieldByName(...

Can confirm this is fixed in latest SVN. Nice work EgonHugeist

This can be easily replicated in the zeoslib test tables. Add some rows of text in the b_text field in table blob_values. I added 62 rows containing the text from lgpl.txt Add a ZConnection, ZQuery, Datasource and link a DBGrid ZQuery.SQL.Clear; ZQuery.SQL.Add('SELECT * FROM blob_values'); ZQuery.Op...

Sorry ignore that, it still has access violations. ZDbcCache.pas function TZRowAccessor.GetRawByteString(Const ColumnIndex: Integer; var IsNull: Boolean): RawByteString; stAsciiStream, stUnicodeStream, stBinaryStream: begin try TempBlob := GetBlobObject(FBuffer, ColumnIndex); if (TempBlob <> nil) an...

Hi, {$DEFINE WITH_WIDEMEMO} // Have WIDEMEMO, For Delphi we turn these off if not applicable Could this perhaps be explained further? I have found issues with large VARCHAR fields or TEXT fields. By commenting this out problems disappear. Loading strings from streams appears to cause the issue. Tris...

stLongWord can be autoinc and will be if UNSIGNED integer. (MySQL 5.6) Maybe it is different in other versions. src\dbc\ZDbcMySqlResultSet.pas constructor TZMySQLCachedResolver.Create(PlainDriver: IZMySQLPlainDriver; Handle: PZMySQLConnect; Statement: IZMysqlStatement; Metadata: IZResultSetMetadata)...

Ok, well I probably should of done a simple test like you did. It now works but I still think an issue exists. If you change your ID to UNSIGNED ALTER TABLE `tautoinc` CHANGE COLUMN `id1` `id1` INT(11) UNSIGNED NOT NULL AUTO_INCREMENT FIRST; It will no longer work. I actually did not use UNSIGNED on...

Sorry if this has been asked but I search high and low and found nothing for ZeosLib 7.2 In past versions this would work for an AutoInc field, now it returns NULL and you need to call a Refresh to show the new ID's TZQuery.Insert; // set your fields TZQuery.Post; ID := TZQuery.FieldByName('myid').A...

I used something like the following; that I call before any of my TZQuery open. I cheat in that I have another object wrapping around my TZQuery so I don't need to remember to do it it happens automatically. procedure CheckConnection; function ValidateConnection: boolean; begin Result := False; if I...

Hi, I have not migrate from ZEOSLIB_TRUNK_REV247 (it is a good year old now I think) as everytime I have migrated I have had issues with ftAutoInc fields. I have not really had time until now to sit down and workout if it was just my applications. I have found the following: In my applications I lik...

I have updated to ZEOSLIB_TRUNK_REV187 and have looked at the code in TESTING and I still have the same issue.

Tristan

That could well be it, I thought I had latest, but now I see I don't I am using

ZEOSLIB - 20061011 Testing branch(rev 113)

I will try, thanks for that.