| Автор
| Сообщение |
|
|
|
Цитата |
|
Плиз, хэлп.
Надобно записать в файл массив из неск-х бмпшек.
Делаю так:
| Код: |
...
sz:=0;
rsz:=0;
for j:=1 to 9 do begin
abmp[j-1]:=TBitmap.Create;
abmp[j-1].LoadFromFile('src_word\image00'+IntToStr(j)+'.bmp');
AssignFile(Fst,'src_word\image00'+IntToStr(j)+'.bmp');
reset(Fst);
Inc(sz,filesize(Fst)*128);
CloseFile(Fst);
end;
Inc(sz,sizeof(abmp));
Storage:=CreateFile('Storage.dat',GENERIC_READ+GENERIC_WRITE,0,Nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
WriteFile(Storage,abmp,sz,rsz,nil);
...
|
В результате в файл пишется 0 байт. Если размер указывать меньше 1500 байт то пишется.
лукинг форвард 4 ur реплайс. |
|
| В начало |
|
 |
|
|
 |
 NikotiN
Розовый мамонт
Возраст: 26
Знак зодиака: 
Зарегистрирован: 18.03.2005
Сообщения: 2137
|
|
|
Цитата |
|
TFileStream надо бы для простоты.
а писать надо не структуру, а данные о точках. |
|
| В начало |
|
|
|
