Insertar en Campos tipo Blob
 

Hola amigos foreros, mi pregunta es porque quiesiera saber cómo le hago para almacenar datos en un campo de tipo blob sin tener que utilizar esta instrucción:

Código Delphi [-]
with fDatos do
    begin
      qContratos.Open;
      qContratos.Append;
      qContratosCONNUMERO.AsString:= connumero.Text;
      try
        qContratosCONSIGUE.AsInteger := consigue.ItemIndex;
        qContratosCONEPSCODIGO.AsString := conepscodigo.Text;
        qContratosCONAFILIADOS.AsString := conafiliados.Text;
        qContratosCONUPC.AsString := conupc.Text;
        qContratosCONFORMAPAGO.AsString := conformapago.Text;
        qContratosCONINICIO.AsDateTime := coninicio.Date;
        qContratosCONFIN.AsDateTime := confin.Date;
        qContratosCONOBJETO.AsString:= conobjeto.Lines.Text;
        TBlobField(qContratosCONARCHIVO).LoadFromFile(conarchivo.FileName);
        qContratosCONEXTENSION.AsString:= ExtractFileExt(conarchivo.FileName);
        qContratos.Post;
      except
        MessageDlg('Informex Archivador','Por favor cambie el nombre del '
        +'archivo quite las TILDES y las EÑES.', mtError, [mbOK], 0);
        Exit;
      end;
    end;
    fDatos.Confirmar()

sino una del tipo

Código Delphi [-]
fDatos.EjecutarSQL('update or insert into medtable values('''+medusuario.Text
  +''','''+medclave.Text+''','''+mednombre.Text+''','''+medrm.Text+''','''
  +meddireccion.Text+''','''+medtelefonos.Text+''','''+medcedula.Text
  +''','''+medprofesion.Text+''') matching(medusuario)')

Estoy utilizando Firebird 2.1

de antemano mil gracias por vuestro tiempo

Gustavo Cruz

Hola Gustavo. Quisiera saber que componente deseas utilizar para así pasarte un código más personalizado.

Saludos,
Chris