Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

Как изменить цвет фона в html странице?   Найти похожие ветки 

 
Неумный   (2005-03-10 19:15) [0]

Сабж.Вопрос, правда, немного не потеме.Но как то надо.Ессно, станица на компе, а не в сети.И другой вопрос: возможно ли это вообще? На яве я это видел.Если вопрос глупый, скажите.


 
nes ©   (2005-03-10 19:22) [1]

Ум...не доганяю, тебе програмно это нада или через нотепаде тоже можно=) Конкретней...


 
Zeqfreed ©   (2005-03-10 19:38) [2]

Неумный   (10.03.05 19:15)
Можешь использовать IHTMLDocument2, TWebBrowser с закладки Internet может предоставить данный интерфейс.


 
Неумный   (2005-03-10 20:09) [3]

Можешь использовать IHTMLDocument2, TWebBrowser с закладки Internet может предоставить данный интерфейс.
Что до меня недоперло... вроде я там такой переменной "фон" не нашел...как использовать-то?


 
Неумный   (2005-03-10 20:10) [4]

В TWebBrowser


 
Zeqfreed ©   (2005-03-10 20:39) [5]

Неумный   (10.03.05 20:09) [3]

uses MSHTML_TLB
TWebBrowser.Document
http://msdn.rambler.ru/srch?words=IHTMLDocument2&set=msdn

http://search.rambler.ru/srch?old_q=HTML+%F6%E2%E5%F2+%F4%EE%ED%E0&words=HTML+%E7%E0%E4%E0%F2%FC+%F6%E2%E5%F2+%F4%EE%ED% E0&set=www

p.s. если ссылка не будет работать, попробуй её "склеить"


 
Неумный   (2005-03-11 18:41) [6]

Посмотрел, поискал...это вроде надо как-то через ком делать, а у меня с этом туго...может, кто даст пример скрипта, изменяющий цвет фона страницы?


 
Неумный   (2005-03-12 21:37) [7]

Все лень что ли?


 
ShimON ©   (2005-03-12 21:46) [8]

Лень по-моему тебе - разоьраться. Тебе это надо или кому??


 
Fenik   (2005-03-12 21:47) [9]

Мне лень.


 
ShimON ©   (2005-03-12 21:50) [10]

:) Специально для ленивых :)
Пример исполнения ява скрипта в TWebBrowser
uses
 MSHTML_TLB, SHDocVw, ShellAPI;

// function to execute a script function

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string):
 Boolean;
var
 win: IHTMLWindow2;
 Olelanguage: Olevariant;
begin
 if doc <> nil then
 begin
   try
     win := doc.parentWindow;
     if win <> nil then
     begin
       try
         Olelanguage := language;
         win.ExecScript(script, Olelanguage);
       finally
         win := nil;
       end;
     end;
   finally
     doc := nil;
   end;
 end;
end;

// 2 Examples how to login to gmx homepage

procedure FillInGMXForms(WB: ShDocVW_TLB.IWebbrowser2; IDoc1: IHTMLDocument2;
 Document: Variant; AKennung, APasswort: string);
const
 IEFields: array[1..4] of string = ("INPUT", "text", "INPUT", "password");
var
 IEFieldsCounter: Integer;
 i: Integer;
 m: Integer;
 ovElements: OleVariant;
begin
 if Pos("GMX - Homepage", Document.Title) <> 0 then

   while WB.ReadyState <> READYSTATE_COMPLETE do
     Application.ProcessMessages;

 // count forms on document and iterate through its forms
 IEFieldsCounter := 0;
 for m := 0 to Document.forms.Length - 1 do
 begin
   ovElements := Document.forms.Item(m).elements;

   // iterate through elements
   for i := ovElements.Length - 1 downto 0 do
   begin
     try
       // if input fields found, try to fill them out
       if (ovElements.item(i).tagName = IEFields[1]) and
         (ovElements.item(i).type = IEFields[2]) then
       begin
         ovElements.item(i).Value := AKennung;
         Inc(IEFieldsCounter);
       end;

       if (ovElements.item(i).tagName = IEFields[3]) and
         (ovElements.item(i).type = IEFields[4]) then
       begin
         ovElements.item(i).Value := APasswort;
         Inc(IEFieldsCounter);
       end;
     except
       // failed...
     end;
   end; { for i...}
 end; { for m }
 // if the fields are filled in, submit.
 if IEFieldsCounter = 3 then
   ExecuteScript(iDoc1, "document.login.submit()",
     "JavaScript");
end;

function LoginGMX_IE(AKennung, APasswort: string): Boolean;
var
 ShellWindow: IShellWindows;
 WB: ShDocVW_TLB.IWebbrowser2;
 spDisp: IDispatch;
 IDoc1: IHTMLDocument2;
 Document: Variant;
 k: Integer;
begin
 ShellWindow := CoShellWindows.Create;
 // get the running instance of Internet Explorer
 for k := 0 to ShellWindow.Count do
 begin
   spDisp := ShellWindow.Item(k);
   if spDisp = nil then
     Continue;
   // QueryInterface determines if an interface can be used with an object
   spDisp.QueryInterface(iWebBrowser2, WB);
   if WB <> nil then
   begin
     WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
     if iDoc1 <> nil then
     begin
       WB := ShellWindow.Item(k) as ShDocVW_TLB.IWebbrowser2;
       Document := WB.Document;
       // if GMX page...
       FillInGMXForms(WB, IDoc1, Document, AKennung, APasswort);
     end; { idoc <> nil }
   end; { wb <> nil }
 end; { for k }
end;

// Example 1: Navigate to the gmx homepage in the IE browser an login

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(Handle,
   "open",
   "http://www.gmx.ch",
   nil,
   nil,
   SW_SHOW);
 Sleep(2000);
 LoginGMX_IE("user@gmx.net", "pswd");
end;

// Example 2: navigate to the gmx homepage in the Webbrowser an login

procedure TForm1.Button2Click(Sender: TObject);
var
 IDoc1: IHTMLDocument2;
 Web: ShDocVW_TLB.IWebBrowser2;
begin
 Webbrowser1.Navigate("http://www.gmx.ch");
 while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
   Application.ProcessMessages;
 Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);
 Web := WebBrowser1.ControlInterface;
 FillInGMXForms(Web, iDoc1, Webbrowser1.Document, "user@gmx.net", "pswd");
end;



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.034 c
1-1110428444
diabolik_krsk
2005-03-10 07:20
2005.03.27
TThread + ListBox + FindNext


3-1109324020
malefik
2005-02-25 12:33
2005.03.27
Параметры в fibdataset...


3-1109321159
juice
2005-02-25 11:45
2005.03.27
где IB Expert хранит свои настройки?


14-1109936690
DelphiN!
2005-03-04 14:44
2005.03.27
Твик RestrictRun


3-1109250563
Антоныч
2005-02-24 16:09
2005.03.27
Помогите составить SQL-запрос