procedure TDelphiBand.readdocument;
var
IpStream: IPersistStreamInit;
A: TMemoryStream;
begin
memo1 := Tmemo.CreateParented(ParentWnd);
with ie do begin
while ReadyState <> READYSTATE_COMPLETE do
Forms.Application.ProcessMessages;
if Assigned(document) then begin
A := TMemoryStream.Create;
try
IpStream := document as IPersistStreamInit;
if not Assigned(IpStream) then showmessage('Hi') else
if Succeeded(IpStream.save(TStreamadapter.Create(A), TRUE))
then begin
A.Seek(0, 0);
memo1.lines.LoadFromStream(A);
end;
except
end;
A.Free;
end;
end;
showmessage(memo1.text);
end;