Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Добавление картинки в базу данных   Найти похожие ветки 

 
dream   (2004-11-30 14:30) [0]

Подскажите как запихать картинку в базу . ? Парадокс или acess
то совсем запарился уже :(


 
Александр Иванов ©   (2004-11-30 14:46) [1]

procedure TForm1.Button1Click(Sender: TObject);

var
 Stream1: TBlobStream;
 Stream2: TStream;
begin
 Stream1 := TBlobStream.Create(Table1Notes, bmRead);
 try
   ClientDataSet1.Edit;
   { here’s a different way to create a blob stream }
   Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName("Remarks"), bmReadWrite);
   try
     Stream2.CopyFrom(Stream1, Stream1.Size);
     ClientDataSet1.Post;
   finally
     Stream2.Free;
   end;

 finally
   Stream1.Free;
 end;
end;


 
dream   (2004-11-30 15:02) [2]

Спасибо


 
dream   (2004-12-01 09:35) [3]

что означает Table1Notes ? не могу понять что туда нужно вставить :(


 
Александр Иванов ©   (2004-12-01 09:45) [4]

Это поле, типа TBlobField. Добавляется в Field Editor"e.


 
Александр Иванов ©   (2004-12-01 09:46) [5]

Тип выберется автоматом.


 
dream   (2004-12-01 09:46) [6]

Делаю так :

var Stream: TBlobStream;
 fs:TFileStream;
begin

 if openpicturedialog1.execute then
  begin
ADOTable1.Edit;
Stream := TBlobStream.Create((ADOTable1.FieldByName("ImageSmall") as TBlobField),
                            bmReadWrite);
FS:=TFileStream.Create(openpicturedialog1.FileName,fmOpenRead);
Stream.CopyFrom(fs,fs.size);
Stream.Free;
fs.Free;
ADOTable1.Post;
 end;

При создании Stream  выдаёт ошибку : invalid class typecast


 
Александр Иванов ©   (2004-12-01 10:07) [7]

См [4]


 
dream   (2004-12-01 10:52) [8]

Спасибо , получилось !

Если можно ещё один вопрос : почему JPG не хочет сохраняться в базу ? работает только на BMP


 
sniknik ©   (2004-12-01 11:11) [9]

как это не хочет? в блоб можно хранить(и сохранять соответственно) любые данные.
а вот стандартные TDBImage работают только с BMP (вернее с другими я и не пытался его заставить работать ;), делай свою обработку для JPG-а.



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.035 c
3-1101336235
Константинов
2004-11-25 01:43
2004.12.26
Помогите с запросами


1-1102678554
Zilog
2004-12-10 14:35
2004.12.26
Как завершить работу потока принудительно, в ходе его работы?


14-1102063553
MrCorp1
2004-12-03 11:45
2004.12.26
.Net


14-1102416124
Ega23
2004-12-07 13:42
2004.12.26
О Московском Комсомольце


1-1102951597
AlexLine
2004-12-13 18:26
2004.12.26
Проблема с формой (мелькает панель зачач)