Первая покупка на ebay

Недавно у нас на работе сотрудникам делали карты Visa. Немного поразмыслив, решил заказать не Visa Electron (у меня уже есть такая карта), а Visa Classic.

И вот виза получена, зарплата уже перечислена на неё. Сразу захотелось
опробывать регистрацию новой карточки в PayPal, раньше с электроном Сбербанка это никак не выходило. Верификация карты прошла без проблем, подтверждающий код получил в SMS на телефон.

Логично, что следующим этапом стало желание оплатить какую-нибудь покупку со своего нового PayPal счёта. Конечно же, я отправился на Ebay. Тратить значительную сумму на тестовую закупку не хотелось, так что побродив по разделу ноутбуков и компьютеров, решил поискать дешёвые mp3 плееры. Особо дешёвых вариантов не было, да и выжидать последние минуты торгов для лота было не охота. Остановился плеере, похожем на iPod shuffle, за 13,5$ и бесплатной доставкой, приобрёл его по системе "Bay It Now". С оплатой проблем не возникло.

К середине января жду посылку от дядюшки Ляо из Гонконга :)

P.S. Виза банка Петрокоммерц, подключен SMS-сервис.

Эксперименты с Mac OS

Попытался поставить на свой PC Mac OS X.

1. Leo4All v3 (Mac OS X 10.5.2 Intel & AMD SSE2/SSE3)

Установка прошла, но компьютер зависал при запуске. Графическая оболочка так и не появилась.

2. KALYWAY 10.5.2 Leopard

Установка вновь без проблем. Но при запуске система зацикливается на стадии настройки профиля (Окно Do you already own a Mac?). Найти решение пока не смог.

Зима вновь берёт управление в свои руки

У нас в городе наконец-то похолодало! Термометр показывает сейчас около -10 градусов.

Вышел вот на улицу и сделал парочку фотографий.

Один день в Екатеринбурге

Это небольшая заметка о нашей поездке в Екатеринбург 22 ноября 2008 года.
Основная цель поездки - посмотреть на столицу Урала, побывать в аквапарке (читай ранее про Казань) и заглянуть в IKEA.
В Екатеринбург из Перми мы добирались на электричке и прибыли в город уже во второй половине дня. Быстро окинули взглядом привокзальную площадь и отправились в путь.
Первым пунктом посещения стало здание старого железнодорожного вокзала, возле которого установлено несколько скульптур. Добраться до него можно по улице Вокзальной.
Вот, например, Толстой и Тонкий, строители железной дороги.
Дальше наш путь пролегал к центру города по улице Свердлова. Выглядит весьма чисто и опрятно. Примечательно, что на улицах города очень много подземных переходов, в нашем городе их значительно меньше.
Вскоре улица немного сворачивала налево, нашему взгляду открылся Храм-на-Крови.
Храм был построен в 2003 году на месте снесённого Ипатьевского дома, где был убит Николай II и его семья.
Интересно вышло. Советский памятник среди золотых куполов церквей.
Зашли в Харитоновский парк. Фасад этого здания выглядит значительно лучше. Вообще в этом парке осенью делать нечего, а вот летом обилие зелени и цветов может его приукрасить.

Выйдя из парка, перешли улицу и подошли к Храму-на-Крови ближе. У входа расположен памятник семье царя Николай II. Время поджимало, отправились к Городскому пруду.
Вид с набережной на здание администрации города.
К сожалению пройти дальше у реки Исеть не получилось - вёлся ремонт набережной. Пришлось пройти по улице 8 марта.
Здание цирка и недостроенная телебашня. Здесь мы свернули на Куйбышеву, напомнившую мне её пермскую тёзку по "чистоте". Дойдя до улицы Розы Люксембург, сели на первой остановке на троллейбус и доехали до аквапарка.
Аквапарк мы посещали впервые, так что сказать что-то плохое не могу - ещё не избалован, да и сравнивать не с чем. Полтора часа нам хватило только на освоение невысоких горок и бассейна с искусственными волнами. Уже на выходе вспомнили, что не побывали в джакузи и сауне. Как-нибудь в следующий раз. Кстати, фотографировать внутри аквапарка нельзя.
На улице уже стемнело. Прошли возле церквушки, транслирующей службу на улицу через динамики.

Недалеко от цирка сели на бесплатный автобус до гипермаркета Мега. Подкрепились там в Макдональдсе, немного поплутали в огромном здании магазина и вернулись в город.

На финальном этапе спустились в метро и прокатились до железнодорожного вокзала.

Теория и практика объектно-ориентированного программирования в Delphi

Сессия приближается как всегда стремительно. Решил заняться программированием на Delphi. Поскольку раньше объектно-ориентированным программированием (ООП) в Pascal не занимался, пришлось немного напрягать мозги.

Итак, цель была поставлена следующая:

Разработать диалоговую программу как Windows-приложение для работы с объектами заданного типа. Программа должна содержать меню и выполнять следующие операции: создание объектов двух заданных классов и сохранение их в списке TList, просмотр и редактирование объектов, сохранение объектов в потоке TList и загрузка их из потока.

