Цитата:
Сообщение от M.A.D.M.A.N.
Надеюсь переводить "головку" стрима в нулевую позицию перед loadfromstream не забываешь?
|
Я так понимаю что так и делается
Код:
begin
Clear;
if Length(AText) = 0 then
Exit;
SetSize(Length(AText) div 2);
HexToBin(PWideChar(AText), PAnsiChar(Self.Memory), Length(AText) div 2);
Position := 0; {<<<<<<<}
end;
получается записать прочитать все это только очень маленькую картинку (пробовала 3х3 bmp)...
Хоть бы ктонибудь каккойнибудь пример оставил. на словах можно бесконечно рассуждать