Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.006 c
1-1775
delta
2002-12-20 10:00
2003.01.02
Ситуативное изменение интерфейса програмы


1-1777
Переяслов Григорий
2002-12-20 10:54
2003.01.02
Обработка клавиш на форме


3-1749
Anatoliy
2002-12-11 13:53
2003.01.02
Как обновить данные из связанной таблицы в Access?


4-1932
StAL
2002-11-06 20:24
2003.01.02
Hook & Delphi7


1-1769
Checist [root]
2002-12-20 10:00
2003.01.02
DbGrid задолбал !