равно - Поиск - Библиотека программиста

Поиск

Использование инфракрасного порта в XP

Дата: 25.03.2025 Модуль: Категория: Операционные системы (ОС)

До появления Windows XP даже самым опытным специалистам отделов ИТ было нелегко добиться корректной работы инфракрасного порта. Приходилось преодолевать многочисленные проблемы с драйверами, и, даже если ИК-порт одной машины функционировал исправно, не действовал порт на другой.

Благодаря Windows XP положение изменилось. Впервые многие пользователи смогли оценить наличие ИК-портов у своих ноутбуков. IrDA-порт ноутбука обеспечивает соединение на линии прямой видимости на расстоянии до 2м.

У большинства новых ноутбуков скорость передачи данных достигает 4Мбит/с.

Какие же выгоды дает исправно функционирующий ИК-порт?

- Синхронизация. Вероятно, самое известное применение - синхронизация устройств Palm и карманных ПК без док-станций. Конечно, с такой станцией время пересылки данных было бы несколько меньше, но важно то, что цель достигается.

- Печать. В некоторых принтерах так же есть ИК-порты, и файлы из ноутбука можно распечатать, не подключая его к сети. Чтобы установить связь с принтером, нужно вызвать «мастера» Add Printer, щелкнув на пиктограмме Printers and Faxes в Панели управления. Следуйте указаниям «мастера» и выберите локальный ИК-порт для загрузки драйвера принтера.

- Пересылка файлов. Через ИК-порт можно пересылать файлы между ноутбуками, неподключенными к сети. Разместите два ноутбука таким образом, чтобы ИК-порт каждого из них находился «в поле зрения» другого.

Затем соберите файлы и перешлите их с одного ноутбука на другой. В качестве меры предосторожности принимающий ноутбук «испросит» у пользователя разрешения принять файлы. Достаточно щелкнуть на кнопке OK, и все остальные действия будут выполнены автоматически.

Многих пользователей интересует Bluetooth. Эта беспроводная технология обладает большей дальностью действия, но максимальная пропускная способность составляет лишь 1Мбит/с. Вероятно, в будущем она вытеснит ИК, но в настоящее время ИК-порт есть почти на каждом ноутбуке, чего не скажешь о Bluetooth.

Разместил: admin Смотрим и оставляем комментарий »

Поисковая оптимизация - простых путей нет

Дата: 25.03.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Раскрутка сайта - с чего начать?

Дата: 25.03.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Как попасть на первую страницу поисковика?

Дата: 25.03.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Раскрутка - неочевидные аспекты

Дата: 25.03.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Kак увеличить посещаемость сайта

Дата: 25.03.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Протоколы обмена маршрутной информацией стека TCP/IP

Дата: 25.03.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Пример работы с сессиями

Дата: 25.03.2025 Модуль: Категория: PHP

Все, что мы записываем в переменную $s (массив), будет доступно для чтения при следующем заходе посетителя на сервер. Про сессии, на самом деле, можно сказать очень много, чтобы описать возможности и особенноти.. Но если вы поюзаете пример и попробуете использовать в своих задачах, сами поймете.

PHP - Код


unset($s); // думаю, это писать не надо, но это явно не повредит

   session_start(); // это равносильно HEADERS() и SETCOOKIES(), до вызова функции

                    // ничего на экран не выводить

   session_register("s"); // объявляем, что $s является частью сессии





   if (isset($c) && $c=='clear') {

      // функция обнуления идентификации посетителя.

      unset($s);

      header("Location: sess.phtml");

      echo "clear...";

      exit;

   }



   echo "<a href=sess.phtml>обновить страницу</a><p>";

   echo "<a href=sess.phtml?c=clear>обнулить идентификацию</a><p>";



   if (!isset($s['count'])) {

      // Посетитель пришел впервые. Объявляем переменную, которая 

      // должны быть всегда. Это счетчик загрузок страницы.

      $s['count']=1;

   }

   else $s['count']++;

   echo "Вы загружили эту страницу раз: $s[count]<p>";



   // обработка формы, заполняемой посетителем

   // если введено имя, заносим в сессию

   if (strlen($name)>1) $s['name']=$name;



   if (!isset($s['name']))

      // если имя еще не введено, выводим форму для ввода

      echo "Вы новый пользователь. Пожалуйста,

      введите ваше имя:

      <form action=sess.phtml><input type=text name=name>

      <input type=submit></form>";

   else 

      // иначе пишем имя из сесси

      echo "Вы зарегистрированы под именем: $s[name]";

Разместил: admin Смотрим и оставляем комментарий »

Конструирование Splitter

Дата: 25.03.2025 Модуль: Категория: Delphi и TurboPascal

У меня есть форма с расположенными на ней компонентами TreeView и Memo. Значение свойства align обоих компонентов позволяет им занимать всю форму. Я хотел бы расположить между ними движок типа Splitter, пропорционально меняющий их размеры (один шире, другой меньше и наоборот). Какой компонент мог бы симитировать поведение Splitter и как это реализовать?

Предположим, Ваш TreeView расположен в левой, а Memo в правой части формы. Вам нужно сделать следующее:

* Установите свойство Align компонента TreeView на alLeft.
* Вырежьте (Ctrl-X) компонент TMemo из вашей формы.
* Добавьте компонент Panel и присвойте его свойству Align значение alClient.
* Внутри панели разместите другой компонент Panel.
* Установите его ширину, равной 8 пикселам, свойству Align присвойте значение alLeft.
* Скопируйте вырезанный компонент TMemo в панель Panel1 и присвойте свойству Align значение alClient.

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

