Форум: "Основная";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];
Вниз
image in file Найти похожие ветки
← →
race1 (2002-12-20 08:33) [0]как сохранить картинку в файл, используя свой тип, т.е. есть тип
rec = record
value1: integer;
value2: byte;
bit: TBitmap;
img: TImage;
end;
в этом случае картинка не сохраняется. а как её сохранить?
← →
zavdim (2002-12-20 08:38) [1]а как ты ее сохраняешь? - код надо.
И какую картинку - bit,img?
← →
MBo (2002-12-20 08:38) [2]так сохраняется указатель на объект.
Используй TBitmap.SaveToStream и TFileStream
← →
Lenchik (2002-12-20 15:47) [3]В Streamах не очень разбираюсь, но у меня вроде бы работал фокус типа того что делаешь файл оф рекорд и заполняешь его как в обычном Паскале
← →
F1 (2002-12-20 15:55) [4]>Lenchik (20.12.02 15:47)
:))) Размечтался!
← →
Севостьянов Игорь (2002-12-20 17:15) [5]Вот тебе кусочек из проги - подставь свое и будет тебе счастье - переписывать под твой Rec некогда...
procedure SaveList(const AFileName : String; AItems : TList; const AItemSize : Integer);
var
I : Integer;
LFile : TFileStream;
begin
LFile := TFileStream.Create(AFileName, fmOpenWrite or fmCreate);
try
for i := 0 to AItems.Count - 1 do
LFile.Write(AItems[i]^, AItemSize);
finally
LFile.Free;
end;
end;
procedure LoadList(const AFileName : String; AItems : TList; const AItemSize : Integer);
var
PItem,
Buffer : Pointer;
LFile : TFileStream;
begin
LFile := TFileStream.Create(AFileName, fmOpenRead);
try
if LFile.Size > 0 then
begin
GetMem(Buffer, AItemSize);
LFile.Seek(0, soFromBeginning);
while LFile.Position < LFile.Size do
if LFile.Read(Buffer^, AItemSize) = AItemSize then
begin
GetMem(PItem, AItemSize);
Move(Buffer^, PItem^, AItemSize);
AItems.Add(PItem);
end;
end;
finally
LFile.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c
