Например, можно отключить различные анимации и эффекты рабочего стола. Сделать это можно выполнив несколько шагов:
Щелкнуть правой кнопкой мыши по пиктограмме: My Computer (Мой компьютер). Выбрать: Properties (Свойства) > вкладка ‘Advanced’ (Дополнительно) > Performance (Быстродействие) > кнопка ‘Settings’ (Параметры) > вкладка ‘Visual effects’ (Визуальные эффекты).
Выбрать: Adjust for best performance (Обеспечить наилучшее быстродействие).
Щелкнуть мышью по кнопке: Apply (Применить).
Этим можно неплохо ускорить работу Windows XP.

Еще можно оптимизировать использование памяти:
Щелкнуть правой кнопкой мыши по пиктограмме: My Computer (Мой компьютер). Выбрать: Properties (Свойства) > вкладка ‘Advanced’ (Дополнительно) > Performance (Быстродействие) > кнопка ‘Settings’ (Параметры) > вкладка ‘Advanced’ (Дополнительно). Выбрать: Processor scheduling (Распределение времени процессора) > Programs (Оптимизировать работу программ).
Выбрать: Memory usage (Использование памяти) > Programs (Оптимизировать работу программ).
Щелкнуть мышью по кнопке: Apply (Применить).

Использование классической темы позволит ускорить работу Windows XP.
Start (Пуск) > Control Panel (Панель управления) > Display (Экран) > Themes (Темы).
Выбрать: Windows Classic (Классическая).
Щелкнуть мышью по кнопке: Apply (Применить).

Использование обоев на рабочем столе увеличивает расход оперативной памяти, убрав обои, можно ускорить работу Windows XP.
Start (Пуск) > Control Panel (Панель управления) > Display (Экран) > Desktop (Рабочий стол).
Выбрать: Background – None (Фоновый рисунок: (нет)).
Щелкнуть мышью по кнопке: Apply (Применить).

Ускорить работу Windows XP можно путем отключения системных Служб. Отключить их можно разными путями: в командную строку ввести команду services.msc или в меню «Администрирование» в разделе «Службы» выбрать свойство нужной службы. Второй путь более рационален, т.к. вы не забудете, что отключали и в любое время можете восстановить – «Настройка системы» (msconfig.exe). Перед отключением какой-либо службы, посмотрите «Зависимости» в свойстве этой службы, какие компоненты зависят от отключаемой вами службы.

С помощью специальных программ можно хорошо ускорить работу Windows XP.
Выполнение таких действий как чистка диска, чистка реестра, дефрагментация диска, оптимизация диска, дефрагментация реестра позволит значительно ускорить работу Windows XP.

Для определения мы будем пользоваться функциями gethostname и gethostbyname из библиотеки winsock.h. Если у вас два и более сетевых подключений, программа покажет IP адрес первого в очереди.

#include <winsock.h>
#include <windows.h>

int main (int argc, char* argv[])
{
const int WSVer = 0×101;
WSAData wsaData;
hostent *h;
char Buf[128];
if (WSAStartup (WSVer, &wsaData) == 0)
{
if (gethostname (&Buf[0], 128) == 0)
{
h = gethostbyname (&Buf[0]);
if (h != NULL) MessageBox (0,inet_ntoa (*(reinterpret_cast<in_addr *>(*(h->h_addr_list)))),0,0);
else MessageBox (0,»Вы не в сети. И IP адреса у вас нет.»,0,0);
}
WSACleanup;
}
return 0;
}

Также можно воспользоваться WinAPI функцией GetAdaptersInfo. Она тебе вернет информацию по всем сетевым адаптерам системы.WinAPI фукнции очень полезная вещь, рекомендую тебе почаще листать справочник.

Узнать MAC адрес можно как предыдущим способом, с помощью GetAdaptersInfo. Но также и другим:

#include <stdio.h>
#include <windows.h>
#include <Winsock2.h>
#include <Iphlpapi.h>

///——– cpp-файл ———-

#include «stdafx.h»
char ip[]=»192.168.100.1″;

int main (int argc, char* argv[])
{
//Будем использовать сокеты
WSADATA WsaData;
DWORD _ip=inet_addr (ip);
if (WSAStartup (0×0202, &WsaData)==NULL)
printf («WSA Starup OK!\n»);

//Создаём UDP-сокет и отсылаем по нему любые данные
SOCKET udp_s;
SOCKADDR_IN udp_sin;
udp_s=socket (AF_INET, SOCK_DGRAM, IPPROTO_UDP);
if (udp_s!=SOCKET_ERROR)
{
udp_sin.sin_family = AF_INET;
udp_sin.sin_port = htons (5232); //Шлём на любой порт.
udp_sin.sin_addr.s_addr = _ip;
if (sendto (udp_s, «TEST», 5, NULL, (SOCKADDR*)&udp_sin, sizeof (udp_sin))>0)
{ //Пакет отослан. Вытаскиваем MAC-адрес из системы
MIB_IPNETTABLE * pIpNetTable = (MIB_IPNETTABLE *) new char[0xFFFF];
ULONG cbIpNetTable = 0xFFFF;
if (NO_ERROR == GetIpNetTable (pIpNetTable, &cbIpNetTable, TRUE))
{
for (DWORD i = 0; i < pIpNetTable->dwNumEntries; i++)
{
if (pIpNetTable->table[i].dwAddr == _ip&&pIpNetTable->table[i].dwType != 2)
{
printf («IP:%s MAC:%X-%X-%X-%X-%X-%X\n», ip,
pIpNetTable->table[i].bPhysAddr[0],
pIpNetTable->table[i].bPhysAddr[1],
pIpNetTable->table[i].bPhysAddr[2],
pIpNetTable->table[i].bPhysAddr[3],
pIpNetTable->table[i].bPhysAddr[4],
pIpNetTable->table[i].bPhysAddr[5]);
delete[] pIpNetTable;
closesocket (udp_s);
WSACleanup ();
return 0;
}
}
printf («MAC-address not found\n»);
delete[] pIpNetTable;
}
else printf («ERROR Open IPMAC table\n»);
}
else printf («Send data ERROR!\n»);

closesocket (udp_s);
}
else printf («ERROR open socket\n»);

WSACleanup (); //Освобождаем ресурсы
return 0;
}

