> this works fine ! :)))))))
>
> DataSet.CommandType := ctStoredProc;
> DataSet.CommandText := 'SP_DO_USER_PICTURE';
> DataSet.Params.ParamByName('fk_user_id').AsInteger := CurrentUserID;
>
> DataSet.Params.ParamByName('user_picture').LoadFromFile(GetPicture

Dlg.FileName,

> ftGraphic);
> DataSet.ExecSQL;
> DataSet.Close;
>

sure but if you want you can bring things in from the clipboard too - it's
more convenient for the user.
Alan

if (ClipBoard.HasFormat(CF_BITMAP) or ClipBoard.HasFormat(CF_METAFILEPICT)
or ClipBoard.HasFormat(CF_PICTURE)) then
IB_Image1.Picture.Assign(ClipBoard)
else
MessageDlg('There is no graphic image on the Clipboard', mtInformation,
[mbOK],0);