Subject Re: [IBO] TMemoField.AsString AccessViolation
Author crazymenconnected
Hi Jason,
Were you able to reproduce the bug with the code I sent you?

Cheers

Luis Semedo Duarte
CrazyMenConnected


--- In IBObjects@yahoogroups.com, "Jason Wharton" <supportlist@...> wrote:
>
> I'm not aware of this. Please send me a sample application to look at.
>
> Thanks,
> Jason Wharton
>
> ----- Original Message -----
> From: "crazymenconnected" <CrazyMenConnected@...>
> To: <IBObjects@yahoogroups.com>
> Sent: Sunday, January 10, 2010 4:52 PM
> Subject: [IBO] TMemoField.AsString AccessViolation
>
>
> > 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;
> > @
> >
>