Доброе утро!
Помогите с ошибкой.
Есть код:
Код:
procedure TForm2.wb1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
f, i: integer;
res_post: string;
begin
for f := 0 to wb1.OleObject.Document.forms.Length - 1 do
begin
for i := 0 to wb1.OleObject.Document.forms.Item(f).elements.Length - 1 do
if wb1.OleObject.Document.forms.Item(f).elements.item(i).name = 'vk_page_userid'
then
res_post:=wb1.OleObject.Document.forms.Item(f).elements.item(i).value;
edt1.Text:=res_post;
stbsht5.PageControl.ActivePageIndex:=0;
Get_MyPageInfo(edt1.Text);
end;
end;
У мен есть html код в программе, при загрузке в webbrowser1(wb1) выдает ошибку "Access violation at address 00491024", после ошибки код всеравно загружаеться.
Процедура
Код:
procedure TForm2.wb1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);
отлавливает значение передаваемое методом POST в программе
Код HTML:
<form action="" method="POST"><input type="hidden" name="page_userid" value="'+str+'"><input type="submit" name="page_userid_submit" value="Открыть"></form>
зачение "page_userid" и нужно узнать.
Выходит 2 проблемы:
1) Ошибка "Access violation" когда нажимаю на кнопку, в которой html код загружаеться в wb1.
2) У меня в коде много кода
Код HTML:
<form action="" method="POST"><input type="hidden" name="page_userid" value="'+str+'"><input type="submit" name="page_userid_submit" value="Открыть"></form>
только с разными значениями. Когда я нажимаю на кнопку "Открыть", оно находит все значения из поля "page_userid", а нужно, чтобы было только то, где нажал пользователь.