//Add MSHTML to your uses clause
//Add a TWebBrowser
//Add two buttons
//Add a ComboBox


//////////////////////////////////////////////////////////////////////////////
function IsSelectElement(eleElement: IHTMLElement): Boolean;
//////////////////////////////////////////////////////////////////////////////
var
selElement: IHTMLSelectElement;
begin
Result := False;
try
selElement := eleElement as IHTMLSelectElement;
except
Exit;
end;
Result := True;
end;

///////////////////////////////////////////////////////////////////////////////
procedure GetListBoxOptions(Web1: TWebBrowser;
strListBoxName: string;
intInstance: Integer;
tslLines: TStrings;
out intSelected: Integer);
///////////////////////////////////////////////////////////////////////////////
var
eleChild: IHTMLElement;
eleElement: IHTMLElement;
colGrandParents: IHTMLElementCollection;
colParents: IHTMLElementCollection;
selElement: IHTMLSelectElement;
intCount: Integer;
intG: Integer;
intGMax: Integer;
intP: Integer;
intPMax: Integer;
Document: IHTMLDocument2;
begin
tslLines.Clear;
intSelected := -1;
intCount := -1;

//Magic declarations
Document := Web1.Document as IHTMLDocument2;
if Document = nil then Exit;

colGrandParents := Document.All;
if colGrandParents = nil then Exit;

intGMax := colGrandParents.Length - 1;
for intG := 0 to intGMax do
begin
eleElement := colGrandParents.Item(intG, '') as IHTMLElement;
if IsSelectElement(eleElement) then
begin
selElement := eleElement as IHTMLSelectElement;
if selElement.Name = strListBoxName then
begin
//Found a list box with the correct name.
Inc(intCount);
if intCount = intInstance then
begin
//Found the instance with the correct name.
intSelected := selElement.selectedIndex;
colParents := eleElement.children as IHTMLElementCollection;
intPMax := colParents.Length - 1;
for intP := 0 to intPMax do
begin
eleChild := colParents.Item(intP, '') as IHTMLElement;
tslLines.Add(eleChild.InnerText);
end;
end;
end;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.swissdelphicenter.ch/torry');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
intSelected: Integer;
begin
ComboBox1.Text := '';
GetListBoxOptions(WebBrowser1, 'select', 0, ComboBox1.Items, intSelected);
if intSelected > -1 then
begin
ComboBox1.Text := ComboBox1.Items[intSelected];
end;
end;

{ To test this code put a TWebBrowser and A TButton component on the form }


function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;


//When the document is complete try to fill out the field homepage with the url
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if FillForm(WebBrowser1, 'homepage', 'http://www.swissdelphicenter.ch') = False then
ShowMessage('Error. Field not available or no Form found.');
end;

// Show the Webbrowser-Progress in Label1
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
begin
if ProgressMax = 0 then
begin
label1.Caption := '';
Exit;
end;
try
if (Progress <> -1) and (Progress <= ProgressMax) then
label1.Caption := IntToStr((Progress * 100) div ProgressMax) + '% loaded...'
else
label1.Caption := '';
except
on EDivByZero do Exit;
end;
end;


//For example you can load the page /en/addtip.php to the TWebBrowser
//When the document is Complete the form where you can put your homepage
//address is filled out
procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/addtip.php');
// Show the Titel of the currently active Webpage in the titlebar
// Den Titel der aktuellen Webseite in der Titeleiste anzeigen
Caption := Webbrowser1.OleObject.Document.Title;
end;

procedure TForm1.AutoWebLogin();
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
szURL,szPostData,szCode: String;
niIndexofBegin, niIndexofEnd, niDataSize, niCount: Integer;
c, vFlags, vTargetFrameName, vPostData, vHeaders: OleVariant;
begin
szPostData := 'id=' + 아이디+ '&pw=' + 비번; //다음 페이지로 넘길 이 쿼리를 알아내는 것이 중요.
niDataSize:= Length(szPostData);

c:= VarArrayCreate([0,niDataSize], varByte);
for niCount:= 0 to niDataSize - 1 do begin
c[niCount]:= Ord(szPostData[niCount+1]);
end;

c[niDataSize]:= 0;

vHeaders := 'Content-Type:application/x-www-form-urlencoded'+#13+#10+#0;

IE := CreateOleObject(csOLEObjName);
IE.Visible := true;
IE.FullScreen := False;
IE.Navigate('http://id.naver.com/nidlogin.login' ,null,null,c,vHeaders);
//post로 넘길 페이지...네이버일경우 이페이지로 id와 pwd를 넘김
end;