Ver Mensaje Individual
  #11  
Antiguo 24-10-2012
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 23
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Kurono,

Revisa este fragmento de código del link : http://delphi.about.com/od/database/a/record2blob.htm
Código Delphi [-]
var
    User : TUser;
    blobF : TBlobField;
    bs : TStream;
 begin
    User.Name := edName.Text;
    User.NumberOfQuestions := StrToInt(edNOQ.Text) ;
    User.CanAsk := chkCanAsk.Checked;
 
    myTable.Insert;
 
    blobF := myTable.FieldByName('data') as TBlobField;
    bs := myTable.CreateBlobStream(blobF, bmWrite) ;
    try
      bs.Write(User,SizeOf(User)) ;
    finally
      bs.Free;
    end;
 end;
¿Ves como definen el campo blobF como un TBlobField antes de usarlo?. Creo que también es válido definirlo así:
Código Delphi [-]
bs := myTable.CreateBlobStream(myTable.FieldByName('data') as TBlobField, bmWrite);
Espero sea útil

Nelson

Última edición por nlsgarcia fecha: 24-10-2012 a las 05:22:26.
Responder Con Cita