Мой блог находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• языки программирования
• языки программирования скачать


IHTMLDocument2 *HTMLDocument = NULL;
IPersistFile *PersistFile = NULL;
LONG ilFramesCount = 0;
AnsiString slTmpFileExtension = ".html";
// Falls eine Seite geladen:
if(!Form1->CppWebBrowser1->Busy && Form1->CppWebBrowser1->Document &&
AnsiString(Form1->CppWebBrowser1->LocationURL) != "about:blank" &&
SUCCEEDED(Form1->CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDocument)))
{
// HTML-Code des Hauptdokuments speichern:
if(SUCCEEDED(HTMLDocument->QueryInterface(IID_IPersistFile,(LPVOID*)&PersistFile)))
{
// HTML-Code des Hauptdokuments speichern:
PersistFile->Save(WideString(String(ExtractFilePath(ParamStr(0))+"0"+slTmpFileExtension)), false);
PersistFile->Release();
// ggf. auch Frames-Code extrahieren:
IHTMLFramesCollection2 *pFrames = NULL;
if(SUCCEEDED(HTMLDocument->get_frames(&pFrames)))
{
// Anzahl der Frames bestimmen:
pFrames->get_length(&ilFramesCount);
if(ilFramesCount < 2) ilFramesCount= 0;
VARIANT vFrame;
VARIANT ret;
vFrame.vt = VT_UINT;
// f?r jedes Frame:
for(LONG ilFrameIndex = 0; ilFrameIndex < ilFramesCount; ilFrameIndex++)
{
vFrame.lVal = ilFrameIndex;
if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
{
// Zeiger auf IHTMLWindow2 des Frames besorgen:
IHTMLWindow2 *pWindow = NULL;
if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2,
(LPVOID*)&pWindow)))
{
// Zeiger auf IHTMLDocument2 des Frames besorgen:
IHTMLDocument2 *pDoc = NULL;
if(SUCCEEDED(pWindow->get_document(&pDoc)))
{
// Frame in der Datei "Framenummer.html" speichern:
IPersistFile *PersistFile = NULL;
if(SUCCEEDED(pDoc->QueryInterface(IID_IPersistFile,
(LPVOID*)&PersistFile)))
{
PersistFile->Save(WideString(String(ExtractFilePath(ParamStr(0))+
IntToStr(ilFrameIndex+1) + slTmpFileExtension)), false);
PersistFile->Release();
}
pDoc->Release();
}
pWindow->Release();
}
}
}
pFrames->Release();
}
}
HTMLDocument->Release();
TStringList* pFileStrings = new TStringList;
if(pFileStrings)
{
// Die gepufferten Dateien mit dem HTML-Code der
// Seite in die RichEdit einlesen und die Dateien l?schen:
if(FileExists(ExtractFilePath(ParamStr(0))+"0"+slTmpFileExtension))
{
Form1->Memo1->Lines->LoadFromFile(ExtractFilePath(
ParamStr(0))+"0"+slTmpFileExtension);
DeleteFile(ExtractFilePath(ParamStr(0))+"0"+slTmpFileExtension);
}
if(ilFramesCount > 0)
{
for(LONG ilFrameIndex = 0; ilFrameIndex < ilFramesCount; ilFrameIndex++)
{
if(FileExists(ExtractFilePath(ParamStr(0))+IntToStr(
ilFrameIndex+1) + slTmpFileExtension))
{
pFileStrings->LoadFromFile(ExtractFilePath(ParamStr(0))+
IntToStr(ilFrameIndex+1) + slTmpFileExtension);
Form1->Memo1->Lines->Add("\n- - - Frame " +
IntToStr(ilFrameIndex+1) + " - - -");
Form1->Memo1->Lines->Add(pFileStrings->Text);
DeleteFile(ExtractFilePath(ParamStr(0))+IntToStr(
ilFrameIndex+1) + slTmpFileExtension);
}
}
}
delete pFileStrings;
}
}
else Form1->Memo1->Lines->Clear();


Проблема в следующем… Текст извлекаю из известного сайта vkontakte.ru. Предположим, захожу в поиск людей.. мне выводится несколько страниц, к примеру по 10 человек. Копирую текст для первых 10 – всё Ок. А вот если хочу скопировать текст для следущих 10 найденных, то копируется текст снова для первых 10 В код копирования страницы не вникал ибо не особо в этих приёмах разбираюсь, а если начну разбираться то уйдёт на это много времени…
Вопрос в следующем: можно как-нибудь подправить этот код или может, кто в работе с html страницами хорошо разбирается, предложит свой вариант для решения проблемы?

AnsiString GetAllTextFromWebPage(TCppWebBrowser *wb)
{
AnsiString s = wb->OleObject.OlePropertyGet("Document").OlePropertyGet("Body").OlePropertyGet("InnerText");
return s;
}
Сам на днях перерыл много инфы, ни чего толком не нашел, но пришел к такому изяществу, через COM-объект получаешь весь текст на странице
Если нужен HTML код странице, меняешь только значение переменной, кажется так, пробуй:
AnsiString GetHTMLTextFromWebPage(TCppWebBrowser *wb)
{
AnsiString s = wb->OleObject.OlePropertyGet("Document").OlePropertyGet("Body").OlePropertyGet("InnerHtml");
return s;
}

