Wed, 18 Jun 1902 08:00:00 GMT

BLOB-field bigger then 32K in a Sybase SQL Anywhere database

I'm building an application where I want to store bitmaps in a blob-field
of an Sybase database. I know blob-fields of more then 32K should be
inserted by deviding them into 32K pieces. My problem is I don't know
exactly how that can be done. I have tried using a blobstream but I keep
getting a DBEgineError on the post of a record as in the case I was not
using a blobstream. The DBEgineError is 'Invalid BLOB length'.

I have included a bit of code that I think is crucial for the problem. The
application consists of a DBGrid, a DBNavigator, a DBImage and a Button.
When the user clicks on a blob-field the DBImage shows the content of the
blob-field. When the user presses the button he/she can load a new bitmap
to be inserted in the blob-field or to replace the content of the
blobfield.

procedure TForm1.Button2Click(Sender: TObject);
var FileStream: TFilestream;
    BlobStream: TBlobstream;
begin
  If opendialog1.Execute then begin
    Filestream:=TFilestream.Create(opendialog1.filename,fmopenread);
    Blobstream:=TBlobstream.Create(DBGrid1.SelectedField as TBlobfield,
bmReadWrite);
    Blobstream.Seek(0, soFromBeginning);
    Blobstream.Truncate;
    Blobstream.CopyFrom(Filestream,Filestream.size);
    Filestream.Free;
    Blobstream.Free;
    DBImage1.Picture.Loadfromfile(opendialog1.filename)
  end
end;

Does anyone has an answer ?? I know the above code is not very nice but
it is just some trial code in order to get the job done.

May-be it is a typical Sybase problem ? Any suggestion, comment is
welcome.

Greatings,
Dirk Vanderbist