Отправляет email-рассылки с помощью сервиса Sendsay

KLSoft company - программирование в Delphi и PHP

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Веб-разработка: пособие начинающим" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
ADMIN

Статистика

989 подписчиков
0 за неделю
←   Все выпуски   →

KLSoft company - программирование в Delphi и PHP


Информационный Канал Subscribe.Ru

Delphi & PHP

KLSoft company

Сегодня в выпуске:
Delphi
  • Отправляем письмо из Delphi7 стандартными комонентами
  • Вращаем Bitmap вокруг точки
  • Автоматически дозвониться по подключению по умолчанию
PHP
  • HTTP аутифекация
  • Почтовые функции

Отправляем письмо из Delphi7 стандартными комонентами 
// Кинуть на форму компонент IdSMTP1

...

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
 IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress;

...

procedure TForm1.Button1Click(Sender:
TObject);
var
 M: TIdMessage;
begin
 M := TIdMessage.Create(Form1);

 M.Body.Add('Типа первая строчка собщения');
 M.Body.Add('Типа вторая строчка собщения');
 M.From.Text :=
'"Рустик" <boris@uacity.com>'; //отправитель
 M.Recipients.Add;
 M.Recipients.Items[0].Text := '"Тест" <antohha@ukr.net>'; //Получатель
 M.Subject := 'Ну чо? потестим? =)'; //Тема письма

 IdSMTP1.AuthenticationType := atLogin;
 IdSMTP1.Host := 'uacity.com';
 IdSMTP1.Username := 'boris';
 IdSMTP1.Password := '1234'; // - ну свой пароль я те не выдам :-Р
 IdSMTP1.Connect();
 if IdSMTP1.Connected then
 begin
 IdSMTP1.Send(M);
 end;
 IdSMTP1.Disconnect;
end;

Вращаем Bitmap вокруг точки 
// Vektor von FromP nach ToP 
// Vector from FromP to ToP 

function TForm1.Vektor(FromP, Top: TPoint): TPoint;
 begin
 Result.x := Top.x - FromP.x;
 Result.y := Top.y - FromP.y;
 end;

 // neue x Komponente des Verktors 
// new x-component of the vector 
function TForm1.xComp(Vektor: TPoint; Angle: Extended): Integer;
 begin
 Result := Round(Vektor.x * cos(Angle) - (Vektor.y) * sin(Angle));
 end;

 // neue Y-Komponente des Vektors 
// new y-component of the vector 
function TForm1.yComp(Vektor: TPoint; Angle: Extended): Integer;
 begin
 Result := Round((Vektor.x) * (sin(Angle)) + (vektor.y) * cos(Angle));
 end;


 function TForm1.RotImage(srcbit: TBitmap; Angle: Extended; FPoint: TPoint;
 Background: TColor): TBitmap;
 { 
 srcbit: TBitmap; // Bitmap dass gedreht werden soll ; Bitmap to be rotated 
 Angle: extended; // Winkel in Bogenma?, angle 
 FPoint: TPoint; // Punkt um den gedreht wird ; Point to be rotated around 
 Background: TColor): TBitmap; // Hintergrundfarbe des neuen Bitmaps ; 
 // Backgroundcolor of the new bitmap 
}
 var
 highest, lowest, mostleft, mostright: TPoint;
 topoverh, leftoverh: integer;
 x, y, newx, newy: integer;
 begin

Result := TBitmap.Create;

 // Drehwinkel runterrechnen auf eine Umdrehung, wenn notig 
 // Calculate angle down on one rotation, if necessary 
 while Angle >= (2 * pi) do
 begin
 angle := Angle - (2 * pi);
 end;

 // neue Ausma?e festlegen 
 // specify new size 
 if (angle <= (pi / 2)) then
 begin
 highest := Point(0,0); //OL 
 Lowest := Point(Srcbit.Width, Srcbit.Height); //UR 
 mostleft := Point(0,Srcbit.Height); //UL 
 mostright := Point(Srcbit.Width, 0); //OR 
 end
 else if (angle <= pi) then
 begin
 highest := Point(0,Srcbit.Height);
 Lowest := Point(Srcbit.Width, 0);
 mostleft := Point(Srcbit.Width, Srcbit.Height);
 mostright := Point(0,0);
 end
 else if (Angle <= (pi * 3 / 2)) then
 begin
 highest := Point(Srcbit.Width, Srcbit.Height);
 Lowest := Point(0,0);
 mostleft := Point(Srcbit.Width, 0);
 mostright :=
Point(0,Srcbit.Height);
 end
 else
 begin
 highest := Point(Srcbit.Width, 0);
 Lowest := Point(0,Srcbit.Height);
 mostleft := Point(0,0);
 mostright := Point(Srcbit.Width, Srcbit.Height);
 end;

 topoverh := yComp(Vektor(FPoint, highest), Angle);
 leftoverh := xComp(Vektor(FPoint, mostleft), Angle);
 Result.Height := Abs(yComp(Vektor(FPoint, lowest), Angle)) + Abs(topOverh);
 Result.Width := Abs(xComp(Vektor(FPoint, mostright), Angle)) + Abs(leftoverh);