Ниже приведён кратенький рассказик о сохранении и чтении информации в этой программе.

1. Основная форма приложения Form1. На ней были размещены компонент TMainMenu, два списка TListBox для просмотра объектов (для каждого типа объектов свой список), две кнопки TButton сортировки списка TList по разным критериям, а также компоненты стандартных диалогов TOpenDialog и TSaveDialog.

2. Создан модуль Unit2, содержащий код двух пользовательских классов и один абстрактный класс.

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Contnrs;
type
TOrganization = class(TComponent)
Private
Name: String;
Year_founded: Integer;
Capital: Real;
Protected
Public
Constructor Create(Collection: TComponent); override;
Procedure Show(); virtual; abstract;
Published
Property MyName: String read Name write Name;
Property MyYear_founded: Integer read Year_founded write Year_founded;
Property MyCapital: Real read Capital write Capital;
end;

TInsurance = class(TOrganization)
Private
Clients: Integer;
Protected
Public
Constructor Create(nname: string; ncapital: real; nyear: integer; nclients: Integer);
Procedure Show(); override;
Published
Property MyClients: Integer read Clients write Clients;
end;

TShipbuilding = class(TOrganization)
Private
Vessel: Integer;
Protected
Public
Constructor Create(nname: string; ncapital: real; nyear: integer; nvessel: Integer);
Procedure Show(); override;
Published
Property MyVessel: Integer read Vessel write Vessel;
end;

implementation
uses Unit5, Unit6, Unit7;

Constructor TOrganization.Create;
begin
end;

Constructor TInsurance.Create(nname: string; ncapital: Real; nyear: integer; nclients: Integer);
begin
Name:=nname;
Year_founded:=nyear;
Capital:=ncapital;
Clients:=nclients;
end;

Constructor TShipbuilding.Create(nname: string; ncapital: Real; nyear: integer; nvessel: Integer);
begin
Name:=nname;
Year_founded:=nyear;
Capital:=ncapital;
Vessel:=nvessel;
end;

Procedure TInsurance.Show();
begin
Form5.Edit1.Text:=Name;
Form5.Edit2.Text:=inttostr(round(Capital));
Form5.Edit3.Text:=inttostr(Year_founded);
Form5.Edit4.Text:=inttostr(Clients);
Form7.Visible:=True;
Form5.Visible:=True;
end;

Procedure TShipbuilding.Show();
begin
Form6.Edit1.Text:=Name;
Form6.Edit2.Text:=inttostr(round(Capital));
Form6.Edit3.Text:=inttostr(Year_founded);
Form6.Edit4.Text:=inttostr(Vessel);
Form7.Visible:=True;
Form6.Visible:=True;
end;

initialization
RegisterClasses([TComponent, TOrganization, TInsurance, TShipbuilding]);
end.

Важно не упустить следующие вещи:

1. Абстрактный класс должен быть наследником TComponent.
2. Все свойства (Property) класса, которые будет необходимо сохранить в файл, нужно объявлять в Published части.
3. Все классы нужно зарегистрировать с помощью RegisterClasses.

3. Формы для ввода новых элементов. Form3 и Form4 создаются аналогично друг другу, различие только в пользовательском классе.

Код для кнопок выглядит следующим образом:

procedure TForm3.Button1Click(Sender: TObject);
Var
NewInsurance: TInsurance;
begin
if Edit4.Text='' then Edit4.SetFocus;
if Edit3.Text='' then Edit3.SetFocus;
if Edit2.Text='' then Edit2.SetFocus;
if Edit1.Text='' then Edit1.SetFocus;

if ((Edit1.Text<>'') and(Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'')) then
Begin
NewInsurance:=TInsurance.Create(Edit1.Text,strtofloat(Edit2.Text), strtoint(Edit3.Text), strtoint(Edit4.Text));
MyArray.Add(NewInsurance);
Form1.ListBox1.Items.Add(NewInsurance.MyName);
Modified:=true;
ModalResult:= mrOK;
End;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form3.Close;
end;

4. Итак, самое интересное. Функция записи в файл реализована на TStream с использованием функции WriteComponent. Вызывается из соответствующего пункта меню на Form1.

procedure TForm1.N2Click(Sender: TObject);
var
FileStream: TStream;
I: Integer;
MySave: TOrganization;
begin
if not Modified then exit;
SaveDialog1:=TSaveDialog.Create(self);
SaveDialog1.Filter:='dat';
SaveDialog1.DefaultExt:='dat';
if SaveDialog1.Execute then
Begin
FileStream:=TFileStream.Create(SaveDialog1.FileName, fmCreate);
for I:=0 to MyArray.Count-1 do
Begin
MySave:=TOrganization(MyArray.Items[I]);
FileStream.WriteComponent(MySave as TOrganization);
End;
FileStream.Free;
end;
Modified:=false;
End;

