Цитата(bems @ 7.10.2009, 00:32  ) | | Я подумал про Windows.TBitmap. |
Упс... забыл про него...
Чего-то у нас много получается "подумал-забыл".  Надо подождать разъяснений ТС
Для ТС: на всякий случай (не знаю, будет полезно или нет) - процедуры чтения и записи того, что спрашивалось (само собой - применять только парами).
| Код |
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;
|
|
Так это ж указатель!
