Guardar archivos en sql2000

[[nlsgarcia]]

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