Сохранить картинку и текст в одном файле

[856100]

Как такое реализовать (хотя б алгоритм)?

[Пепел Феникса]

можно задачу раскрыть?
просто картинка и текст в файле(открываете потом вы своей прогой) или нужно чтоб в файл текст добавить(можно открыть картинку спокойно как обычно)

[856100]

Текст и картинку открывать своей прогой.

[Пепел Феникса]

TFileStream.
пишете в том порядке в каком хотите(сначало например текст...затем файл картинки)в один файл...можно вообще zlib подключить

[856100]

А пример можно? (с TFileStream не доводилось работать)

[Пепел Феникса]

чуть позже скину

[856100]

Хорошо, спасибо!!!

[spamer]

Народ, новую тему создавать не стал, решил написать тут.
Та же самая проблема. Есть структура типа

Type
TMyStruct = record
  Name: String[30];
  BM : TBitmap;
end;

Мене надо эту структуру записать в файл *.dat
Пробовал вот так:

var
  Pic : TMyStruct;
  Stream: TFileStream;

procedure TForm1.Button1Click(Sender: TObject);
begin
Stream := TFileStream.Create('myfile.dat', fmOpenWrite);
Pic.BM := TBitmap.Create;

Pic.BM.LoadFromFile('123.bmp');
Pic.Name := 'Имя';

Stream.WriteBuffer(Pic, SIZEOF(TMyStruct));
//Pic.BM.SaveToStream(Stream);
Stream.Free;
Pic.BM.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Stream := TFileStream.Create('myfile.dat', fmOpenRead);
Pic.BM := TBitmap.Create;

Stream.ReadBuffer(Pic, sizeof(TMyStruct));

Image1.Canvas.Draw(0,0,Pic.BM);
Caption :=  Pic.Name;
Stream.Free;
Pic.BM.Free;
end;

Так вот, читаю я только вот это Caption := Pic.Name; , а картинка не выводится. Кто знает как это можно переделать?

[Пепел Феникса]

эхх...такую структуру просто так не пишут...вот код...держи:

Type
TMyStruct = record
  Name: String;
  BM : TBitmap;
end;

------------------

var
  Pic : TMyStruct;
  Stream: TFileStream;

procedure TForm1.FormCreate(Sender: TObject);
begin
Stream := TFileStream.Create('myfile.dat', fmOpenReadWrite);
Pic.BM := TBitmap.Create
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Pic.BM.LoadFromFile('pic10.bmp');
Pic.Name:='Имя';
i:=Length(Pic.Name);
Stream.WriteBuffer(i,4);
Stream.WriteBuffer(Pic.Name[1],i);
Pic.BM.SaveToStream(Stream);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
Stream.ReadBuffer(i,4);
SetLength(Pic.Name,i);
Stream.ReadBuffer(Pic.Name[1],i);
Pic.BM.LoadFromStream(Stream);
Image1.Picture.Bitmap.Assign(Pic.BM);
Caption:= Pic.Name;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Stream.Free;
Pic.BM.Free;
end;

вроде так...исправлял тут...если что не так то скажи только=)
кстат теперь длинна имени картинки не ограниченна

[spamer]

var
  Pic : TMyStruct;
  Stream: TFileStream;

procedure TForm1.FormCreate(Sender: TObject);
begin
Stream := TFileStream.Create('myfile.dat', fmOpenReadWrite);
Pic.BM := TBitmap.Create
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Pic.BM.LoadFromFile('pic10.bmp');
Pic.Name:='Имя';
i:=Length(Pic.Name);
Stream.WriteBuffer(i,4);
Stream.WriteBuffer(Pic.Name[1],i);
Pic.BM.SaveToStream(Stream);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
Stream.ReadBuffer(i,4);
SetLength(Pic.Name,i);
Stream.ReadBuffer(Pic.Name[1],i);
Pic.BM.LoadFromStream(Stream);
Image1.Picture.Bitmap.Assign(Pic.BM);
Caption:= Pic.Name;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Stream.Free;
Pic.BM.Free;
end;

Спасибо. Все работает. Только можешь объяснить выделенные красным строки?