string, TMemoryStream, TBitmap и я

[xrob]

всем привет...
мне сейчас грустно скучно и одиноко, а все почему?
потому что у меня ничего не получается!
я вот думал, сейчас приду домой и сделаю что-нибудь
большое чистое и светлое,а хрен там!
была идея сделать битмап, который будет загружать свою картинку из файла,
именно из файла, а не сам файл как картинку.
т.е. куча картинок свалена в файл, а битмап выцепляет одну из них.
план был такой:
1. нужный кусок файла выцепляется в строку
2. строка превращается в stream
3. bitmap.LoadFromStream

Кроме всего прочего я столкнулся вот еще с какой проблемой:

assignfile(test,'c:/2.bmp');
reset(test);
assignfile(test2,'c:/22.bmp');
rewrite(test2);

d:=FileSize(test);

str:='';

for i:=0 to d-1 do
begin
read(test,a);
str:=str+a;
end;

for i:=0 to d-1 do
begin
a:=str[i];
write(test2,a);
end;

все файлы of char.

если разум мне не изменяет,
этот код должен прочитать весь файл в строку,
а потом эту строку переписать в новый файл,
т.е. по-сути скопировать файл.
но получается хрень =((

поэтому у меня к вам собственно три вопроса:
1. какого хрена, ой, извините, почему так происходит?
2. как строку запихнуть в TMemoryStream?
3. что таке buffer???
в контексте TMemoryStream, только и слышно, buffer! buffer! buffer!
а что это такое толком нигде и не написано =(
что за тип данных?
function TMemoryStream.Write(const Buffer; Count: Longint): Longint;

чует мое сердце, что на форуме есть темы по этим вопросам,
но мне правда, очень впадлу искать...
и вообще я уже спать хочу...

может кто-нибудь добрый разъяснит мне эти вопросы,
ну так в порядке бла-бла-бла?
поэтому и тему создаю в соответствующем разделе,
не убивайте меня, я хороший =)


p.s.
кстати, написал все это в стороннем редакторе, перечитал и
допер почему глюки с переписыванием файла =)
str[i]...
for i:=0...
str[0]... !!!
нету str[0]! в стринге символы с 1 идут...

[the_deer_one]

xrob

была идея сделать битмап, который будет загружать свою картинку из файла, именно из файла, а не сам файл как картинку.

Зачем?

Не знаю в тему ли, но tar создаёт архивы без сжатия.
http://www.gnu.org/software/tar/

[xrob]

э, не, спасибо =)
кучку файлов в один свалить я и сам могу...
я же описал в чем проблема, проблема в том, что как string в bitmap засунуть.
а по поводу зачем...
да все за тем же =)
вы возможно уже заметили что у меня мания все с нуля делать?
ну вот, я просто хочу запихать файлы с картинками в файл программы.
только не надо мне рассказывать про ресурсы =)
я сделаю свою систему ресурсов - нужные файлы
тупо дописываются в файл с прогой,
и читаются прямо оттуда во время выполнения.

[MaTBeu]

только не надо мне рассказывать про ресурсы =)
я сделаю свою систему ресурсов - нужные файлы
тупо дописываются в файл с прогой,
и читаются прямо оттуда во время выполнения.

А как по-вашему работают ресурсы?

[xrob]

дададададададда! именно так они и работают, я знаю! =)
но я не хочу связываться со стандартными средствами создания ресурсов.
просто не хочу и все.
и вообще я хочу писать что-то типа
Bitmap.LoadFromXrResousre('myImag') ;

[veniside]

var
  ms: TMemoryStream;
  fs: TFileStream;
begin
  ms := TMemoryStream.Create();
  fs := TFileStream.Create('myfile.dat');
  try
    //
    fs.Seek(1234);                       // offset to bitmap
    //
    ms.CopyFrom(fs, 199999);             // size of bitmap
    //
    Image1.Picture.Bitmap.LoadFromStream(ms);
  finally
    FreeAndNil(fs);
    FreeAndNil(ms);
  end;
end;