Архивы Павел - Страница 194 из 273

Установка Synapse и отправка письма с вложением..

28.10.2014 Павел Грибов Lazarus

Скачиваем исходники с http://synapse.ararat.cz/doku.php/download
Копируем папку lib в расположение вашего проекта
В свойствах проекта Lazarus: Проект-Параметры проекта-Пути-Другие модули добавляем путь куда положили содержимое lib.

На этом все. Теперь достаточно после uses добавлять необходимые для использования компоненты. Вот так например выглядит простейший пример отправки письма с вложением.

function SendMail (Host, Subject, pTo, From , TextBody,
                HTMLBody, login,password,filename : string) : boolean;
var Msg : TMimeMess; // сообщение
    StringList : TStringList; // содержимое письма
    MIMEPart : TMimePart; // части сообщения (на будущее)
begin
    Msg := TMimeMess.Create; // создаем новое сообщение
//      IdealCharsets:=[CP1251];
//      Msg.Header.CharsetCode:='CP1251';
      StringList := TStringList.Create;
      try
        // Добавляем заголовки
        Msg.Header.Subject := Subject;// тема сообщения
        Msg.Header.From := From; // имя и адрес отправителя
        Msg.Header.ToList.Add(pTo); // имя и адрес получателя
        // создаем корневой элемент
//        MIMEPart := Msg.AddPartMultipart('alternative', nil);
          Msg.AddPartMultipart('', nil);
        if length(TextBody)=0 then
        // если формат HTML
          begin
            StringList.Text := HTMLBody;
            Msg.AddPartHTML(StringList, Msg.MessagePart);
          end
        else
        // если текстовый формат
          begin
            StringList.Text := TextBody;
            Msg.AddPartText(StringList, Msg.MessagePart);
          end;
          if filename<>'' then
            Msg.AddPartBinaryFromFile(filename,Msg.MessagePart);

        // Кодируем и отправляем
        Msg.EncodeMessage;
        // Отправляем.
        if smtpsend.SendToRaw(From,pTo,Host,Msg.Lines,login,password) then
            SendMail:=true
        else
            SendMail:=false;

     finally
       Msg.Free;
       StringList.Free;
     end;
end;

function SendMail (Host, Subject, pTo, From , TextBody,

HTMLBody, login,password,filename : string) : boolean;

var Msg : TMimeMess; // сообщение

StringList : TStringList; // содержимое письма

MIMEPart : TMimePart; // части сообщения (на будущее)

begin

Msg := TMimeMess.Create; // создаем новое сообщение

// IdealCharsets:=[CP1251];

// Msg.Header.CharsetCode:='CP1251';

StringList := TStringList.Create;

try

// Добавляем заголовки

Msg.Header.Subject := Subject;// тема сообщения

Msg.Header.From := From; // имя и адрес отправителя

Msg.Header.ToList.Add(pTo); // имя и адрес получателя

// создаем корневой элемент

// MIMEPart := Msg.AddPartMultipart('alternative', nil);

Msg.AddPartMultipart('', nil);

if length(TextBody)=0 then

// если формат HTML

begin

StringList.Text := HTMLBody;

Msg.AddPartHTML(StringList, Msg.MessagePart);

end

else

// если текстовый формат

begin

StringList.Text := TextBody;

Msg.AddPartText(StringList, Msg.MessagePart);

end;

if filename<>'' then

Msg.AddPartBinaryFromFile(filename,Msg.MessagePart);

// Кодируем и отправляем

Msg.EncodeMessage;

// Отправляем.

if smtpsend.SendToRaw(From,pTo,Host,Msg.Lines,login,password) then

SendMail:=true

else

SendMail:=false;

finally

Msg.Free;

StringList.Free;

end;

Один комментарий lazarus, smtp, Synapse, отправка почты, установка

Работа с Ini файлами.

28.10.2014 Павел Грибов Lazarus

Короткий пример, лучше всего..

uses INIFiles;
procedure TForm1.Button1Click(Sender: TObject);
Var
   IniF:TINIFile;
begin
    Inif := TINIFile.Create('getmailconf.ini');
    INiF.WriteString('config','email',form1.emailto.text);
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
   IniF:TINIFile;
begin
    Inif := TINIFile.Create('getmailconf.ini');
   form1.emailto.text:=INiF.ReadString('config','email','testmail@yartelecervice.ru');

end;

uses INIFiles;

procedure TForm1.Button1Click(Sender: TObject);

Var

IniF:TINIFile;

begin

Inif := TINIFile.Create('getmailconf.ini');

INiF.WriteString('config','email',form1.emailto.text);

end;

procedure TForm1.FormCreate(Sender: TObject);

Var

IniF:TINIFile;

begin

Inif := TINIFile.Create('getmailconf.ini');

form1.emailto.text:=INiF.ReadString('config','email','testmail@yartelecervice.ru');

end;

Оставить комментарий freepascal, ini, lazarus

Настройка свичей DES 3200

27.10.2014 Павел Грибов Linux

Включаем свич, втыкаем Eth в 16 порт. Присваиваем себе сеть 10.90.90.91. Заходим в WEB интерфейс http://10.90.90.90 без логина пароля и меняем IP адрес свича на нужный.

Далее заходим на него по telnet, и выполняем следующую последовательность комманд:

create account admin admin

create vlan sw tag 104

conf vlan sw add tag 17

conf vlan sw add unt 16

enable password encryption

conf ipif System vlan sw

conf traffic_ 1-16,18 for 17

show traffic_segmentation

save

Что мы тут сделали?

создали логин/пароля админа
создали vlan 104 с именем sw
добавили туда 17 порт
добавили правило что заходить в админку можно только с 16 порта
записали конфигурацию

Оставить комментарий des 3200, начальная настройка

Ichkeria free

25.10.2014 Павел Грибов Из жизни

Вот такую WiFi сеть обнаружил мой ноут сегодня на Техническом переулке д. 53

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

Оставить комментарий

FreeBSD сброс пароля root к MySQL

23.10.2014 Павел Грибов Linux

1. Останавливаем службу MySQL:

/usr/local/etc/rc.d # ./mysql-server stop

2. Запускаем службу с опцией —skip-grant-tables

mysqld_safe —skip-grant-tables &

3. Подключаемся с серверу MySQL при помощи клиента mysql:

mysql -u root
4. Вводим новый пароль для root:

mysql> use mysql;
mysql> update user set password=PASSWORD(«NEW-ROOT-PASSWORD») where User=’root’;
mysql> flush privileges;
mysql> quit

5. Останавливаем сервер MySQL:

/etc/init.d/mysql stop
6.Запускаем MySQL-сервер и логинимся с новым паролем:

/usr/local/etc/rc.d # ./mysql-server start
mysql -u root -p

Оставить комментарий freebsd, mysql, сброс пароля

« 1 … 192 193 194 195 196 … 273 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
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