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

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.008 c