Panel2 - движок: теперь вам необходимо добавить процедуры, приведенные ниже. Ваш код будет выглядеть приблизительно так:

Код

type

TForm1 = class(TForm)
TreeView1: TTreeview;
Panel1: TPanel;
Panel2: TPanel;
Memo1: TMemo;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseMove(Sender: TObject; Shift:TShiftState;
X, Y: Integer);
private
Resizing: Boolean;
public
...
end;

procedure TForm1.Panel2MouseDown(Sender: TObject; Button:

TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

Resizing:=true;
end;

procedure TForm1.Panel2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin

Resizing:=false;
end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);
begin

if Resizing then begin
TreeView1.Width:=TreeView1.Width+X;
// Предохранение от странных ошибок перерисовки при изменении размеров:
Panel1.Invalidate;
end;
end;

Разместил: admin Смотрим и оставляем комментарий »

Быстрый поиск в базах данных

Дата: 25.03.2025 Модуль: Категория: Delphi и TurboPascal

Я представляю на Ваш суд утилиту быстрого поиска по базе данных. Данная технология производит поиск по полям, преобразуя их значения в строки (все значения преобразуются в верхний регистр, включая действительные числа).

Данное решение может быть не самым быстрым, однако на поверку оно оказывается быстрее остальных, обнаруженных мною в Интернете (может вам повезет больше). Более того, представьте, что действительное значение какого-либо поля равно 4.509375354, а значение поиска равно 7, в этом случае утилита засчитает "попадание". Утилита удобна также тем, что она за один проход производит поиск более, чем в одном поле.

Это удобно, если у Вас имеются, к примеру, два поля с адресами. Это моя первая "серьезная" разработка, так как первое, с чем я столкнулся, изучая Delphi, стала необходимость включения процедуры поиска в любое приложение, работающее с базой данных. А так как поиск - вещь тоже сугубо специфическая, как и любое приложение, то мне пришлось побороть свой страх перед "крутым программированием" и попробовать написать свой поисковый механизм, удовлетворивший меня (и, надеюсь, других) своей скоростью и возможностью "мульти"-поиска по нескольким полям.

Я надеюсь, что он поможет тем программистам, кто часто сталкивается с подобными задачами. Технология довольно легка для понимания, но если у Вас возникли какие-либо вопросы, пошлите мне письмо электронной почтой, я буду рад Вам помочь. Посмотрев код, можно легко узнать поддерживаемые типы полей (добавить новые не составит проблем).

Код

unit Finder;

interface

uses DB, DBTables, SysUtils;

function GrabMemoFieldAsPChar(TheField : TMemoField): PChar;
function DoFindIn(TheField : TField; SFor : String): Boolean;
function FindIt(TheTable : TDataSet; TheFields : array of integer;

SearchBackward : Boolean; Beginning : Boolean; SFor : String): Boolean;
{применение функции FindIt -

if FindIt(NotesSearchT,
[NotesSearchT.FieldByName('Leadman').Index],
False, True, SearchText.Text) then DoSomething; }

implementation

function GrabMemoFieldAsPChar(TheField : TMemoField): PChar;
begin
with TBlobStream.Create(TheField, bmRead) do

begin
GetMem(Result, Size + 1);
FillChar(Result^, Size + 1, #0);
Read(Result^, Size);
Free;
end;
end;

function DoFindIn(TheField : TField; SFor : String): Boolean;
var

PChForMemo : PChar;
begin
Result := False;
case TheField.DataType of

ftString :
begin
if (Pos(SFor, UpperCase(TheField.AsString)) > 0) then
Result := True;
end;
ftInteger :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftBoolean :
begin
if SFor = UpperCase(TheField.AsString) then
Result := True;
end;
ftFloat :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftCurrency :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftDate .. ftDateTime :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftMemo :
begin
SFor[Ord(SFor[0]) + 1] := #0;
PChForMemo := GrabMemoFieldAsPChar(TMemoField(TheField));
StrUpper(PChForMemo);
if not (StrPos( PChForMemo, @SFor[1] ) = nil) then Result :=
True; FreeMem(PChForMemo, StrLen(PChForMemo + 1));
end;
end;
end;

function FindIt(TheTable : TDataSet; TheFields : array of integer;

SearchBackward : Boolean; Beginning : Boolean; SFor : String): Boolean;
var

i, HighTheFields, LowTheFields : integer;
BM : TBookmark;
begin
TheTable.DisableControls;
BM := TheTable.GetBookmark;
try
LowTheFields := Low(TheFields);
HighTheFields := High(TheFields);
SFor := UpperCase(SFor);
Result := False;
if Beginning then TheTable.First;
if SearchBackward then

begin
TheTable.Prior;
while not TheTable.BOF do
begin
for i := LowTheFields to HighTheFields do
begin
if DoFindIn(TheTable.Fields[TheFields[i]], SFor) then
begin
Result := True;
Break;
end;
end;
if Result then Break else TheTable.Prior;
end;
end else
begin
TheTable.Next;
while not TheTable.EOF do
begin
for i := LowTheFields to HighTheFields do
begin
if DoFindIn(TheTable.Fields[TheFields[i]], SFor) then
begin
Result := True;
Break;
end;
end;
if Result then Break else TheTable.Next;
end;
end;
finally
TheTable.EnableControls;
if not Result then

TheTable.GotoBookmark(BM);
TheTable.FreeBookmark(BM);
end;

end;

end.

Разместил: admin Смотрим и оставляем комментарий »

Всего 55 на 4 страницах по 15 на каждой странице

<< 1 2 3 4

[ Назад | Начало | Наверх ]

Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском