Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> help with code please 
:(
    Опции темы
muratboy31
  Дата 14.1.2010, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
it loads the page but dont stop the blocked sites !!!  and also is there any way that i can make this code shorter  ?


Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:51
PM MAIL   Вверх
Демо
Дата 14.1.2010, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50
У меня де жа вю?


--------------------
    
PM MAIL ICQ Skype   Вверх
muratboy31
  Дата 14.1.2010, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i attached the file, it gives error when i press the enter key in combobox !!!

Это сообщение отредактировал(а) muratboy31 - 15.1.2010, 10:59
PM MAIL   Вверх
neweraser
Дата 14.1.2010, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6
Цитата

Required package 'Embedded_D7' not found

что это за пакет? программа не запускается


--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 14.1.2010, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
there is something wrong but i cant find it...
try this one please and if it still wants the same just remove the component from settings

Это сообщение отредактировал(а) muratboy31 - 15.1.2010, 12:14
PM MAIL   Вверх
neweraser
Дата 14.1.2010, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6
Цитата

if (Pos(BlockedUsers[i],aranan)>0) and (Block = 1) then

c этим не совсем понятно, но xxx блокирует, ошибку не выдает, код уменьшил на 4 строчки  smile 
вот эта строчка не понятно зачем
 
Цитата

//GetActiveEWB.Navigate(URL);

из-за нее ошибку выдает
вот. чем смог тем помог smile

Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
var
  aranan: AnsiString;
  BlockedUsers: TStringList;
  i: Integer;
  ini1 : TINIFile;
  Block : integer;
  URL:string;
  Num:integer;
begin
  if key = #13 then
  begin
    ini1 := TINIFile.Create(ExtractFilePath(Application.ExeName)+'Ayar.INI');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i:= 0 to BlockedUsers.Count - 1 do
    begin
      if (Pos(BlockedUsers[i],aranan)>0) and (Block = 1) then
      begin
        ShowMessage('No View');
        exit;
      end else
      begin
        URL:= IEAddress1.Text;
        if URL <> '' then
         begin
         //GetActiveEWB.Navigate(URL);
           Num:=0;
           while Num < IEAddress1.Items.Count do
             if IEAddress1.Text = IEAddress1.Items[Num] then
             abort
             else
             inc(Num);
             IEAddress1.Items.Add(URL);
         end;
      end;
      end
  finally
    BlockedUsers.Free;
   end;
  end;
end



--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 14.1.2010, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks but after 1 time blocking the site it doesnt block anymore !!!  u get only 1 time No View window and if u press enter again then it doesnt block anymore !!!  and also it must load the web page if it is not blocked so why do i have to remove  //GetActiveEWB.Navigate(URL);



Это сообщение отредактировал(а) muratboy31 - 14.1.2010, 23:48
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i cant see what is wrong with the code but it only works 1 time, if i press enter key for secod time it doesnt block anymore !!!   smile 



Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:52
PM MAIL   Вверх
artsb
Дата 15.1.2010, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
muratboy31, try this:
Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
var
aranan:AnsiString;
BlockedUsers: TStringList;
i: Integer;
ini1 : TINIFile;
Block : integer;
URL:string;
Num:integer;
begin
  if key = #13 then begin
    ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
       if (Pos(BlockedUsers[i],aranan)>0) and (Block=1) then
       begin
       ShowMessage('No View');
       exit;
       end
    end;
    URL:=IEAddress1.Text;
    if URL<>'' then
    begin
         WebBrowser1.Navigate(URL);
         Num:=0;
         while Num<IEAddress1.Items.Count do
         begin
             if IEAddress1.Text = IEAddress1.Items[Num] then
             begin
                abort;
             end else
             begin
                inc(Num);
             end;
         end;
         if Num = IEAddress1.Items.Count then
             IEAddress1.Items.Add(URL);
    end;
  finally
    BlockedUsers.Free;
   end;
  end;
end;


Это сообщение отредактировал(а) artsb - 15.1.2010, 11:42


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks you sooooooo much artsb  smile 
i dont how to thank 
just perfect  smile 


just a small question why it doesnt work with onclick event and on select!!!


Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:52
PM MAIL   Вверх
artsb
Дата 15.1.2010, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  11:45 Найти цитируемый пост)
why it doesnt work with onclick event !!!

Use CloseUp event:
Код

procedure TForm1.IEAddress1CloseUp(Sender: TObject);
begin
 // ...
end;


And for comparison insensitive, you can use:
Код

if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then


Это сообщение отредактировал(а) artsb - 15.1.2010, 11:56


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
this code didnt work oncloseup but it worked onselect... would it cause any problem if i only use it onselect ???

Код

procedure TForm1.IEAddress1CloseUp(Sender: TObject);
var
aranan:AnsiString;
BlockedUsers: TStringList;
i: Integer;
ini1 : TINIFile;
Block : integer;
URL:string;
Num:integer;
begin
    ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
       if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then
       begin
       ShowMessage('No View');
       exit;
       end
    end;
      URL:=IEAddress1.Text;
         if URL<>'' then
         begin
         GetActiveEWB.Go(URL);
         Num:=0;
         while Num<IEAddress1.Items.Count do
         begin
             if IEAddress1.Text = IEAddress1.Items[Num] then
             begin
             abort;
             end else
             begin
             inc(Num);
             end;
             end;
             if Num = IEAddress1.Items.Count then
              IEAddress1.Items.Add(URL);
         end;
  finally
    BlockedUsers.Free;
   end;
end;
PM MAIL   Вверх
artsb
Дата 15.1.2010, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  12:05 Найти цитируемый пост)
this code didnt work oncloseup but it worked onselect...

Oh... Sory. Of course.  smile 

Цитата(muratboy31 @  15.1.2010,  12:05 Найти цитируемый пост)
would it cause any problem if i only use it onselect

IMHO no.


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks arbs  smile 
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
why is it doing that,  if i type 'google' it blocks but if i type 'gOogle' or 'Google' then it doesnt block !!!!
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0571 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.