Советы по Delphi


Загрузка изображений в Blob-поля - часть 2


/p>

Третий способ для копирования содержимого объекта типа TBitmap в свойство Picture компонента TDBImage использует метод Assign. Объект типа TBitmap может быть как свойством Bitmap свойства-объекта Picture компонента TImage, так и отдельного объекта TBitmap. Как и в методе, копирующем данные из буфера обмена в компонент TDBImage, данные изображения компонента TDBImage сохраняются в BLOB-поле после успешного сохранения записи.

Ниже приведен пример, использующий метод Assign. В нашем случае используется отдельный объект TBitmap. Для помещения изображения в компонент TBitmap был вызван его метод LoadFromFile.

procedure TForm1.Button3Click(Sender: TObject);varB: TBitmap;beginB := TBitmap.Create;tryB.LoadFromFile('c:\delphi\images\splashh\16color\athena.bmp');DBImage1.Picture.Assign(B);finallyB.Free;end;end;

[000538]




Начало  Назад  Вперед



Книжный магазин