![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#6
|
|||
|
|||
![]() Цитата:
Я попробовал чарез CoHTMLDocument. Что-то заработало, но как-то не так... Получилось что-то вроде того: Комманда HELLO: Код:
try CoInitialize(nil); IED := CoHTMLDocument.Create as IHTMLDocument2; IHTTP := TIdHTTP.Create(nil); IE_running := true; newMsg := 'READY'; except newMsg := 'ERROR_IE_CANNOT_START'; end; Код:
HTML := IHTTP.Get(Trim(Copy(msg, Pos(' ', msg) + 1, Length(msg)-1))); OleVariant(IED).write(HTML); //IED.open(Trim(Copy(msg, Pos(' ', msg) + 1, Length(msg)-1)), '_self','',true); page_loaded := true; newMsg := 'OK' Код:
if page_loaded then begin ClientSocket.Sendln(AnsiToUtf8((IED as IHtmlDocument2).body.innerText)); newMsg := 'THE_END_OF_DATA_TRANSFER'; end else newMsg := 'ERROR_PAGE_NOT_LOADED'; Помогите допилить это, уже замучался с этим проэктом P.S.: додбавил IdHttp, так как c open'ом мы не сдружились, по open'у открывается IE, после чего DOM вызывает ошибку access violation |