5. Функция Чтения из файла. Здесь на нас трудится функция ReadComponent.

procedure TForm1.N3Click(Sender: TObject);
var
FileStream: TStream;
Temp: TComponent;
MyLoad: TOrganization;
begin
OpenDialog1:=TOpenDialog.Create(self);
OpenDialog1.Filter:='dat';
OpenDialog1.DefaultExt:='dat';
if OpenDialog1.Execute then
Begin
//Очистка
MyArray.Clear;
ListBox1.Clear;
ListBox2.Clear;
//Сама загрузка
FileStream:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
while FileStream.Position
begin
MyLoad:=TOrganization.create(self);
MyLoad:=TOrganization(FileStream.ReadComponent(nil));
MyArray.Add(MyLoad);
if MyLoad is TInsurance then ListBox1.Items.add(MyLoad.MyName);
if MyLoad is TShipbuilding then ListBox2.Items.Add(MyLoad.MyName);
end;
Modified:=false;
FileStream.Free;
End;
end;

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

Странность Blogger

При публикации записал некоторые метки с маленькой буквы. А как их править неясно. Просто сейчас некрасиво, одни написаны с заглавной, другие - с прописной :)

"Домашний" сервер и локальная сеть

В начале этого месяца вновь сменил интернет провайдера и подключил мегабитный анлим.

В своей маленькой домашней сети раздаю интернет с помощью отдельного компьютера, который специально собирал для этого. Состоит "домашний" сервер из следующих компонентов:

• Материнская плата Intel на 945 чипсете,
• Процессор Intel Celeron 420 с частотой 1.60ГГц,
• 1ГБ оперативной памяти,
• 500ГБ жёсткий диск от Samsung (стрекочет довольно-таки громко),
• Дополнительная сетевая карта от D-Link (для подключения модема провайдера),
  
• Симпатичный чёрного корпуса.

Кто-то может начать возмущаться и спрашивать почему я не использую компьютер уровня Pentium I или II, ведь его ресурсов должно хватить. Но помимо функций NAT и защиты локальной сети firewall'ом, на этот компьютер установлена программа для закачки и раздачи torrent файлов. Я использую для этой цели Torrentflux, программа меня устраивает и ни разу не подводила. Из минусов могу назвать только высокие требования к ресурсам и низкую скорость проверки файлов.

На сервере недавно установил Archlinux вместо Debian Hard, причём случайно поставил 64 битную версию. Настроил так, что при старте подымается pppoe соединение, устанавливаются правила iptables, запускается web сервер (использую lighttp вместе с FASTCgi), сервер баз данных mysql, samba для обеспечения доступа к скаченным файлам с других компьютеров, а также sshd, чтобы иметь возможность управлять компьютером с домашнего компьютера или с работы.

Особых проблем с установкой и настройкой сервера не возникло, тем более на wiki.archlinux.org можно найти инструкции по установке и настройке этих программ.

Кризис на носу?

Сегодня руководство нашего проектного института собрало всех сотрудников и сообщило, что в связи с проводимыми собственником антикризисными мероприятиями с февраля 2009 года возможен переход на неполную трудовую неделю, если не будет объёмов и, следовательно, денег. Даже заставили подписать документ о согласии на эти действия. Готовятся к худшему? Печально, что основная цель этих мероприятий прикрыть свой зад.

Да и я сам решил немного перестраховаться. Перевёл некоторую часть своих скромных сбережений в валюту. Взял зелёных президентов и еврофантики. Подумываю о приобретении какой-нибудь азиатской валюты (йены или юани), но вряд ли решу брать. Скорее потрачу эту часть на покупку объектива к фотоаппарату.

Первый пост на blogger.com

Сразу предупреждаю, чтобы не возникало непонимания и лишних вопросов, все посты до этого были написаны в WordPress, а сам сайт скитался по интернету, сменив за время своего существования четыре разных хостинга.

А совсем недавно братья украинцы выгнали меня со своего бесплатного хостинга. Пришлось срочно искать альтернативы. Пытался пользоваться местным сервисом "Пермские блоги", но небольшой опыт работы с ними был отрицательным. Этот проект слишком напоминает дипломный проект какого-то студента, чувства стабильности и долгосрочности проекта не появилось. Решил не рисковать и отказаться от них.

Порыскал по просторам сети в поисках халявного хостинга с php, mysql, да ещё и возможностью привязки своего домена, но ничего удовлетворительного так и не повстречал.

Оставалось выбирать из бесплатных вариантов. Всяческие блоги на яндекс и mail.ру отмёл сразу же. Далее стояли более серьёзные варианты: wordpress.org, livejournal.ru и blogger.com. Первые два отпали из-за необходимости платить за привязку домена, а для меня это обязательное условие. И вот я на blogger.com.

Были непонятные проблемы с привязкой старого домена третьего уровня (видимо dns я неверно настраивал), так что немного пришлось потратиться на новое доменное имя зоне .net. Ну, может оно и к лучшему.

В общем, добро пожаловать!