Insertar en Campos tipo Blob

[GustavoCruz]

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

[[Chris]]

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

Saludos,
Chris