VPF::TFileStream и русский язык - Форум программистов

kami

Дата 7.10.2009, 01:16 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(bems @ 7.10.2009, 00:32

)

Я подумал про Windows.TBitmap.

Упс... забыл про него...
Чего-то у нас много получается "подумал-забыл". smile

Надо подождать разъяснений ТС

Для ТС: на всякий случай (не знаю, будет полезно или нет) - процедуры чтения и записи того, что спрашивалось (само собой - применять только парами).

Код


const
  MaxStrLength = 8192;

procedure LoadStringFromStream(var Str: string; Stream: TStream);
var
  i: integer;
begin
  Str := '';
  if Stream.Read(i, SizeOf(i)) = SizeOf(i) then
    begin
      if (i > 0) and (i < MaxStrLength) then
        begin
          SetLength(str, i);
          if Stream.Read(Str[1], i) <> i then
            raise EStreamError.Create('Ошибка при чтении строки из потока');
        end
      else
        if i <> 0 then
          raise EStreamError.Create('Ошибка: недопустимый размер строки '+IntToStr(i));
    end
  else
    raise EStreamError.Create('Ошибка при чтении размера строки из потока');
end;

procedure SaveStringToStream(const Str: string; Stream: TStream);
var
  i: integer;
begin
  i := Length(Str);
  if i < MaxStrLength then
    begin
      Stream.Write(i, SizeOf(i));
      if i > 0 then
        Stream.Write(str[1], i);
    end
  else
    raise EStreamError.Create('Ошибка! Размер строки превышает допустимый (' + IntToStr(i) + ')');
end;

// следующие процедуры пишу прямо здесь, посему обработку ошибок оставляю "за кадром".
procedure LoadBitmapFromStream(Bitmap:TBitMap; Stream:TStream);
var
  tmpStream:TMemoryStream;
  i:integer;
begin
  Stream.Read(i, SizeOf(i));
  if i>0 then
    begin
      tmpStream:=TMemoryStream.Create;
      tmpStream.CopyFrom(Stream, i);
      tmpStream.Seek(0, soBeginning);
      Bitmap.LoadFromStream(tmpStream);
      tmpStream.Free;
    end;
end;

procedure SaveBitmapToStream(Bitmap:TBitMap; Stream:TStream);
var
  tmpStream:TMemoryStream;
  i:integer;
begin
  tmpStream:=TMemoryStream.Create;
  Bitmap.SaveToStream(tmpStream);
  i:=tmpStream.Size;
  Stream.Write(i, SizeOf(i));
  Stream.CopyFrom(tmpStream, 0);
  tmpStream.Free;
end;

THandle

Дата 7.10.2009, 08:43 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

kami, а как же try..finally в последних двух процедурках?

pushok, вообще глянь еще такую штуку как TWriter/TReader. Там реализовано много методов для записи и чтения различных данных.

kami

Дата 7.10.2009, 09:14 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(THandle @ 7.10.2009, 08:43

)

а как же try..finally в последних двух процедурках?

а я так и написал:

Цитата(kami @ 7.10.2009, 01:16

)

// следующие процедуры пишу прямо здесь, посему обработку ошибок оставляю "за кадром".

А если честно - "ниахоооота" (с) мультик про Великого Нехочуху.

pushok

Дата 9.10.2009, 14:40 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 7.2.2007

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

По аналогии написал две функции для TStringList. Выкладываю на всякий случай (вроде работает, но если какие-то ошибки). А строки решил пока по-обычному записывать (string[1]).

Код



procedure SaveStringListToStream(SL:TStringList; Stream:TStream);
var
  tmpStream:TMemoryStream;
  i:integer;
begin
  tmpStream:=TMemoryStream.Create;
  SL.SaveToStream(tmpStream);
  i:=tmpStream.Size;
  Stream.Write(i, SizeOf(i));
  Stream.CopyFrom(tmpStream, 0);
  tmpStream.Free;
end;

procedure LoadStringListFromStream(SL:TStringList; Stream:TStream);
var
  tmpStream:TMemoryStream;
  i:integer;
begin
  Stream.Read(i, SizeOf(i));
  if i>0 then
    begin
      tmpStream:=TMemoryStream.Create;
      tmpStream.CopyFrom(Stream, i);
      tmpStream.Seek(0, soBeginning);
      SL.LoadFromStream(tmpStream);
      tmpStream.Free;
    end;
end;

Всем большое спасибо.

THandle

Дата 10.10.2009, 09:23 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(kami @ 7.10.2009, 10:14

)

А если честно - "ниахоооота" (с) мультик про Великого Нехочуху.

Такие вещи, как обработка ошибок должны всегда в первую очередь писаться. smile

Вот у pushok теперь потенциальноошибконеобрабатываемый код.

pushok, используй try..finally при создании доп потоков, плюс я бы еще проверял на всякий случай все эти входящие параметры на существование(if not Assigned() then Exit).

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