Эл. учебник с использованием TTreeview+TWebbrowser, реализация поиска

[nursak]

Привет всем. Я создаю электронный учебник на delphi 7 с использованием компонентов TTreeview (для выбора разделов) и TWebBrowser (для отображения). Поиск производится по Treeview

 var
  i: integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    if Pos(Edit1.Text, TreeView1.Items[i].Text) <> 0 then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      TreeView1.SetFocus;
      break;
    end;

Проблема в том - что ищет он только при соблюдении регистров. То есть я пишу в edit "раздел 1" - он ничего не находит, а если написать "Раздел 1" - то соответственно находит.
И еще я не могу нигде найти реализацию поиска по компоненту TWebBrowser с подсветкой найденных символов на странице.

[nursak]

Поиск по TWebBrowser с подсветкой символов нашел.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, MSHTML, ActiveX;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Panel1: TPanel;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function InvokeCMD(WB: TWebbrowser; nCmdID: DWORD): Boolean; overload;
    function InvokeCMD(WB: TWebbrowser; InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant): Boolean; overload;
  public
    { Public declarations }
  end;

const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';

var
  Form1: TForm1;


implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
   WebBrowser1.Navigate( 'http://forum.a42.ru/programmirovanie/delphi-poisk-v-webbrowser-t21644.html' );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  InvokeCMD( WebBrowser1, 1 );
end;

function TForm1.InvokeCMD(WB: TWebbrowser; nCmdID: DWORD): Boolean;
var
  vaIn, vaOut: OleVariant;
begin
   Result := InvokeCMD(WB, True, nCmdID, 0{unassigned}, vaIn, vaOut);
end;

function TForm1.InvokeCMD(WB: TWebbrowser; InvokeIE: Boolean; Value1,
  Value2: Integer; var vaIn, vaOut: OleVariant): Boolean;
var
  CmdTarget: IOleCommandTarget;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  if InvokeIE then
    PtrGUID^ := CGID_WebBrowser
  else
    PtrGuid := PGUID(nil);
  if WB.Document <> nil then
  try
    WB.Document.QueryInterface(IOleCommandTarget, CmdTarget);
    if CmdTarget <> nil then
    try
      CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
    finally
      CmdTarget._Release;
    end;
  except end;
  Dispose(PtrGUID);

end;

end.

[nursak]

Ап
Как сделать чтобы поиск работал не зависимо от регистра символов?

[HOOCH94]

В своём эл учебнике я использую вот такой код поиска по Webbrowser;

uses MSHTML;

procedure WBFindText(Browser: TWebBrowser; const Direction: Boolean; const FText: String;
  const SearchScope, Flags: Integer);
var
  Doc: IHTMLDocument2;
  SelObj: IHTMLSelectionObject;
  SelRange: IHtmlTxtRange;
begin
  Doc := Browser.Document as IHTMLDocument2;
  SelObj := Doc.Selection;
  SelRange := SelObj.CreateRange as IHTMLTxtRange;
  SelRange.Collapse(Direction);
  if SelRange.FindText(FText, SearchScope, Flags) then
  begin
    SelRange.Select;
    SelRange.ScrollIntoView(True);
  end
    else MessageBox(Handle, 'По Вашему запросу ничего не найдено', 'Поиск текста', MB_ICONINFORMATION);
end;

{
WBFindText(MyCoolBrowser, False, 'MyCoolText', 1, 0); // Найти вперед

WBFindText(MyCoolBrowser, False, 'MyCoolText', 1, 0 or 4); // Найти вперед + чуствительность к регистру

WBFindText(MyCoolBrowser, True, 'MyCoolText', - 1, 1); // Найти назад

WBFindText(MyCoolBrowser, True, 'MyCoolText', - 1, 1 or 4); // Найти назад + чуствительность к регистру } (c)RaIDeR

[Аватар]

if Pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(TreeView1.Items[i].Text)) <> 0 then

[nursak]

Спасибо Аватар помогло

[nursak]

Как сделать экспорт содержимого Twebbrowser в HMTL/DOC формат?
И можно ли использовать QReport с Twebbrowser?

[kees]

Доброго времени суток! Это если правильно понимаю поиск по тексту в дереве? А мне вот надо очень поиск только по тексту из файла. Т.е. по всему массиву из ентого дерева.
Подскажите дельную идею, а?

[Пепел Феникса]

Как сделать экспорт содержимого Twebbrowser в HMTL/DOC формат?

как брать содержимое TWebBrowser я писал не однократно. это и есть HTML

А мне вот надо очень поиск только по тексту из файла

дык это выходит поиск по TWebBrowser, см пост 4

[kees]

Че то не выходит, и не пойму я где там проход по тривью?
неужели никто никогда такого не делал? уже месяц ищу наверное...
И код у меня есть,вроде не корявый, тока не работает почему-то, хотелось сравнить...