rar загрузка в blob поля

[reihtmonbern]

Здравствуйте Народ подскажите пожалуйста код который мог бы загружать в блоб поля рар архивы и выгружать ( ну сохранять в директорию) ???

[Gulik]

А актуально ли это? Зачем что-то лишнее сувать в БД. Руки бы оторвал...

А вообще это делается так... через поток...

procedure TForm1.Button1Click(Sender: TObject) ;
   var
      Stream : TMemoryStream ;
begin
   Stream := TMemoryStream.Create ;
   ADOTable1.Edit ;
   Stream.LoadFromFile('cheet.bmp') ;
   TBlobField(ADOTable1.FieldByName('img')).LoadFromStream(Stream) ;
   ADOTable1.Post ;
   Stream.Free ;
end ;

или так...

procedure TForm1.Button2Click(Sender: TObject) ;
begin
      ADOTable1.Append ;
      TBlobField(ADOTable1.FieldByName('img')).LoadFromFile('about.bmp') ;
      ADOTable1.Post ;
end;

а так можно сохранить...

procedure TForm1.Button3Click(Sender: TObject) ;
begin
      TBlobField(ADOTable1.FieldByName('img')).SaveToFile('about.bmp') ;
end;