здесь
Код:
procedure filter_doc(ms:tmemorystream;before,after:string);
var
s:string;
begin
s:=StringReplace(Copy(PChar(ms.Memory), 1, ms.Size),
before, after, [rfReplaceAll, rfIgnoreCase]);
ms.Size:=0;
ms.Seek(0,0);
ms.Write(s[1], Length(s));
end;
при отладке видно что s содержит отредактированый текст содержимого html страницы, а вот в поток возвращается пустота почему то..
вернее не известно что возвращается изза ошибки.
может изза того что строка изменилась (увеличилась длинна изза StringReplace ), а памяти на нее выделено было размером на старую строку.