Новые подробности: для теста поместил на форму 2 кнопки и TWebBrowser по событиям кнопок:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IE.Navigate('http://ya.ru');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
doc: IHTMLDocument2;
begin
doc := IE.Document as IHTMLDocument2;
memo1.Lines.Add(doc.body.innerText);
end;
те же самые наборы комманд прописал для событий комманд инди сервера:
Код:
procedure TForm1.IdTCPServer1HELO_COMMANDCommand(ASender: TIdCommand);
var
doc: IHTMLDocument2;
begin
memo1.Lines.Add('Client '+asender.Thread.Connection.Socket.Binding.PeerIP+':'+inttostr(asender.Thread.Connection.Socket.Binding.PeerPort)+' says: HELLO '+asender.UnparsedParams);
IE.Navigate('http://ya.ru');
end;
procedure TForm1.IdTCPServer1DOM_COMMANDCommand(ASender: TIdCommand);
var
doc: IHTMLDocument2;
begin
doc := IE.Document as IHTMLDocument2;
memo1.Lines.Add(doc.body.innerText);
end;
При этом кнопки работают как надо, а по коммандам инди - вываливается экзепшн.