Доброго времени суток, господа! Появилась необходимость написать сетевое приложение для сбора веб-страниц. Постановка задачи следующая:
1)Приложение слушает на определённом порту.
2) На порт приходит клиент и говорит, допустим "HELLO"
3) По этой комманде должен создаваться объект TWebBrowser и при успехе в ответ приходит, допустим "READY" (какие либо ошибки пока не рассматриваю...)
4) Клиент посылает комманту "LOAD" с параметром, к примеру "http://ya.ru", на что этот объект должен соответственно среагировать
5) по коммандам HTML и DOCUMENT сервер должен отдать хтмл код и боди.иннер текст соответсвенно.
При дисконнекте объект TWebBrowser должен уничтожится.
Долго поломав голову, в качестве сервера выбрал IdTcpServer
для теста в событие камманды HELLO вписал следующее:
Код:
uses MSHTML, ActiveX;
...
procedure TForm1.IdTCPServer1HELO_COMMANDCommand(ASender: TIdCommand);
var
doc: IHTMLDocument2;
IE: TWebBrowser;
begin
memo1.Lines.Add('Client '+asender.Thread.Connection.Socket.Binding.PeerIP+':'+inttostr(asender.Thread.Connection.Socket.Binding.PeerPort)+' says: HELLO '+asender.UnparsedParams);
CoInitialize(nil);
IE := TWebBrowser.Create(Form1);
IE.Visible := true;
IE.enabled := true;
IE.Silent :=false;
IE.Navigate('http://ya.ru');
memo1.Lines.Add('Waiting...');
//while IE.Busy do sleep (200);}
sleep (10000);
doc := IE.Document as IHTMLDocument2;
memo1.Lines.Add('DOM');
memo1.Lines.Add(doc.body.innerText); //Тут прога вылетает с екзепшном "Access violation at address 0046CCFB in module 'Proj.exe'. Read of address 00000000"
//asender.Thread.Data := TObject(@IE);
end;
Причём, пробовал вручную создавать на форме данный компонент, делать с ним Navigate и пытаться выковырнуть оттуда иннертекст в один поток - прокатывало
Вопрос: что я не так делаю?