// Verschiebung des FPoint im neuen Bild gegenuber srcbit 
 // change of FPoint in the new picture in relation on srcbit 
 Topoverh := TopOverh + FPoint.y;
 Leftoverh := LeftOverh + FPoint.x;

 // erstmal mit Hintergrundfarbe fullen 
 // at first fill with background color 
 Result.Canvas.Brush.Color := Background;
 Result.Canvas.pen.Color := background;
 Result.Canvas.Fillrect(Rect(0,0,Result.Width, Result.Height));

 // Start des eigentlichen Rotierens 
 // Start of actual rotation 
 for y := 0 to srcbit.Height - 1 do
 begin // Zeilen ; Rows 
 for x := 0 to srcbit.Width - 1 do
 begin // Spalten ; Columns 
 newX := xComp(Vektor(FPoint, Point(x, y)), Angle);
 newY := yComp(Vektor(FPoint, Point(x, y)), Angle);
 newX := FPoint.x + newx - leftoverh;
 // Verschieben wegen der neuen Ausma?e 
 newy := FPoint.y + newy - topoverh;
 // Move beacause of new size 
 Result.Canvas.Pixels[newx, newy] := srcbit.Canvas.Pixels[x, y];
 // auch das Pixel daneben fullen um Leerpixel bei Drehungen zu verhindern 
 // also fil lthe pixel beside to prevent empty pixels 
 if ((angle < (pi / 2)) or
 ((angle > pi) and
 (angle < (pi * 3 / 2)))) then
 begin
 Result.Canvas.Pixels[newx, newy + 1] := srcbit.Canvas.Pixels[x, y];
 end
 else
 begin
 Result.Canvas.Pixels[newx + 1,newy] := srcbit.Canvas.Pixels[x, y];
 end;
 end;
 end;
 end;


 procedure TForm1.Button1Click(Sender:
TObject);
 var
 mybitmap, newbit: TBitMap;
 begin
 if OpenDialog1.Execute then
 begin
 mybitmap := TBitmap.Create;
 mybitmap.LoadFromFile(OpenDialog1.FileName);
 newbit := RotImage(mybitmap, DegToRad(45),
 Point(mybitmap.Width div 2, mybitmap.Height div 2), clBlack);
 Image1.Canvas.Draw(0,0, newBit);
 end;
 end;

 end;

Автоматически дозвониться по подключению по умолчанию 
uses
 WinInet;

 // Causes the modem to automatically dial the default Internet connection. 
procedure TForm1.Button1Click(Sender: TObject);
 var
 dwConnectionTypes: DWORD;
 begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
 INTERNET_CONNECTION_PROXY;
 if not InternetGetConnectedState(@dwConnectionTypes, 0) then
 // not connected 
 if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
 INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
 begin
 // error 
 end;
 end;


 // hangup the default Internet connection. 
procedure TForm1.Button2Click(Sender: TObject);
 var
 dwConnectionTypes: DWORD;
 begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
 INTERNET_CONNECTION_PROXY;
 if InternetGetConnectedState(@dwConnectionTypes, 0) then
 // connected 
 InternetAutodialHangup(0);
 end;

HTTP аутифекация 
<?php
 if(!isset($PHP_AUTH_USER)) {
 Header("WWW-Authenticate: Basic realm=\"My Realm\"");
 Header("HTTP/1.0 401 Unauthorized");
 echo "Text to send if user hits Cancel button\n";
 exit;
 } else {
 echo "Hello $PHP_AUTH_USER.<P>";
 echo "You entered $PHP_AUTH_PW as your password.<P>";
 }
?>

Вместо просто распечатывания $PHP_AUTH_USER и $PHP_AUTH_PW, Вы вероятно хотели бы проверить имя_пользователя и пароль для проверки правильности. Возможно, посылая запрос к базе данных, или, ища пользователя в dbm файле.

Будьте внимательны при использовании браузера Internet Explorer. Он весьма придирчив к порядку заголовков. Отправка заголовка WWW-Authenticate перед заголовком HTTP/1.0 401 возможно даст аутификацию в любом случае.

Чтобы предотвратить от записи кем - то сценарий , который определяет пароль для страницы, которая была опознана через традиционный внешний механизм, PHP_AUTH переменные не будут установлены, если допускается внешнее установление подлинности для той специфической страницы. В этом случае может быть использована переменная $REMOTE_USER чтобы идентифицировать внешне-опознанного пользователя.

Обратите внимание, однако, что вышеупомянутое не защищает от кого - то, кто может управлять не-аутифицированным URL используя перехваченный пароль из аутифицированных URL на том же самом сервере.

И Netscape и Internet Explorer очистит локальный кэш окна аутификации после получения ответа сервера 401. Это эффективно как мера отключения пользователей("log out"), вынуждающая их повторно ввести их username и пароль. Некоторые используют это для отключения пользователя по истечении интервала времени("time out"), или обеспечивают кнопку "Log Out".


Почтовые функци

mail

mail -- шлет почту
Описание
bool mail(string to, string subject, string message, string additional_headers);

Функция mail() позволяет отсылать почту.
Mail() автоматически посылает сообщение, содержащееся в message адресату, указанному в to.
Несколько получателей могут быть указаны в поле to в виде строки с адресами, разделенными пробелами.

Пример 1. Посылка почты.
mail("rasmus@lerdorf.on.ca", "Моя тема", "Строка 1\nСтрока 2\nСтрока 3");

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

Пример 2. Посылка почты с дополнительными полями заголовка.
mail("ssb@guardian.no", "the subject", $message, "From: webmaster@$SERVER_NAME\nReply-To: webmaster@$SERVER_NAME\nX-Mailer: PHP/" . phpversion());

Присылайте свои вопросы на admin@klsoft.com.ru
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.program 		Отписаться
Вспомнить пароль
В избранное