Проблема в том, что в цикле браузер не успевает загрузить содержимое страницы и на этом этапе возникает ошибка доступа. Все решиться если знать как дождаться определенного события = загрузки страницы, и только после этого запускать остальные фунциии цикла, стоит вопрос, как это сделать?

Проблема решается следущим образом, в теле цикла где происходит обработка страницы пишем сразу после того как браузер получает адрес страницы CppWebBrowser->Navigate2(URL)

while (CppWebBrowser->ReadyState != 4)
{
Application->ProcessMessages();;
}

Похожая статья:
Особенности копирования текста страницы в CppWebBrowser на C++ Builder

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• языки программирования скачать
• язык программирования assembler
• программирование на pascal

Я вместо button использовал компонент panel (это моя задумка – во время наведения курсора панелька будет подсвечена, как это реализовать я напишу в самом конце). Под навигацией у меня располагается Edit для ввода адреса, под ним компонент CppWebBrowser, так же нам понадобиться компонент OpenDialod – для просмотра страничек с жесткого диска. Итак, впервую очередь мы распишем событие, совершаемое при нажатии enter в edit (с учетом того, что пользователь указал адрес сайта, событие называется – OnKeyPress). Вот код:

if (Key == VK_RETURN){ // нажат ЕНТЕР
wchar_t URL[100];
Edit1->Text.WideChar(URL,100); //Edit1 принял адрес сайта
CppWebBrowser->Navigate(URL,0,NULL,NULL,NULL); //Адрес направлен на cppwebbrowser, пошла загрузка
}

Далее напишем код для кнопки открыть:

OpenDialog1->Execute(); //Открываем окно выбора файлов
wchar_t URL[100];
Edit1->Text=(OpenDialog1->FileName); //Присваемаем Edit название выбраного файла
Edit1->Text.WideChar(URL,100);
CppWebBrowser->Navigate(URL,0,NULL,NULL,NULL);

Кнопка назад:

CppWebBrowser->GoBack();

Кнопка вперед:

CppWebBrowser->GoForward();

Кнопка стоп:

[block]2[/block]->Stop();

Кнопка Обновить:

[block]3[/block]->Refresh();

Все готово =) Браузер будет спокойно бороздить просторы инета, под вашим чутким контролем. Теперь я распишу то, как менять цвет панелек при наведении. Итак, для начала обговорим, что стандартным цветом наших panel будет – clBtnFace. Теперь ставим на OnMouseMove, следующий код:

Panel1->Color=clSkyBlue; //я выбрал цвет - небесно синий

В результате чего, при наведии панель поменяет цвет, теперь заставим вернуть ее преждний цвет (если пользователь убрал мышь). Сперва, мы должны выбрать событие OnMouseMove для Form1 и теперь пишем код:

Panel1->Color=clBtnFace; //результат панель приняла стандартный цвет

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• языки программирования скачать
• язык программирования assembler
• программирование на pascal

function CreateFile(IpFileName: PChar; dwDesiredAccess,

dwShareMode: DWORD; IpSecurityAttributes: PSecurityAttributes;

dwCreationDistribution, dwFlagsAndAttributes: DWORD;

hTemplateFile: THandle): THandle

Хоть ее название и начинается с create, но она позволяет не только создавать, но и открывать уже существующие файлы.

Такое огромное количество параметров оправдано, т. к. createFile используется для открытия файлов на диске, устройств, каналов, портов и вообще любых источников ввода/вывода.

Функция createFile возвращает дескриптор открытого объекта ввода/вывода. Если открытие невозможно из-за ошибок, возвращается код INVALID_HANDLE_VALUE, а расширенный код ошибки можно узнать, вызвав функцию GetLastError.

Закрывается файл в Win32 функцией closeHandie (не closeFile, a closeHandle! Правда, «легко» запомнить? Что поделать, так их назвали разработчики Win32).

Приведем из большого разнообразия несколько приемов использования функции CreateFile. Часто программисты хотят иметь возможность организовать посекторный доступ к физическим устройствам хранения — например к дискете. Сделать это не так уж сложно, но при этом методы для Windows 98 и Windows 2000 различаются. В Windows 2000 придется открывать устройство (‘\\.\A:’), а в Windows 98 — специальный драйвер доступа (обозначается ‘\\.\vwin32′). И то и другое делается функцией createFile.

Чтение сектора с дискеты при помощи функции CreateFile

type

pDIOCRegs = ^TDIOCRegs;

TDIOCRegs = packed record

rEBX,rEDX,rECX,rEAX,rEDI, rESI, rFlags : DWORD;

end;

const VWIN32_DIOC_DOS_IOCTL = 1;

VWIN32_DIOC_DOS_INT13 = 4; //Прерывание 13

SectorSize = 512;

function ReadSector(Head, Track, Sector: Integer; buffer : pointer;

Floppy: char):Boolean;

var hDevice : THandle;

Regs : TDIOCRegs;

DevName : string; nb : Integer;

begin

if WIN32PLATFORM <> VER_PLATFORM_WIN32_NT then

begin {win95/98} hDevice := CreateFile(‘\\.\vwin32′, GENERIC_READ, 0, nil, 0,

FILE_FLAG_DELETE_ON_CLOSE, 0);

if (hDevice = INVALID_HANDLE_VALUE) then

begin

Result := FALSE;

Exit; end;

