Главная страница
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.008 c
14-1887
SemFLY
2002-12-13 01:06
2003.01.02
Помогите найти пример работы с TIdIRCServer (INDY)...


1-1802
feniks
2002-12-20 13:08
2003.01.02
существование обьекта


1-1779
Julya
2002-12-18 11:53
2003.01.02
Как правильно коннектиться к ExcelApplication??


3-1746
SergeySubbotin
2002-12-11 16:06
2003.01.02
Работа с DataSet


14-1893
MAN-IN-RED
2002-12-13 19:57
2003.01.02
Help!