Hi Dennis
I found the uses clause I was looking for - it seems to be MSHTML. So just
using this uses clause, with no Internet components on my form, I wrote the
following code. I'm a bit lost. Can you help, especially with the error
message:
procedure TMainForm.BitBtn1Click(Sender: TObject);
var
doc: IHTMLdocument2;
elem: IHTMLElement;
IE:Variant;
begin
IE := CreateOleObject('internetexplorer.application');
IE.Visible := True;
IE.navigate('http://www.somesite.com/information/register/download.asp');
doc := IE.document as IHTMLdocument2;
// the above line falls over with: [Error] MainUnit.pas(44): Operator not
applicable to this operand type
// have I defined IE correctly as a variant?
elem := doc.all.item('id',0) as IHTMLElement;
elem.value := 'MyUserName';
// how do I "send" the user name to IE? e.g. elem.click???
elem := doc.all.item('pwd',0) as IHTMLElement;
elem.value := 'MyPassword';
// now must focus to the "login" button and click it
elem := doc.all.item('LoginBtn',0) as IHTMLElement;
elem.click;
// click on "download file" hot link
// ??? wonder how this is done??? - same idea as above I guess
// all finished, so quit IE
IE.Quit;
IE:= UnAssigned;
end;
Any ideas appreciated. I'm using Delphi 6.
Cheers
Dave
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
Sent: Thursday, 28 November 2002 07:07
To: Multiple recipients of list delphi
Subject: RE: [DUG]: Automating Internet Explorer from Delphi
Hi Dennis
This looks good, however what components are IHTMLdocument2 and IHTMLElement
referring to? Or else what uses clauses do I need? (I had a look under my
Internet tab, but couldn't find components with these names).
Thanks for your help.
Dave
-----Original Message-----
From: Dennis Chuah [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, 27 November 2002 15:47
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Automating Internet Explorer from Delphi
procedure SetData;
var
doc: IHTMLdocument2;
elem: IHTMLElement;
begin
doc := IE.document as IHTMLdocument2;
elem := doc.all.item('mycontrol',0) as IHTMLElement;
elem.value := 'SomeValue';
end;
In the HTML document:
<form>
<input type="text" id="mycontrol">
HTH
Dennis.
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, November 27, 2002 2:44 PM
Subject: [DUG]: Automating Internet Explorer from Delphi
> I want to use IE as an OLE Automation server. I've found the events,
methods
> and properties for the IE Object on MSDN. However, I'm having trouble
> finding what I need. I want to go to a particular URL (no problems) and
then
> enter a user name and password, which that page prompts for. Can I get
this
> level of interaction, where I can effectively fill in forms and click
> buttons in IE, on behalf of the user? If so, which events / methods /
> properties should I use and how?
>
> Anyone done this? Any sites recommended?
>
> Cheers
>
> Dave Jollie
> Software Developer BOA IT
> 09 368 4259 ext 6231
>
> The information contained in this mail message is confidential and may
also
> be legally privileged. If you are not the intended recipient, please note
> that any use, dissemination, further distribution, or reproduction of this
> message in any form what so ever, is strictly prohibited. If the mail is
in
> error, please notify me by return E-mail, delete your copy of the message,
> and accept my apologies for any inconvenience caused.
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
