Помогите плиз с TWebBrowser

← →
Igor2010 (2009-04-27 19:04) [0]

Приветствую! :-)

Использую этот компонент, работаю с документом в обработчике 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;

← →
Igor2010 (2009-04-27 19:56) [1]

Что разве никто и не знает? Уже второй раз тему публикую, а никто не помогает вроде как в начинающие перемещают :(((

← →
KilkennyCat © (2009-04-27 19:57) [2]

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

← →
KilkennyCat © (2009-04-27 19:59) [3]

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

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

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

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

← →
Igor2010 (2009-04-27 20:01) [4]

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

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

← →
KilkennyCat © (2009-04-27 20:04) [5]

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

← →
KilkennyCat © (2009-04-27 20:06) [6]

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

← →
Igor2010 (2009-04-27 20:09) [7]

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

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

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

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

← →
Igor2010 (2009-04-27 20:13) [8]

> «Срочно, горю», «Help», «Памогите, кто знаете» и т.п. будут

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

> чувствую тему закроют опять))
правильно чувствуешь, но этого мало. правила должны соблюдаться.

Помогите плиз с TWebBrowser Найти похожие ветки