If I try to save any data in a CLOB field with the Session set as Remote. The data is not saved..
But if I use a Local Session it saves fine..

Michael Thompson <cross7@roadrunner.com> wrote:

If I try to save any data in a CLOB field with the Session set as Remote. The data is not saved..
But if I use a Local Session it saves fine..

I forgot to mention version 1 b5

Michael,

<< If I try to save any data in a CLOB field with the Session set as Remote.
The data is not saved.. But if I use a Local Session it saves fine.. >>

Got it.  The workaround is to make sure that you modify at least one other
non-BLOB column, and that should allow the update to go through.   The bug
is that the modified flag is not getting set for the BLOB column during the
transfer to the server.

--
Tim Young
Elevate Software
www.elevatesoft.com

Got it.  The workaround is to make sure that you modify at least one other
non-BLOB column, and that should allow the update to go through.   The bug
is that the modified flag is not getting set for the BLOB column during the
transfer to the server.

--
Tim Young
Elevate Software
www.elevatesoft.com

Tim,
This does not only happen when editing a Clob field. if I insert a new record with many fields the
Clob field is the only one not written.

Michael,

<< This does not only happen when editing a Clob field. if I insert a new
record with many fields the Clob field is the only one not written. >>

I understand - it's all caused by the lack of the same modification flag.

--
Tim Young
Elevate Software
www.elevatesoft.com

"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote:

Michael,

<< This does not only happen when editing a Clob field. if I insert a new
record with many fields the Clob field is the only one not written. >>

I understand - it's all caused by the lack of the same modification flag.

--
Tim Young
Elevate Software
www.elevatesoft.com

I have the code, is there a fix I can make in the code because I have a customer who is complaining or should I switch back to 1.04b4

Michael,

<< I have the code, is there a fix I can make in the code because I have a
customer who is complaining or should I switch back to 1.04b4 >>

In the edbrow.pas unit, remove this line:

procedure TEDBStaticRowValue.LoadBlobStream;
var
  TempNull: Boolean;
  TempLength: Integer;
  TempBlockNumber: Integer;
begin
  if (not FBlobStreamLoaded) and
     (DataType in [TYPE_CHAR,TYPE_BYTE,TYPE_BLOB]) then
     begin
     case DataType of
        TYPE_CHAR,TYPE_BYTE:
           begin
           with FRowValues.RawStream do
              begin
              Position:=FRowBindOffset;
              TempNull:=(not ReadBoolean);
              if (SubType=SUBTYPE_UNKNOWN) then
                 TempLength:=ReadWord
              else
                 TempLength:=Column.Length;
              end;
           if (not TempNull) then
              begin
              with FBlobStream do
                 begin
                 Loading:=True;
                 try
                    if (DataType=TYPE_CHAR) then
                       Size:=(TempLength*SizeOf(TEDBChar))
                    else
                       Size:=TempLength;
                    Position:=0;
                    CopyFromStream(FRowValues.RawStream);
                 finally
                    Loading:=False;
                 end;
                 end;
              end
           else
              FBlobStream.Size:=0;
           end;
        TYPE_BLOB:
           begin
           with FRowValues.RawStream do
              begin
              Position:=FRowBindOffset;
              TempNull:=(not ReadBoolean);
              TempBlockNumber:=ReadInteger;
              end;
           if (not TempNull) and (TempBlockNumber <> 0) then
              begin
              FBlobStream.Loading:=True;
              try
                 FRowValues.ReadBlobStream(TempBlockNumber,FBlobStream,
                                           (Column.BlobCompression > 0));
              finally
                 FBlobStream.Loading:=False;
              end;
              end
           else
              FBlobStream.Size:=0;
           end;
        end;
     FBlobStreamLoaded:=True;
     Modified:=False;  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  REMOVE
     FBlobStream.Position:=0;
     end;
end;

Please note, however, that this has not been regression-tested yet and so I
can't make any warranties about it breaking something else.

--
Tim Young
Elevate Software
www.elevatesoft.com

"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote:

Michael,

<< I have the code, is there a fix I can make in the code because I have a
customer who is complaining or should I switch back to 1.04b4 >>

In the edbrow.pas unit, remove this line:

Please note, however, that this has not been regression-tested yet and so I
can't make any warranties about it breaking something else.

Thanks,

I will test it. I appreciate the quick response.

Michael Thompson <cross7@roadrunner.com> wrote:

"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote:

Michael,

In the edbrow.pas unit, remove this line:

Please note, however, that this has not been regression-tested yet and so I
can't make any warranties about it breaking something else.

Tim,

I made the change to the code and  recompiled, reinstalled.

I have still got the same problem CLOB Fields are not getting saved.

I'm using Delphi2007 on Windows Vista if that make any difference.

I have checked my bpls and dcus to make sure none of the old ones were lingering somewhere in the path
but to no avail.

Michael,


<< I made the change to the code and  recompiled, reinstalled.

I have still got the same problem CLOB Fields are not getting saved.

I'm using Delphi2007 on Windows Vista if that make any difference.

I have checked my bpls and dcus to make sure none of the old ones were
lingering somewhere in the path but to no avail. >>

I'm not sure what else to tell you - that's definitely the fix and I've
manually tested it here several times to be sure.

--
Tim Young
Elevate Software
www.elevatesoft.com