Октябрь 2014

Сёдня чуть не влип…

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

Довелось сегодня побывать в 12-ти этажке, той которая напротив ж/д вокзала. Еще перед входом в подьезд напрягло — стоит рядом с открытыми несколько гоповатого вида молодых человек. Как я зашел — двери закрыли, один пошел за мной, двое остались снаружи.

Нажал кнопку лифта. Стою — смотрю в упор на гопника. Лыблюсь. Он: «довезешь на лифте». Я: «заходи».

Ладно. Зашли в лифт. Спрашивает: «слыш, есть тут где закинуться потихому?». Я: «Не знаю, сам разбирайся». Сам напрягся, руки из карманов вынял. Ну думаю дело к махалову идет. А настроение у меня с утра гадское было. Потому как-бы не прочь и сам люлей получить, и дать если получиться.

Но видно нарик это дело прочуствовал. Я на 9-м этаже вышел, он вниз поехал..

Оставить комментарий гопники, нарики, чуть не влип

Установка 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

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

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

1 2 3 »

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