Форум: "Сети";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Вниз
считывание из окна ие Найти похожие ветки
← →
RaPtoR_1 (2004-08-25 12:42) [0]есть у меня интернет эксплорер, знаю заголовок окна как мне считать то что внутри, тобишь страничку?
← →
Rouse_ © (2004-08-25 12:54) [1]
uses
MSHTML_TLB, ActiveX;
function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
s: string;
ss: TStringStream;
sa: IStream;
begin
ps := WB.document as IPersistStreamInit;
s := "";
ss := TStringStream.Create(s);
try
sa:= TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
k: Integer;
begin
ShellWindow := CoShellWindows.Create;
// get the running instance of Internet Explorer
for k := 0 to ShellWindow.Count do
begin
spDisp := ShellWindow.Item(k);
if spDisp = nil then Continue;
// QueryInterface determines if an interface can be used with an object
spDisp.QueryInterface(iWebBrowser2, WB);
if WB <> nil then
begin
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then
begin
WB := ShellWindow.Item(k) as IWebbrowser2;
begin
// Add HTML Code to Memo
Memo1.Lines.Add("****************************************");
Memo1.Lines.Add(WB.LocationURL);
Memo1.Lines.Add("****************************************");
GetHTMLCode(WB, Memo1.Lines);
end;
end;
end;
end;
end;
← →
RaPtoR_1 (2004-08-25 13:01) [2]ого)
а по просче что-то можно по типу
findwindow ...
getwindowtext...
в этом духе?
← →
Rouse_ © (2004-08-25 13:03) [3]+ uses SHDocVw;
Попроще только, извиняюсь, через задницу :)
← →
RaPtoR_1 (2004-08-25 13:11) [4]ну вот мне так и надо)
потому что лишние кб тащить не хочеться...
← →
Rouse_ © (2004-08-25 17:26) [5]Лишние 60 кб для тебя тяжкий груз? :)
Извини, но через одно место писать программы не умею, поэтому не знаю :)
← →
RaPtoR_1 (2004-08-25 18:57) [6]60 или 300 ?
← →
Rouse_ © (2004-08-25 23:40) [7]В данном варианте именно 60...
← →
Piter © (2004-08-26 00:02) [8]Rouse_, а эта функция вытаскивает текст именно из стороннего окна IE?
← →
Rouse_ © (2004-08-26 00:12) [9]Да
← →
Piter © (2004-08-26 00:14) [10]А если у меня несколько окон открыто?
← →
Rouse_ © (2004-08-26 09:33) [11]Из нескольких и считает разделив их
****************************************
URL который открыт
****************************************
← →
Piter © (2004-08-26 10:26) [12]ага, понял...
← →
Piter © (2004-08-26 10:32) [13]Только определение IWebbrowser2 у меня содержится в SHDocVw.
Rouse_, вытаскивает из окон IE - отлично. А вот нет такого, чтобы вытаскивать вообще все, например из WebBrowser контролов?
← →
Rouse_ © (2004-08-26 11:11) [14]> Только определение IWebbrowser2 у меня содержится в SHDocVw.
Я это написал в третьем посте...
> А вот нет такого, чтобы вытаскивать вообще все
Не - такого не знаю...
← →
RaPtoR_1 (2004-08-26 13:07) [15]ну так никто ненаю как это реализовать без дополнительных
.pas`ов ?
← →
Piter © (2004-08-26 15:44) [16]RaPtoR_1 (26.08.04 13:07) [15]
слушай, да задолбали вы уже со своими троянами.
Или если хочешь - давай так, ты говоришь что тебе действительно нужно (то есть, ДЛЯ ЧЕГО нужно вытаскивать текст из браузера) - а мы уж подумаем чего делать...
← →
RaPtoR_1 (2004-08-26 22:15) [17]это можно сказать не троян...
коечто другое, но не важно....
если ты не наешь или не скажешь мог бы ничего не писать...
← →
Rouse_ © (2004-08-26 23:31) [18]Ну раз не хочешь по нормальному - то делай через одно место...
А именно, зная окно получай URL который открыт и ручками поти-и-и-и-и-и-ихоньку закачивай себе из инета заново эту страничку...
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.04 c
