Для определения мы будем пользоваться функциями 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;

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;

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

PHP является внедряемым языком сценариев. Многое из его синтаксиса заимствовано из C, Java и Perl с некоторыми, заложенными в него, уникальными особенностями. Цель языка состоит в том, чтобы позволить веб-разработчикам быстро создавать динамически генерируемые страницы.

Развитие Сети диктует свои требования по предоставлению пользователю интересующей его информации. Сайт – это не только набор веб-страничек. Это еще и средство для хранения информации, организации обработки запросов пользователя и создания адекватного ответа на пользовательский запрос.

Хранить информацию на сервере можно несколькими способами. Первый – с использованием баз данных. Очень удобный способ хранения больших объемов информации, когда необходимо организовывать выборки, сортировать информацию по различным параметрам и т. д. Если же необходимо обработать небольшой объем информации, да еще и без каких–то ухищрений (например, организовать учет посещений), то подойдет второй способ – размещение информации в файлах.

PHP предоставляет очень большой набор средств по работе с файлами и файловой системой. Рассмотрим подробнее некоторые функции для работы с файлами.

Естественно, для начала работы с файлом его надо открыть. Для этого предназначена функция fopen(). Эту функцию можно использовать для открытия любого файла в файловой системе сервера через HTTP или FTP:

int fopen(string filename, string mode);

filename – имя открываемого файла, mode – указатель на режим открытия файла. Он может принимать одно из следующих значений:

При работе с двоичным файлом, необходимо указать флаг b. Однако, если между двоичными и текстовыми файлами не делается различия (как в системе Unix), то этот флаг игнорируется.

При успешном выполнении функция fopen() возвращает дескриптор файла, который представляет собой целое число. Этот дескриптор предназначен для ссылок на файл при последующих вызовах функций работы с файлами. При неудаче возвращается false.

Пример:

$file_hendel = fopen("report", "a");
if (!$file_hendle)
      {
   echo("Невозможно открыть
      файл...");
   }
else {
   //
      функции работы с файлами;
   }

По завершении работы с файлом необходимо его закрыть:

int fclose(int fp)

В качестве аргумента, функция fclose() принимает дескриптор закрываемого файла. В случае успеха возвращается true, в случае неудачи – false.

Просто так файлы открывать бессмысленно. С ними надо что–то делать. Первое, что приходит на ум – вывести содержимое файла на экран. Эту операцию осуществляет функция fpassthru():

int fpassthru (int fp);

Эта функция выполняет чтение с текущей позиции в открываемом файле и до его конца, после чего она закрывает файл. В случае успеха возвращается true, в случае неудачи – false.

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

Для чтения заданного количества символов из открываемого файла, можно воспользоваться функцией fread():

string fread(int fp, int length);

Функция читает строку длиной length символов из файла с дескриптором fp. Пример:

$file_hendel=fopen("text.txt", "r");
   if
(!$file_hendle) {
      echo("Невозможно
открыть файл...");
      }
   else
 {
      $text = fread($file_hendel, 5);
//Считывается первые 5
символов
      fclose($file_hendel);
      }

Если конец файла достигнут раньше длины length, то возвращается весь прочитанный текст.

Так же для чтения данных из файла применяются функции fgetc(), fgets() и fgetss()

string fgets(int fp, int length);
string fgetss(int fp, int length);

Функция fgetc() производит считывание одного символа.

Функция fgets() возвращает строку из (length–1) символов. Чтение завершается, если будет достигнут символ перевода строки или конец файла.

Функция fgetss() идентична fgets(), но все теги HTML удаляются из строки, но учитываются в длине строки length.

При ошибке эти функции возвращают false.

Также, для чтения содержимого файла можно использовать функцию file(), возвращающую содержимое файла в виде массива. Каждая строка файла представляется в виде элемента массива:

array file(string filename);

Функция принимает в качестве аргумента не дескриптор файла, а строку с именем файла.

Для записи в файл используются функции fputs() и fwtite().

int fputs(int fp, string string, [int length]);
int fwrite(int fp, string string, [int length]);

Если последний параметр не указан, то осуществляется запись всей строки. Пример (учет посещений с занесением данных о дате посещения и IP посетителя в файл и вывода на экран сообщения о номере посещения):

<?php
//Учет посещений
// количество посетителей будем хранить в файле report
$date=date("d M Y, H:i:s");
$ip=getenv("REMOTE_ADDR"); // опредляем IP узла
$host = gethostbyaddr($ip); // определяем имя узла по его IP
$str=(       // формируем строку,
Date – $date // для размещения ее в файле
Host – $host // учета IP – $ip
–––––––––––––––––––––");
$file_hendle = fopen("report", "a+"); //открываем файл report для добавлений,
fputs($file_hendle,$str); // записываем в него подготовленную строку и
fclose($file_hendle); // закрываем файл
// Определние и вывод порядкового номера посетителя
// количество посетителей будем хранить в файле visitors
// открываем файл visitors для перезаписи
$file_hendle = fopen("visitors", "w+");
$visitor_number = fread($file_hendle, filesize("visitors"));
$visitor_numbe++; // прибавляем еще одного посетителя,
rewind($file_hendle);
fwrite($file_hendle,$visitor_numbe); // переписываем файл visitors и
fclose($file_hendle); // закрываем файл
echo ("Поздравляем, вы $visitor_numbe посетитель!");
?>

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

Функция rewind() устанавливает текущую позицию в начало файла, дескриптор которого она принимает в качестве аргумента.

Может возникнуть необходимость определить текущее положение в файле. Для этой цели служит функция ftell()

int ftell(int fp);

С помощью функции fseek() можно переместиться в заданную позицию.

int fseek(int fp, int offset [, int whence]);

Основными аргументами функции являются дескриптор файла и значение заданной позиции от начала файла. Например, с помощь функции ftell() можно организовать перемещение в заданную позицию:

fseek($fp, ftell($fp)+10); // переход на 10 позиций вперед от текущей

Но этого же эффекта в PHP4 можно добиться без использования функции ftell(), так как в функции fseek() появился необязательный аргумент, который определяет способ перемещения на заданную позицию:
SEEK_SET – отсчитывает значение от начала файла (по умолчанию);
SEEK_CUR – отсчитывает значение от текущей позиции;
SEEK_END – прибавляет значение offset к концу файла.

Тот же пример в PHP4 примет вид:

fseek($fp, 10, SEEK_CUR);

Часто возникают ситуации, когда надо проверить положение указателя относительно конца файла. Для этого применяется функция feof(), которая возвращает true, если достигнут конец файла и false, если конец файла не достигнут.

Возможности PHP по работе с файлами не ограничиваются приведенными здесь функциями. С полным описанием функций для работы с файловой системой можно ознакомится на официальном сайте PHP в разделе PHP:Manual:Filesystem functions.

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

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