VPF::Хранение данных - Форум программистов

former

Дата 1.4.2006, 20:47 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Как сохранять в файле со своим расширением данные, содержащие картинку (Jpeg) и текст (не архив)? Картинка не должна отображаться с помощью других программ.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Демо

Дата 1.4.2006, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

У TJPEGImage есть метод SaveToStream.
Копируй в TMemoryStream, изменяй по своему алгоритму и сохраняй на диск.
ПРи загрузке проделывай обратную операцию.

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

former

Дата 1.4.2006, 22:38 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

То, что JPEG можно сохранить через поток, я знаю. Но как запихнуть туда ещё текст (например записи)? Хотелось бы увидеть пример с бинарным файлом. smile

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Демо

Дата 1.4.2006, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(former @ 1.4.2006, 22:38

)

Но как запихнуть туда ещё текст (например записи)?

Да очень просто.

Код


procedure SaveData(const s: String; BinData: TStream; FilePath: String);
var
  FS: TFileStream;
  Len: Integer;
  Len64: Int64;
begin
  FS := TFileStream.Create(FilePath,fmCreate);
  try
    Len := Length(s);
    FS.Write(Len,SizeOf(Integer));
    FS.Write(s[1],Len);
    Len64 := BinData.Size;
    FS.Write(Len64,SizeOf(Int64));
    FS.CopyFrom(BinData,Len64);
  finally
    FS.Free;
  end;
end;

procedure ReadData(var s: String; BinData: TStream; FilePath: String);
var
  FS: TFileStream;
  Len: Integer;
  Len64: Int64;
begin
  FS := TFileStream.Create(FilePath,fmOpenRead);
  try
    FS.Read(Len,SizeOf(Integer));
    SetLength(s,Len);
    FS.Read(s[1],Len);
    FS.Read(Len64,SizeOf(Int64));
    BinData.CopyFrom(FS,Len64);
  finally
    FS.Free;
  end;
end;

Пример сохранения:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create('unit1.pas',fmOpenRead);
  try
    SaveData('Это коммент',FS,'BinData.dat');
  finally
    FS.Free;
  end;
end;

Пример восстановления:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  MS: TMemoryStream;
  s: String;
begin
  MS:= TMemoryStream.Create;
  try
    ReadData(s,MS,'BinData.dat');
//Здесь исполльзуем загруженные данные
  finally
    MS.Free;
  end;
end;

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

former

Дата 3.4.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Демо, спасибо.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »