[Easy]

отсутствие знаний... и гугл предатель. до недавнего времени и представления не имел о таких вещах как TBitMap, TStream, EncodeBase64, EncodeStream, DecodeStream...

[NumLock]

Сообщение от Easy

попробуй

у меня Delphi 7, в ней нет стандартного кодека Base64

[ined]

А разве String это не текст который заканчивается на 0 в массиве символов. Может поэтому не получается передать или конвертировать правильно.
Поправьте меня если не так.

[NumLock]

вообщем все выяснилось. на самом деле виноват TMemo, в который помещается Base64 текст. сама процедура

Код:

procedure EncodeStream(Input, Output: TStream);

на 1280*1024 работает 50мс (по GetTickCount) и возвращает строку длиной 5 242 952 байт. если сохранить ее в переменной String все идет как по маслу, декодер тоже быстро отрабатывает. но если присвоить ее TMemo то все - запасайтесь сигаретами)

добавлено позже

использование TRichEdit вместо TMemo тоже решает проблему скорости.

http://zalil.ru/34545290

[Easy]

а нельзя ли мне весь проект скинуть? пожааалуйста)