Subject | TMemoField.AsString AccessViolation |
---|---|
Author | crazymenconnected |
Post date | 2010-01-10T23:52:02Z |
I'm getting an AC when I try to access a text blob field.
Whenever the code TMemoField.AsString is run an access violation is triggered!
(my actual code is below)
Does anyone, has experienced this same behaviour?
I think this bug was on 4.9.8 but I didn't even notice it, I was just upgrading to 4.9.9 and I stumbled upon it.
Jason, are you aware of this, will there be a fix soon? Or was this bug recently introduced?
Thanks for you time.
SQL
@
CREATE TABLE COMPANY (
ID BIGINT NOT NULL,
NAME VARCHAR(64) NOT NULL COLLATE PT_BR,
DESCRIPTION VARCHAR(256),
ADDRESS BLOB SUB_TYPE 1 SEGMENT SIZE 256 CHARACTER SET ISO8859_1,
PHONE CHAR(32) COLLATE PT_BR,
FAX CHAR(32) COLLATE PT_BR,
EMAIL VARCHAR(128) COLLATE PT_BR,
WEB VARCHAR(64) COLLATE PT_BR
);
@
Delphi 2009 Code
@
// Load the company information
if IBO_Connection.Connected then
begin
if GET_COMPANY_.Active then GET_COMPANY_.Active := false;
GET_COMPANY_.Active := true;
FCompanyInfo.id := GET_COMPANY_ID.AsLargeInt;
FCompanyInfo.name := GET_COMPANY_NAME.AsString;
FCompanyInfo.description := GET_COMPANY_DESCRIPTION.AsString;
FCompanyInfo.address := GET_COMPANY_ADDRESS.AsString;
FCompanyInfo.phone := GET_COMPANY_PHONE.AsString;
FCompanyInfo.fax := GET_COMPANY_FAX.AsString;
FCompanyInfo.email := GET_COMPANY_EMAIL.AsString;
FCompanyInfo.web := GET_COMPANY_WEB.AsString;
CFG_GET_COMPANY_.Active := false;
end;
@
Whenever the code TMemoField.AsString is run an access violation is triggered!
(my actual code is below)
Does anyone, has experienced this same behaviour?
I think this bug was on 4.9.8 but I didn't even notice it, I was just upgrading to 4.9.9 and I stumbled upon it.
Jason, are you aware of this, will there be a fix soon? Or was this bug recently introduced?
Thanks for you time.
SQL
@
CREATE TABLE COMPANY (
ID BIGINT NOT NULL,
NAME VARCHAR(64) NOT NULL COLLATE PT_BR,
DESCRIPTION VARCHAR(256),
ADDRESS BLOB SUB_TYPE 1 SEGMENT SIZE 256 CHARACTER SET ISO8859_1,
PHONE CHAR(32) COLLATE PT_BR,
FAX CHAR(32) COLLATE PT_BR,
EMAIL VARCHAR(128) COLLATE PT_BR,
WEB VARCHAR(64) COLLATE PT_BR
);
@
Delphi 2009 Code
@
// Load the company information
if IBO_Connection.Connected then
begin
if GET_COMPANY_.Active then GET_COMPANY_.Active := false;
GET_COMPANY_.Active := true;
FCompanyInfo.id := GET_COMPANY_ID.AsLargeInt;
FCompanyInfo.name := GET_COMPANY_NAME.AsString;
FCompanyInfo.description := GET_COMPANY_DESCRIPTION.AsString;
FCompanyInfo.address := GET_COMPANY_ADDRESS.AsString;
FCompanyInfo.phone := GET_COMPANY_PHONE.AsString;
FCompanyInfo.fax := GET_COMPANY_FAX.AsString;
FCompanyInfo.email := GET_COMPANY_EMAIL.AsString;
FCompanyInfo.web := GET_COMPANY_WEB.AsString;
CFG_GET_COMPANY_.Active := false;
end;
@