regs.rEDX := Head * $100 + Ord(Floppy in ['b', 'B']);

regs.rEAX := $201; // KOH onepam-iM read sector

regs.rEBX := DWORD(buffer); // buffer

regs.rECX := Track * $100 + Sector;

regs.rFlags := $0;

Result := DeviceloControl(hDevice,VWIN32_DIOC_DOS_INT13,

@regs, sizeof(regs), @regs, sizeof(regs), nb, nil)

and ((regs.rFlags and $1)=0); CloseHandle(hDevice);

end {win95/98}

else

begin // Windows NT/2000

DevName :=’\\.\A:’;

if Floppy in ['b', 'B'] then DevName[5] := Floppy;

hDevice := CreateFile(pChar(Devname), GENERIC_READ, FILE_SHARE_READ

or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if (hDevice = INVALID_HANDLE_VALUE) then

begin

Result := FALSE;

Exit;

end;

SetFilePointer(hDevice, (Sector-1)*SectorSize, nil, FILE_BEGIN); // нумерация с 1

Result := ReadFile(hDevice, buffer’;, SectorSize, nb, nil) and (nb=SectorSize);

CloseHandle(hDevice);

end; // Windows NT/2000

end;

Для чтения и записи данных в Win32 используются функции:

function ReadFile(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD; var IpNumberOfBytesRead: DWORD; IpOverlapped: POverlapped): BOOL; function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD; var IpNumberOfBytesWritten: DWORD; IpOverlapped: POverlapped): BOOL;

Здесь все сходно с BlockRead и Blockwrite: hFile — это дескриптор файла, Buffer — адрес, по которому будут читаться (писаться) данные; третий параметр означает требуемое число читаемых (записываемых) байтов, а четвертый — фактически прочитанное (записанное). Последний параметр — IpOverlapped — обсудим чуть позже.

Функция createFile используется и для доступа к портам ввода/вывода. Часто программисты сталкиваются с задачей: как организовать обмен данными с различными нестандартными устройствами, подключенными к параллельному или последовательному порту? В Turbo Pascal для DOS был очень хороший псевдомассив Ports: пишешь Port[x] := у; и не знаешь проблем. В Win32 прямой доступ к портам запрещен и приходится открывать их как файлы:

…

hCom := CreateFile(‘COM2′, GENERIC_READ or GENERIC_WRITE,

0, NIL, OPEN_EXISTING, FILE_FLAG__OVERLAPPED, 0) ;

if hCom = INVALID_HANDLE_VALUE then

begin

raise EAbort.CreateFmt(‘Ошибка открытия порта: %d*,[GetLastError]);

end;

Самое большое отличие от предыдущего примера — в скромном флаге FILE_FLAG_OVERLAPPED.

Расстановка 8 ферзей. Исходный код

Uses CRT;
Const N = 8; // 8 Клеток
M = 8; // 8 Ферзей
Type Queen = record
X,Y : Integer;
End;
Var A : Array[1..N, 1..N] Of Integer;
K : Array[1..M] Of Queen;
I,J,Q,X,Y : Integer;


Procedure ClearQueen;
Var I : Integer;
Begin
For I := 1 To M Do
Begin
K[I].X := 0;
K[I].Y := 0;
End;
End;

