Don't use this for a batch insert routine. It will be slow and use up a lot
of bandwidth unnecessarily.

Do you inserts all through a TIB_DSQL with an INSERT statement that you
write. Loop through all your inserts and then refresh your dataset just once
at the end of it.

Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com

----- Original Message -----
From: <stahlberger@...>
To: <IBObjects@egroups.com>
Sent: Tuesday, January 23, 2001 9:52 AM
Subject: Re: [IBO] Inserting blobs


> Thijs,
> this works (as far as i know):
>
> first make your column assignable:
>
> procedure TFormPicture.FormActivate(Sender: TObject);
> begin
> MyPictureColumn := TIB_Column(qryPic.FieldByName( 'PData'));
> if not qryPic.prepared then qryPic.prepare;
> qryPic.open;
> end;
>
>
> try
> qryPic.insert;
> qryPic.FieldByName('PTitle').AsString := filename;
> ImageEn1.LoadFromFile(filename);
> MyPictureColumn.Assign(imageen1.Bitmap); // <---- assign
> qryPic.Post;
> qryPic.refreshall;
> filename:='';
> Application.ProcessMessages;
> finally
> btnLoad.Enabled := true;
> btnCancel.Caption := 'Close';
> end;
> qryPic.refresh;
>
> Greetings Christian
>
> ----- Original Message -----
> From: ing. Thijs Kuperus <thijs@...>
> To: <IBObjects@egroups.com>
> Sent: Tuesday, January 23, 2001 5:20 PM
> Subject: [IBO] Inserting blobs
>
>
> > Hi there,
> >
> > I was wondering if anybody knows a quick way of inserting blobs into a
> > table.
> >
> > I noticed it's not possible to insert the blobs using a normal
> > INSERT INTO query.. Something bout a blob cursor that's missing.. So my
> work
> > around is to use the append on a IBOQuery... but it makes something like
> > batch inserts a hassle...
> >
> > Anyone?
> >
> > Thijs
> >
> >
> >
> >
>
>
>
>