[realOEM]

Сообщение от Майняк

Интересные люди.... Каг да каг =))) А где пример кода? Мы ж не экстрасенсы=) От куда ж нам знать что там наворотил...

Я просто гружу в скрытый компонент TWebBrowser url:

procedure TForm1.FormCreate(Sender: TObject);
begin
Webbrowser1.Navigate('https://хх.хх.хх.хх/cgi-bin/cgi.exe?function=хххххххх&хххххх=1')
end;

с помощью editов и memo заполняю формы в страничке, а с помощью buttonов нажимаю на страничке кнопки. Запоненая страничка выполняет скрипт, и должна по новой загрузиться:

procedure TForm1.Button1Click(Sender: TObject);
var
iDoc: IHtmlDocument2;
i: integer;
ov: OleVariant;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
InputImage: HTMLInputImage;
IDoc1: IHTMLDocument2;
Web: IWebBrowser2;
begin

while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
Webbrowser1.Document.QueryInterface(IHTMLDocument2 , iDoc1);
Web := WebBrowser1.ControlInterface;
antispamText(Web, iDoc1, Webbrowser1.Document,edit1.Text);
To_(Web, iDoc1, Webbrowser1.Document,edit2.Text);
Msg_(Web, iDoc1, Webbrowser1.Document,memo1.Text);

WebBrowser1.ControlInterface.Document.QueryInterfa ce(IHtmlDocument2, iDoc);
if not Assigned(iDoc) then
begin
Exit;
end;
ov := 'INPUT';
iDisp := iDoc.all.tags(ov);
if Assigned(IDisp) then
begin
IDisp.QueryInterface(IHTMLElementCollection, iColl);
if Assigned(iColl) then
begin
for i := 1 to iColl.Get_length do
begin
iDisp := iColl.item(pred(i), 0);
iDisp.QueryInterface(HTMLInputImage, InputImage);
if Assigned(InputImage) then
begin
if InputImage.type_ = 'image' then //Нажимаю кнопку исполняющую скрипт на страничке
begin
InputImage.Click;
end;
end;
end;
end;
end;
edit1.Text:='';
edit2.text:='';
memo1.Text:='';
//Webbrowser1.Navigate('https://хх.хх.хх.хх/cgi-bin/cgi.exe?function=хххххххх&хххххх=1')
end;

Тут проблема и возникает. Скрипт открывает страницу. Я по новой гружу исходную. Она грузится, но вот скрипт не выполняет.