Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите плиз с TWebBrowser [D7, WinXP]

Igor2010 © (2009-04-27 19:04:00)
Приветствую! :-)

Использую этот компонент, работаю с документом в обработчике WebBrowser1DocumentComplete, но не знаю как с помощью сего компонента получить Content из этого же обработчика 2-ой раз.
Страничку я не гружу очередной раз(т.е. ещё раз Navigate не делаю), а просто заполняю поле ввода и срабатывает web-функция проверки; поснифал во время такой проверки и вижу некие значения 1 или 3-х байтное в Content, а как их TWebBrowser-ом выудить не пойму?

ps: сорри за сумбур, код ниже

function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps:= WebBrowser.Document as IPersistStreamInit;
fs:= TFileStream.Create(FileName, fmCreate);
try
sa:= TStreamAdapter.Create(fs, soReference) as IStream;
Result:= Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
S:String;
begin

CurWebrowser:= pDisp as IWebBrowser;
TopWebBrowser:= (Sender as TWebBrowser).DefaultInterface;
IF CurWebrowser = TopWebBrowser THEN
BEGIN

************************************************
if WB_SaveHTMLCode(Form1.WebBrowser1, 'NF.txt') then
begin
//работаю с NF.txt нормально
end;
***********************************************

//запускаю таймер
Form1.Timer1.Interval:=7000;
Form1.Timer1.Enabled:=True;

END;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
o,i: integer;
Elements: OleVariant;
Sbrut:String;
S:String;
begin
***********************************************
Elements:=WebBrowser1.OleObject.Document.forms.item.elements;

for o:= 0 to (Elements.length-1) do
begin
(1) if (Elements.item(o).type = 'text') and
(Elements.item(o).name = Sn) then
Elements.item(o).value :=Trim(Sbrut);
end;

*************************************************
после срабатывания инструкций (1) снифером ловлю пост запрос, который возвращает контент либо 0 либо 101, далее пытаюсь сохранить контент в файл,
if WB_SaveHTMLCode(Form1.WebBrowser1, 'NF.txt') then
begin
// в NF.txt нет не '0' не '101' :-(((( так незя
end;
но сохраняется то что мы получили в обраб WebBrowser1DocumentComplete
*******************************
*******************************
end;

sniknik (2009-04-27 20:42:00) [1]
> чувствую тему закроют опять))
правильно чувствуешь, но этого мало. правила должны соблюдаться.

Igor2010 (2009-04-27 20:13:00) [2]
> «Срочно, горю», «Help», «Памогите, кто знаете» и т.п. будут

ну хваатит придераца...не буууду больше))) Проблемку бы кто помог решить измучался уже

Igor2010 (2009-04-27 20:09:00) [3]

> правила форума тоже понятны?

1-е сообщение посылал вчера, 2-е сегодня....чувствую тему закроют опять))

> а причем здесь "помогите плиз с"?

помогите пожалуйста с компонентом TWebBrowser

KilkennyCat (2009-04-27 20:06:00) [4]
2. Корректно оформляйте заголовок ветки, который должен кратко отражать суть вопроса. Ветки, озаглавленные «Нужна помощь», «Срочно, горю», «Help», «Памогите, кто знаете» и т.п. будут удаляться в обязательном порядке.
http://ln.com.ua/~openxs/articles/smart-questions-ru.html

KilkennyCat (2009-04-27 20:04:00) [5]
правила форума тоже понятны?

Igor2010 (2009-04-27 20:01:00) [6]

> а никто не обязан.

да эт понятно... :-)

KilkennyCat (2009-04-27 19:59:00) [7]

> Уже второй раз тему публикую

посмотри, что стало с первой.

>а никто не помогает

а никто не обязан.

KilkennyCat (2009-04-27 19:57:00) [8]
а причем здесь "помогите плиз с"?

Igor2010 (2009-04-27 19:56:00) [9]
Что разве никто и не знает? Уже второй раз тему публикую, а никто не помогает вроде как в начинающие перемещают :(((

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »