Текущий архив: 2003.02.03;
Скачать: CL | DM;
Вниз
Как пихнуть файл типа Tbitmap в record? Найти похожие ветки
← →
----------------- (2003-01-18 13:05) [0]
← →
Думкин © (2003-01-18 13:13) [1]что-то пороху мало - пойду я домой - хотя тут скоро весело будет.
← →
gsu © (2003-01-18 13:38) [2]картинку глубоко и надолго можно пихнуть в blob поле, загрузив ее из потока
← →
kaif © (2003-01-18 14:17) [3]type
TBitmapRecord = record
Bitmap: TBitmap
end;
var
MyBitmapRecord: TBitmapRecord;
procedure LoadBitmapToBitmapRecord(const FileName: string);
begin
MyBitmapRecord.Bitmap.LoadFromFile(FileName);
end;
initialization
MyBitmapRecord.Bitmap := TBitmap.Create;
finalization
MyBitmapRecord.Bimap.Free;
end;
:)))))))))
Только зачем все это нужно пихать в record?
Страницы: 1 вся ветка
Текущий архив: 2003.02.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
