Using the Borland Example for dBase to add a Blob field with the
sub-field type of fldstDBSOLEOBJ or fldstTYPEDBINARY I get an error
message "Invalid Field Type". The sample code from Borland works fine
with all other Field Types.

  If I use the Table.FieldDefs.CreateTable and have the fields added
to the FieldDefs (ftDBaseOle and ftTypedBinary) before the call to
createtable the table create works fine and the fields appear in the
new table. The problem is I have to add these fields to an existing
table not a new one.

 Does anyone know how to use the DbiDoRestructure to add these two
field types?  I'm using delphi 3.

  fldDBMEMO          = $203;            { Memo          (blob) }
  fldDBOLEBLOB       = $208;            { OLE object    (blob) }
  fldDBBINARY        = $209;            { Binary data   (blob) }

Do not use fldBLOB subtypes:
{ fldBLOB subtypes }

  fldstMEMO          = 22;              { Text Memo }
  fldstBINARY        = 23;              { Binary data }
  fldstFMTMEMO       = 24;              { Formatted Text }
  fldstOLEOBJ        = 25;              { OLE object (Paradox) }
  fldstGRAPHIC       = 26;              { Graphics object }
  fldstDBSOLEOBJ     = 27;              { dBASE OLE object }
  fldstTYPEDBINARY   = 28;              { Typed Binary data }

, use:
  afldDesc[0].iFldType := fldDBMEMO;
  afldDesc[0].iFldType := fldDBOLEBLOB;
  afldDesc[0].iFldType := fldDBBINARY;

Palo

procedure TfrmModifyTable.MakeField(aTable : TTable;
                                    aName : dbiName;
                                    aType, aSubType,
                                    aLength : Word; aPercision :Byte);
var
 aFieldRec : ChangeRec;
begin
  aFieldRec.szName := aName;
  aFieldRec.iType := aType;
  aFieldRec.iSubType := aSubType;
  aFieldRec.iLength := aLength;
  aFieldRec.iPrecision := aPercision;
  aTable.Open;
{ use the AddField Example from Borland }
  AddField(aTable, aFieldRec);
end;

{ memo field works all of the time }
MakeField(dbDestination, strTemp, fldBLOB, fldstMEMO, 0, 0);

{ if no previous OLE or Binary field in the table this does not work }

MakeField(dbDestination, strTemp, fldBLOB, fldstDBSOLEOBJ, 0, 0);
MakeField(dbDestination, strTemp, fldBLOB, fldstTYPEDBINARY, 0, 0);

I tried your suggestion of of using other fld's... but still get same
error message?

 afldDesc[0].iFldType := fldDBMEMO;
 afldDesc[0].iFldType := fldDBOLEBLOB;
 afldDesc[0].iFldType := fldDBBINARY;

 If I already have an OLE or Binary field  in the table my original
MakeField works fine.

Any ideas of what I'm missing?

Palo