Жизнь замечательных грибов
Архив статей и записей написанных Грибовым Павлом
идем в /usr/ports/lang/
смотрим какая версия php стоит: ls *php*
заходим например в : cd php53-extensions
|
1 |
make config |
отмечаем нужные расширения
|
1 2 3 |
make deinstall make reinstall /usr/local/etc/rc.d/apache22 restart |
Стоимость аренды: 8 тысяч рублей+коммунальные платежи (оплачивает жилец). Коммуналка сейчас — примерно 1600 руб/мес.
В начале каждого месяца осматриваю порядок, чистоту и комлектность в квартире, проверяю коммунальные платежи, мило улыбаюсь, беру деньги за аренду за следующий месяц.
Комплектность квартиры:
Ванная комната:
Кухня:
Комната:
Есть возможность подключения сети интернет и кабельного ТВ от МТС (кабеля в квартире, отключено).
Фото:
Контакты: т. +79212347594 icq: 207-074-753
UPDATE 20/11/2014 — уже сдали
Довелось сегодня побывать в 12-ти этажке, той которая напротив ж/д вокзала. Еще перед входом в подьезд напрягло — стоит рядом с открытыми несколько гоповатого вида молодых человек. Как я зашел — двери закрыли, один пошел за мной, двое остались снаружи.
Нажал кнопку лифта. Стою — смотрю в упор на гопника. Лыблюсь. Он: «довезешь на лифте». Я: «заходи».
Ладно. Зашли в лифт. Спрашивает: «слыш, есть тут где закинуться потихому?». Я: «Не знаю, сам разбирайся». Сам напрягся, руки из карманов вынял. Ну думаю дело к махалову идет. А настроение у меня с утра гадское было. Потому как-бы не прочь и сам люлей получить, и дать если получиться.
Но видно нарик это дело прочуствовал. Я на 9-м этаже вышел, он вниз поехал..
На этом все. Теперь достаточно после uses добавлять необходимые для использования компоненты. Вот так например выглядит простейший пример отправки письма с вложением.
|
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
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; |
Короткий пример, лучше всего..
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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; |