Форум: "Начинающим";
Текущий архив: 2009.06.14;
Скачать: [xml.tar.bz2];
ВнизПомогите плиз с 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», «Памогите, кто знаете» и т.п. будут
ну хваатит придераца...не буууду больше))) Проблемку бы кто помог решить измучался уже
← →
sniknik © (2009-04-27 20:42) [9]> чувствую тему закроют опять))
правильно чувствуешь, но этого мало. правила должны соблюдаться.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.06.14;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.006 c