loging and retrieve some data from SSL enabled site

Hello,

I am trying to login and retriving some data from my application using TWebBrowser component. The page i am trying to login is SSL site and has frames in its html. I have used the solution on this thread [url]http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20317800.html#a7123963[/url] and managed to send data to standart html coded pages and itsnot important whether its SSL enabled but this time i get error "Access violation at address .." error at the line "OleCheck(pDispatch.QueryInterface(IID_IHTMLFormElement, FormElement));" and process is stopping. I have tried to modify the code for frames as below

function FillFrameFormField(Browser:TWebBrowser; FieldName, FieldValue: String): Boolean;
var WebDoc : IHTMLDocument2;
    pDispatch : IDISPATCH;
    FormCollection : IHTMLFramesCollection2;
    FormElement : IHTMLFormElement;
    FormItem : IHTMLElement;
    InputElement : IHTMLInputElement;
begin
     Result:=FALSE;
     OleCheck(Browser.Document.QueryInterface(IID_IHTMLDocument2, WebDoc));
     FormCollection := WebDoc.Get_Frames;
     pDispatch := FormCollection.item(0);
     OleCheck(pDispatch.QueryInterface(IID_IHTMLFrameElement, FormElement));
     pDispatch := FormElement.item(FieldName, 0);
     OleCheck(pDispatch.QueryInterface(IID_IHTMLFrameSetElement, FormItem));
     if FormItem.QueryInterface(IID_IHTMLInputElement, InputElement) = 0 then
     begin
        if InputElement.Get_type_ = 'text' then begin
           InputElement.Set_value(FieldValue);
           Result:=TRUE;
        end;
     end;
end;
 
but when i compile the code it gives eror of " [DCC Error] UWeb.pas(76): E2033 Types of actual and formal var parameters must be identical " at line "pDispatch := FormCollection.item(0);"

if anyone can help me on this i will be very appricated.Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function FillFormField(Browser:TWebBrowser; FieldName, FieldValue: String): Boolean;
var WebDoc : IHTMLDocument2;
    pDispatch : IDISPATCH;
    FormCollection : IHTMLElementCollection;
    FormElement : IHTMLFormElement;
    FormItem : IHTMLElement;
    InputElement : IHTMLInputElement;
begin
     Result:=FALSE;
     OleCheck(Browser.Document.QueryInterface(IID_IHTMLDocument2, WebDoc));
     FormCollection := WebDoc.Get_forms;
     pDispatch := FormCollection.item(0, 0);
     OleCheck(pDispatch.QueryInterface(IID_IHTMLFormElement, FormElement));
     pDispatch := FormElement.item(FieldName, 0);
     OleCheck(pDispatch.QueryInterface(IID_IHTMLElement, FormItem));
     if FormItem.QueryInterface(IID_IHTMLInputElement, InputElement) = 0 then
     begin
        if InputElement.Get_type_ = 'text' then begin
           InputElement.Set_value(FieldValue);
           Result:=TRUE;
        end;
     end;
end;