Procedure ShowQueen;
Var I : Integer;
Begin
For I := 1 To M Do
WriteLn(‘Q’,I, ‘ [', K[I].X, ‘,’, K[I].Y, ‘]’);
End;

Procedure SetQueen;
Begin
For I := 1 To M Do
If (K[I].X <> 0) And (K[I].Y <> 0) Then
A[K[I].X, K[I].Y] := I;
End;

Procedure ClearArray;
Var I,J : Integer;
Begin
For I := 1 To N Do
For J := 1 To N Do
A[I, J] := 0;
End;

Procedure ShowArray;
Var I,J : Integer;
Begin
For I := 1 To N Do
Begin
For J := 1 To N Do
Write(A[I, J]:3);
WriteLn;
End;
End;

Procedure SetArray(X,Y : Integer);
Var I,J : Integer;
Begin
For I := 1 To N Do Inc(A[I,Y]);
For I := 1 To N Do Inc(A[X,I]);
For I := -N To N Do
If (X+I>=1) And (X+I<=N) And (Y+I>=1) And (Y+I<=N) Then Inc(A[X+I,Y+I]); For I := -N To N Do If (X+I>=1) And (X+I<=N) And (Y-I>=1) And (Y-I<=N) Then
Inc(A[X+I,Y-I]);
End;

Function CountArray:Integer;
Var I,J,S : Integer;
Begin
S := 0;
For I := 1 To N Do
For J := 1 To N Do
If A[I, J] = 0 Then Inc(S);
CountArray := S;
End;

Begin
ClrScr;
ClearArray;
ClearQueen;

// =ЦЕЛОЕ((B2-1)/8)+1
// =B2-8*(C2-1)

Q := 1;
I := 1;

While (Q <= M) Do Begin X := Trunc((I-1)/N)+1; Y := I-N*(X-1); If A[X,Y] = 0 Then Begin SetArray(X,Y); K[Q].X := X; K[Q].Y := Y; Inc(Q); End Else Inc(I); If I > N*N
Then
Begin
Dec(Q);
I := 1+((K[Q].X – 1) * N + K[Q].Y);
K[Q].X := 0;
K[Q].Y := 0;

ClearArray;
For J := 1 To Q-1 Do SetArray(K[J].X,K[J].Y);
End;

End;

ClrScr;
ShowQueen;
ClearArray;
SetQueen;
ShowArray;

End.

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• программирование C++
• языки программирования скачать
• язык программирования assembler
• программирование на pascal


int col[8], up_free[15], dn_free[15], coln[8] ;

main( )
{
int i ;

for ( i = 0 ; i <= 7 ; i++ )
col[i] = 1 ;
for ( i = 0 ; i <= 14 ; i++ )
up_free[i] = dn_free[i] = 1 ;
clrscr( ) ;
addqueen( ) ;
}

addqueen( )
{
int i, c, r ;
static int comb, row = -1 ;

row++ ;

/* Проверяем колонки */
for ( i = 0 ; i <= 7 ; i++ ) { /* если клетка не находится под ударом */ if ( col[i] && up_free[i+row] && dn_free[row-i+7]) { /* запоминаем, что в строке находится ферзь */ coln[row] = i ; /* маркируем колонку и диагональ */ col[i] = 0 ; up_free[i+row] = 0 ; dn_free[row-i+7] = 0 ; /* если заполнены все строки */ if ( row >= 7 )
{
comb++ ;
printf ( «\n\n\ncombination no. %d», comb ) ;
for ( r = 0 ; r <= 7 ; r++ )
{
printf ( «\n» ) ;
for ( c = 0 ; c <= 7 ; c++ )
{
if ( c == coln[r] )
printf ( » Q » ) ;
else
printf ( » . » ) ;
}
}
}
else
addqueen( ) ;

/* снимаем пометку с колонки и диагонали */
col[ coln[row] ] = 1 ;
up_free[ row + coln[row] ] = 1 ;
dn_free[ row - coln[ row ] + 7 ] = 1 ;
}
}
row– ; /* уменьшаем счетчик строк, пробуем следующую комбинацию */
}

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• программирование C++
• языки программирования скачать
• язык программирования assembler
• программирование на pascal

Комплексные числа в Delphi 7. Код программы

interface

type
float = extended;

ComplexPtr = ^Complex;
Complex = record
a, b: float;
end;

function C_Copy(a: ComplexPtr): ComplexPtr; // result:=a

function C_One: ComplexPtr; // result:=1 Оба
function C_I: ComplexPtr; // result:=i Прямоугольные
function C_IP: ComplexPtr; // result:=i Поляризованные
procedure C_P2R(a: ComplexPtr); // поляризованный в прямоугольный
procedure C_R2P(a: ComplexPtr); // прямоугольный в поляризованный
function C_abs(a: ComplexPtr): float; // Прямоугольные
function C_arg(a: ComplexPtr): float; // Прямоугольные
function C_re(a: ComplexPtr): float; // Поляризованные
function C_im(a: ComplexPtr): float; // Поляризованные
procedure C_Inv(a: ComplexPtr); // a:=-a Прямоугольные
procedure C_InvP(a: ComplexPtr); // a:=-a Поляризованные
procedure C_Conj(a: ComplexPtr); // a:=konjug(a) Оба
function C_ConjN(a: ComplexPtr): ComplexPtr; //result:=konjug(a) Оба
procedure C_Scale(a: ComplexPtr; u: float); // a:=a*u;
procedure C_ScaleP(a: ComplexPtr; u: float); // a:=a*u;

procedure C_Add(a, b: ComplexPtr); //a:=a+b Прямоугольный
function C_AddN(a, b: ComplexPtr): ComplexPtr; //result:=a+b Прямоугольный
procedure C_Sub(a, b: ComplexPtr); //a:=a-b Прямоугольный
function C_SubN(a, b: ComplexPtr): ComplexPtr; //result:=a-b Прямоугольный
procedure C_Mul(a, b: ComplexPtr); //a:=a*b Прямоугольный
function C_MulN(a, b: ComplexPtr): ComplexPtr; //result:=a*b Прямоугольный
procedure C_MulP(a, b: ComplexPtr); //a:=a*b Поляризованный
function C_MulNP(a, b: ComplexPtr): ComplexPtr; //result:=a*b Поляризованный
procedure C_DivP(a, b: ComplexPtr); //a:=a/b Поляризованный
function C_DivNP(a, b: ComplexPtr): ComplexPtr; //result:=a/b Поляризованный
procedure C_Div(a, b: ComplexPtr); //a:=a/b Поляризованный
function C_DivN(a, b: ComplexPtr): ComplexPtr; //result:=a/b Поляризованный
function C_ExpN(a: ComplexPtr): ComplexPtr; // Прямоугольный
function C_LogN(a: ComplexPtr): ComplexPtr; // Поляризованный
function C_SinN(a: ComplexPtr): ComplexPtr;
function C_CosN(a: ComplexPtr): ComplexPtr;
function C_TanN(a: ComplexPtr): ComplexPtr;
function C_SinhN(a: ComplexPtr): ComplexPtr;
function C_CoshN(a: ComplexPtr): ComplexPtr;
function C_TanhN(a: ComplexPtr): ComplexPtr;
function C_IntPowerN(a: ComplexPtr; n: integer): ComplexPtr; // Прямоугольный
function C_IntPowerNP(a: ComplexPtr; n: integer): ComplexPtr; // Поляризованный

function C_ParallelN(a, b: ComplexPtr): ComplexPtr;
// result:=a//b =(a*b)/(a+b) Прямоугольный

implementation

uses math;

const
AlmostZero = 1E-30;

function C_Copy(a: ComplexPtr): ComplexPtr; // result:=a
begin
result := new(ComplexPtr);
result.a := a.a;
result.b := a.b;
end;

function C_One: ComplexPtr; // result:=1
begin
result := new(ComplexPtr);
result.a := 1;
result.b := 0;
end;

function C_I: ComplexPtr; // result:=i Прямоугольный
begin
result := new(ComplexPtr);
result.a := 0;
result.b := 1;
end;

function C_IP: ComplexPtr; // result:=i Поляризованный
begin
result := new(ComplexPtr);
result.a := 1;
result.b := pi / 2;
end;

procedure C_P2R(a: ComplexPtr);
var
t, u, v: float;
begin
t := a.a;
sincos(a.b, u, v);
a.a := t * v;
a.b := t * u;
end;

procedure C_R2P(a: ComplexPtr);
var
t: float;
begin
t := a.a;
a.a := sqrt(sqr(a.a) + sqr(a.b));
if (abs(t)0 then a.b := pi / 2
else
a.b := -pi / 2;
end
else
begin
a.b := arctan(a.b / t);
if (t < 0) then
a.b := a.b + pi;
end;
end;

function C_abs(a: ComplexPtr): float;
begin
result := sqrt(sqr(a.a) + sqr(a.b));
end;

function C_arg(a: ComplexPtr): float;
begin
if (abs(a.a)0 then result := pi / 2
else
result := -pi / 2;
end
else
begin
result := arctan(a.b / a.a);
if (a.a < 0) then
result := result + pi;
end;
end;

function C_re(a: ComplexPtr): float; // ПОЛЯРИЗОВАННЫЙ
begin
result := a.a * cos(a.b);
end;

function C_im(a: ComplexPtr): float; // ПОЛЯРИЗОВАННЫЙ
begin
result := a.a * sin(a.b);
end;

procedure C_Inv(a: ComplexPtr); // a:=-a Прямоугольный
begin
a.a := -a.a;
a.b := -a.b;
end;

procedure C_InvP(a: ComplexPtr); // a:=-a ПОЛЯРИЗОВАННЫЙ
begin
a.b := a.b + pi;
end;

procedure C_Conj(a: ComplexPtr); // a:=konjug(a) Оба
begin
a.b := -a.b;
end;

function C_ConjN(a: ComplexPtr): ComplexPtr; //result:=konjug(a) Оба
begin
result := new(ComplexPtr);
result.a := a.a;
result.b := -a.b;
end;

procedure C_Scale(a: ComplexPtr; u: float); // a:=a*u;
begin
a.a := a.a * u;
a.b := a.b * u;
end;

procedure C_ScaleP(a: ComplexPtr; u: float); // a:=a*u;
begin
a.a := a.a * u;
end;

procedure C_Add(a, b: ComplexPtr); //a:=a+b ПРЯМОУГОЛЬНЫЙ
begin
a.a := a.a + b.a;
a.b := a.b + b.b;
end;

function C_AddN(a, b: ComplexPtr): ComplexPtr; //result:=a+b ПРЯМОУГОЛЬНЫЙ
begin
result := new(ComplexPtr);
result.a := a.a + b.a;
result.b := a.b + b.b;
end;

procedure C_Sub(a, b: ComplexPtr); //a:=a-b ПРЯМОУГОЛЬНЫЙ
begin
a.a := a.a – b.a;
a.b := a.b – b.b;
end;

function C_SubN(a, b: ComplexPtr): ComplexPtr; //result:=a-b ПРЯМОУГОЛЬНЫЙ
begin
result := new(ComplexPtr);
result.a := a.a – b.a;
result.b := a.b – b.b;
end;

procedure C_Mul(a, b: ComplexPtr); //a:=a*b ПРЯМОУГОЛЬНЫЙ
var
u, v: float;
begin
u := a.a * b.a – a.b * b.b;
v := a.a * b.b + a.b * b.a;
a.a := u;
a.b := v;
end;

function C_MulN(a, b: ComplexPtr): ComplexPtr; //result:=a*b ПРЯМОУГОЛЬНЫЙ
begin
result := new(ComplexPtr);
result.a := a.a * b.a – a.b * b.b;
result.b := a.a * b.b + a.b * b.a;
end;

procedure C_MulP(a, b: ComplexPtr); //a:=a*b ПОЛЯРИЗОВАННЫЙ
begin
a.a := a.a * b.a;
a.b := a.b + b.b;
end;

function C_MulNP(a, b: ComplexPtr): ComplexPtr; //result:=a*b ПОЛЯРИЗОВАННЫЙ
begin
result := new(ComplexPtr);
result.a := a.a * b.a;
result.b := a.b + b.b;
end;

procedure C_Div(a, b: ComplexPtr); //a:=a/b ПРЯМОУГОЛЬНЫЙ
var
t: float;
begin
t := a.a / b.a + a.b / b.b;
a.b := -a.a / b.b + a.b / b.a;
a.a := t;
end;

function C_DivN(a, b: ComplexPtr): ComplexPtr; //result:=a/b ПРЯМОУГОЛЬНЫЙ
begin
result := new(ComplexPtr);
result.a := a.a / b.a + a.b / b.b;
result.b := -a.a / b.b + a.b / b.a;
end;

procedure C_DivP(a, b: ComplexPtr); //a:=a/b ПОЛЯРИЗОВАННЫЙ
begin
a.a := a.a / b.a;
a.b := a.b – b.b;
end;

function C_DivNP(a, b: ComplexPtr): ComplexPtr; //result:=a/b ПОЛЯРИЗОВАННЫЙ
begin
result := new(ComplexPtr);
result.a := a.a / b.a;
result.b := a.b – b.b;
end;

function C_ExpN(a: ComplexPtr): ComplexPtr; // RECTANGLE
begin
result := new(ComplexPtr);
result.a := exp(a.a);
result.b := a.b;
C_P2R(result);
end;

function C_LogN(a: ComplexPtr): ComplexPtr; // ПОЛЯРИЗОВАННЫЙ
begin
result := new(ComplexPtr);
result.a := ln(a.a);
result.b := a.b;
C_R2P(result);
end;

function C_SinN(a: ComplexPtr): ComplexPtr;
var
z, n, v, t: ComplexPtr;
begin
t := C_I;
v := C_MulN(a, t); // i*a
z := C_expN(a); // exp(i*a)
t := C_Copy(v);
C_Inv(t); // -i*a
t := C_ExpN(v); // exp(-i*a)
C_Sub(z, t);
n := C_I;
C_Scale(n, 2);
result := C_DivN(z, n);
dispose(z);
dispose(n);
dispose(v);
dispose(t);
end;

function C_CosN(a: ComplexPtr): ComplexPtr;
var
z, n, v, t: ComplexPtr;
begin
t := C_I;
v := C_MulN(a, t); // i*a
z := C_expN(a); // exp(i*a)
t := C_Copy(v);
C_Inv(t); // -i*a
t := C_ExpN(v); // exp(-i*a)
C_Add(z, t);
n := C_One;
C_Scale(n, 2);
result := C_DivN(z, n);
dispose(z);
dispose(n);
dispose(v);
dispose(t);
end;

function C_TanN(a: ComplexPtr): ComplexPtr;
begin

end;

function C_SinhN(a: ComplexPtr): ComplexPtr;
var
u, v, t: ComplexPtr;
begin
u := C_ExpN(a);
t := C_Copy(a);
C_inv(t);
v := C_ExpN(t);
result := C_SubN(u, v);
C_Scale(result, 1 / 2);
dispose(u);
dispose(v);
dispose(t);
end;

function C_CoshN(a: ComplexPtr): ComplexPtr;
var
u, v, t: ComplexPtr;
begin
u := C_ExpN(a);
t := C_Copy(a);
C_inv(t);
v := C_ExpN(t);
result := C_AddN(u, v);
C_Scale(result, 1 / 2);
dispose(u);
dispose(v);
dispose(t);
end;

function C_TanhN(a: ComplexPtr): ComplexPtr;
begin

end;

function C_IntPowerN(a: ComplexPtr; n: integer): ComplexPtr;
var
j: integer;
u, v: float;
begin
if n = 0 then
result := C_One
else
begin
result := C_Copy(a);
if n > 1 then
begin
C_R2P(result);
u := result.a;
v := result.b;
for j := 2 to n do
begin
u := u * result.a;
v := v + result.b;
end;
result.a := u;
result.b := v;
C_P2R(result);
end;
if n < 0 then
begin

end;
end;
end;

function C_IntPowerNP(a: ComplexPtr; n: integer): ComplexPtr;
var
j: integer;
u, v: float;
begin
result := C_Copy(a);
u := result.a;
v := result.b;
for j := 2 to n do
begin
u := u * result.a;
v := v + result.b;
end;
result.a := u;
result.b := v;
end;

function C_ParallelN(a, b: ComplexPtr): ComplexPtr;
// result:=a//b = (a*b)/(a+b)
var
z, n: ComplexPtr;
begin
z := C_MulN(a, b);
n := C_AddN(a, b);
C_R2P(n);
C_R2P(z);
result := C_DivNP(z, n);
C_P2R(result);
dispose(n);
dispose(z);
end;

end.

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• программирование C++
• языки программирования скачать
• язык программирования assembler
• программирование на pascal

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• программирование C++
• языки программирования скачать
• язык программирования assembler
• программирование на pascal

Это – обучающая программа которая должна вам показать основы защиты ваших страниц в сети, использующие HTTP аутентификацию. Вместо традиционного .htaccess метода (Apache сервер), мы собираемся использовать для хранения данных о пользователях и их пароли в MySQL. Я постараюсь максимально разжевать все на, что по моему разумению требуется для начинающего изучать MySQL и PHP. В принципе на основе этой программы вы можете использовать любой DBMS (система управления базы данных). Почему интересен этот метод? Ну например хотя бы потому что, если Вы используете базу данных, вы можете с легкостью разрешить, только определенной группе (человеку) иметь определенные права для доступа к той или иной информации. Если Вы используете традиционный .htaccess метод Apache, Вы должны вручную добавлять пользователей и пароль в файле пароля. А преимущество данного метода, ну….взгляните сами.
Программное обеспечение которое необходио:

· *nix платформа (Linux, Unix, *BSD) · PHP 3.0.x или PHP 4.x · MySQL (любая версия)
Шаг номер один

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

1. Проверить, заверен ли пользователь уже.
2. Если нет, отправить сообшение в броузер, с сообщением и формой для доступа.
3. Если пользователь княпает на кнопку отмены, не позволить ему доступ и переадресовывать его идти на… 403: Доступ отвергнут, или показать (кукиш J ) простое сообщение.
4. Если пользователь заполнил username и комбинацию пароля, проверьте их в MySQL базе данных и удостоверятся, что они верны, при положительном исходе разрешить доступ.

Если Вы не поняли все не волнуйтесь, станет ясно позже (а может никогда)!

Шаг Два – Создаем Нашу Базу данных

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

mysql> create database members;
mysql> create table users (
username varchar(25) NOT NULL,
password varchar(15) NOT NULL,
primary key (username),
unique username (username)
);

Мы теперь имеем базу данных, чтобы хранить в ней пользователей, она предполагает, что username до 25 знаков, и пароли до 15 знаков. (если вам по каким-то причинам не подходит, установите как посчитаете Нужным) Username должен иметь значение «первичный ключ» и быть «уникальным», так как мы не хотим чтоб 2 или больше людей имели одинаковый username.
Пожалуйста обратите внимание, что usernames будет чувствитен к следующему случаю, пользователь ‘Vasya’ будет идентифицирован другим, нежели пользователь ‘vasya’, проще говоря чувствителен к регистру. Теперь мы добавим в MySQL тестового пользователя, чтобы использовать его дянные для тестов, когда мы создадим PHP страницу.

mysql> grant select on members.users
to httpuser@localhost
identified by 'MyPassword';

Это для того чтоб, когда мы хотим проверить пользователя и пароль, человека зарегистрировавшегося в нашей базе данных, мы будем использовать пользователя «httpuser» с паролем «MyPassword». Наконец мы должны добавить логин и пароль человека, которому мы хотим позволить доступу .

mysql> insert into users value('john_doe', 'eod_nhoj');

Я сознательно в проге не шифровал данные, для того, чтоб в случае утери пароля не дешифровать его, и упростить до минимума получения оного : )) Все, с MySQLпокончено теперь идем дальше!

Шаг Три – пишем PHP код.

Прежде, чем мы начинаем, я опишу вкратце то, что будет делать пага. Когда Вы попадете на защищенную страницу то сервер пошлет запрос и выведет страницу для введения имени и пароля. Если вы нажмете на кнопку отмены или введете не правильные данные то сервер отправит вам ( 401 Неправомочный удар головой, и будет отрицать доступ. ) – так переводит промпт обычно строку (401 Unauthorized header, and deny access) не буду пояснять по моему лучше не скажешь!!! При случае если вы все введете как надо, то окажется что просто напросто вы получите доступ (то что и требовалось доказать) Теперь самое веселое, это и есть тот самый код. Он написан сознательно с номерами строк, после кода (внизу) даны пояснения к строкам.

---
01 <?php
02
03 function access_denied() {
04 echo "401 Unauthorized: The username / password combination you entered was invalid.n";
05 }
06
07 function auth_headers($title) {
08 Header("WWW-Authenticate: Basic realm="$title"");
09 Header("HTTP/1.0 401 Unauthorized");
10 }
11
12 if(!isset($PHP_AUTH_USER)) {
13 auth_headers("My Protected Web Page");
14 access_denied();
15 exit;
16 }
17 else {
18
19 $hostname = "localhost";
20 $username = "httpuser";
21 $password = "MyPassword";
22 $database = "members";
23
24 $query = "select username,password from users where username='$PHP_AUTH_USER' and password='$PHP_AUTH_PW'";
25 $link = mysql_connect($localhost, $username, $password) or die("Unable to connect to database server");
26
27 if (mysql_num_rows(mysql_db_query($database, $query)) == 0) {
28 auth_headers("My Protected Web Page");
29 access_denied();
30 exit;
31 }
32
33 mysql_close($link);
34 }
35 ?>

Вот и весь фокус – покус, работает проверенно можете использовать, где хотите когда хотите и как хотите, меняйте, улучшаете, если вам удасться сократить код до двух строк при сохранении функциональных возможностей проги, то обязательно пришлите его мне!!!

В этой секции мы быстро исследуем каждую линию, чтоб предупредить зарание пылкий обмен вопросами в коментариях к данной статейке.

Строка 3:
Эта функция покажет сообщение, если «злой юзер» упорно будет вводить левые данные. Я сделал это функцией, потому что используем ее дважды, и просто чтоб сократить исходный код.
Строка 7:
Так как мы используем этот заголовок тоже дважды я также сделал это функцией.
Строка 8:
Передать броузеру заголовок, который заставит таки юзера ввести логин и пароль. Переменная $title будет показана в login диалоге.
Строка 9:
При первом запросе выводится заголовок при повторной отмене выводит сообщение о запрете доступа.
Строка 12:
$PHP_AUTH_USER цикл который выводит сообщение о том что мол пага защищена, и убирайся вон!
Строка 19-23:
Это то что кроме вас никто не знает, то есть средства для коннекта с базой данных, имя хоста, имы базы, имя юзера, и пароль. (для соеденения с MySQL)
Строка 24:
Запрос к MySQL который возвращает имена и пароли.
Строка 25:
Установить связь с MySQL и вывести ругательство если связи не будет!!! (это значит что у вас что-то не то в строках 19-23, или вообще нет MySQL)
Строка 27:
Обработать $query. Если возвращет – 0, это означает, что была введена недействительная комбинация.
Строка 33:
Разъединить соеденение с MySQL.

Я рекомендовал бы сохранить PHP код в файле под наванием user_auth.php, user_auth.php3, или… (тут ваша фантазия на эту тему) Предположим, что таки сохранили этот код в файле user_auth.php. Всякий раз, когда мы захотим вдруг защитить нашу сверхсекретную пагу в сети, мы просто подключаем этот файл. Единственное на что хочется обратить внимание, что по логике надо подключать в самой верхней части своей защищенной PHP страницы, советую в строке номер 1 ваше паги написать следующее:

<?php require("user_auth.php"); ?>

где «user_auth.php» это имя файла под которым вы сохранили код.

Ваш вопрос – я не использую MySQL, как быть?
Посоветуйтесь с админом вашего сервера, если он окажется добрым, то он вам поможет, для него это 5 минут работы, если злой то не поможет, тогда идите на форум относящийся к той БД которую вы исьпользуете и кричите о помощи! Или если вы считаете себя нормальным программером, то…вам вообще этот код не понадобиться, и вы будите создавать «сессии», шифровать с помощью PGP вобщем извращаться так, как быдто вы делаете защиту для amazon.com

Удачи! : )

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• языки программирования скачать
• язык программирования assembler
• программирование на pascal