Недавно совершил покупку, купил себе новый телефончик. На этот раз это LG Viewty. Сразу столкнулся с проблемой: в Интернете к нему нету ни тем, ни background’ов. Все из-за нестандартного разрешения экрана.

Сделал нарезку фонов на телефон.

Взято c хабрахабра

Думаю, вам будет смешно, если понимаете английский

Увидел в интернете интересную мысль того, что может произойти с iPhone. Как Вы думаете, Apple сделает что нибудь похожее?

Такая интересная вещь, вроде сегодня и 8 марта, но я так почему-то никого и не поздравил. И почему-то весь день подсознательно ожидал, что мне кто-то скажет “С праздником, Игорь”. Раньше, бывало, придет мне смс”ка поздравительная с хорошим поздравлением, я ее возьму да и разошлю всем контактам ). Вот сегодня мне никто смс не прислал, и я никого не поздравил.

UPD: Блин, пока писал, перевалило за полночь, наступило 9е.

UPD: Что поделаешь, не мой праздник.

Сразу перейду к делу.

Итак, имеются две программы - клиентская и серверная. Клиентская программа дает запросы серверной, ловит ответы, показывает рекламу. В обязанности клиентской программы входит регистрация пользователей, их авторизация. Серверная программа работает напрямую с БД, отвечает на запросы экземпляров клиентских программ. База данных - файл Microsoft Access. Выбор обусловлен легкими переносимостью, бекапом, редактированием таблиц, отпаданием необходимости создавать интерфейс и функции для визуальной работы с таблицами.

Даю листинг клиентской части  программы.

Перейдем к коду. Начнем с малого. Функция автозагрузки программы:

var
reg : TRegistry;
begin
if PopupMenu2.Items.Items[1].Checked = false then begin
reg := TRegIniFile.Create; //создание ссылки на обьект реестра

reg.RootKey := HKEY_LOCAL_MACHINE;//указываем начальный ключ (каталог) реестра
reg.OpenKey (’Software’, true);//открытие нужного нам ключа реестра
reg.OpenKey (’Microsoft’, true);
reg.OpenKey (’Windows’, true);
reg.OpenKey (’CurrentVersion’, true);
reg.OpenKey (’Run’, true);
reg.WriteString(’Miu’, Application.ExeName);// запись пути к программе в каталог автозагрузки
reg.CloseKey;//закрытие ключей
reg.Free;//очистка ссылки на обьект
PopupMenu2.Items.Items[1].Checked := true;
end
else begin
reg := TRegIniFile.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey (’Software’, true);
reg.OpenKey (’Microsoft’, true);
reg.OpenKey (’Windows’, true);
reg.OpenKey (’CurrentVersion’, true);
reg.OpenKey (’Run’, true);
reg.DeleteKey(’Miu’);//если опять нажать на ту же кнопку, происходит удаление ключа, приводящего к автозагрузке
reg.Free;
PopupMenu2.Items.Items[1].Checked := false;
end;
end;

Функция соединение клиентской программы с сервером:

procedure TForm1.ButtonSTARTClick(Sender: TObject);
begin
ButtonStart.Enabled := false;
try
if not idTCPClient1.Connected then idTCPClient1.Connect;//если нету соединения, соединяемся
CURRENTCOMMAND := idTCPClient1.ReadLn;//читаем сообщение от сервера
if CURRENTCOMMAND = ‘200 HELLO’ then begin
idTCPClient1.WriteLn(’LOGIN ‘ + EditUSERNAME.Text + ‘ ‘ + EditPASSWORD.Text);//отправляем логин и пароль серверу
try
CURRENTCOMMAND := idTCPClient1.ReadLn;//читаем, что сервер нам ответит
if CURRENTCOMMAND = ‘CONNECTED’ then begin//если все нормально
Panel1.Hide;
SCORE := strtoint(IdTCPClient1.ReadLn);//загружаем текущее кол-во очков пользователя
SettFile := TFileStream.Create(’user.dat’, FmOpenWrite);//создаем файл
Login := EditUSERNAME.Text;
SettFile.Write(Login, SizeOf (Login));//Записываем в файл логин пользователя, что бы потом его показывать в поле “Логин”
if RzCheckBox1.Checked then begin //Если в поле “Сохранять пароль” стоит галочка, сохраняем и пароль
SavePas := true;
SettFile.Write(SavePas, SizeOf (SavePas));
Password := EditPASSWORD.Text;
SettFile.Write(Password, SizeOf(Password));
Password := ”;
end
else begin
SavePas := false;
SettFile.Write(SavePas, SizeOf(SavePas));
Password := ”;
SettFile.Write(Password, SizeOf(Password));
end;
SettFile.Destroy;//Обнуляем ссылку на обьект файла
idTCPClient1.WriteLn(’GETGRBANURL’);//Отсылаем серверу запрос на ссылку рекламного баннера
try
GRAPHBANURL := idTCPClient1.ReadLn;
GRAPHBANURL := idTCPClient1.ReadLn;//Читаем ссылку
WebB1.Navigate(GRAPHBANURL);//Браузер открывет ссылку
except
on E : Exception do begin
ShowMessage (E.Message);//если возникает ошибка, выскакивает окошко с ошибкой
end;
end;
end
else if CURRENTCOMMAND = ‘PASSWORD WRONG’ then begin//если пароль неверен, показываем сообщение
ShowMessage (’Неверный пароль!’);
EditPASSWORD.Text := ”;//Очищаем поле ввода пароля
idTCPClient1.Disconnect;
end
else if CURRENTCOMMAND = ‘USER LOGINED’ then begin//если пользователь с таким логином/паролем уже активен, показываем сообщение
ShowMessage (’Пользователь с такими данными уже присутсвует.’);
idTCPClient1.Disconnect;//отключаемся от сервера
end
else if CURRENTCOMMAND = ‘USERNAME WRONG’ then begin
ShowMessage (’Неправильное имя пользователя. Зарегистрируйтесь с ‘ +
‘таким именем и войдите вновь.’);
idTCPClient1.Disconnect;
end;
except
on E : Exception do begin
ShowMessage (E.Message);
end;
end;
end
else idTCPClient1.Disconnect;
except
on E : Exception do begin
ShowMessage (E.Message);
end;
end;
ButtonStart.Enabled := true;
end;

При закрытии программы:

procedure TForm1.BtnCLOSEClick(Sender: TObject);
begin
if IdTCPClient1.Connected = true then begin//если соединены с сервером
IdTCPClient1.WriteLn (’QUIT ‘ + inttostr(TEMPSCORE));//отсылаем текущие очки
IdTCPClient1.Disconnect;// и отсоединяемся
end;
Application.Terminate;//закрывая программу
end;

Также на форме есть таймер, срабатывающий раз в 5 секунд, загружающий новый рекламный баннер и прибавляющий число очков пользователя.

procedure TForm1.Timer2Timer(Sender: TObject);
var
URL : string;
begin
if idTCPClient1.Connected then begin//если соединены с сервером
TEMPSCORE := TEMPSCORE + 1;//прибавляем число очков
EditSCORE.Text := inttostr(SCORE + TEMPSCORE);//показываем текущее число очков на экране
TIMEAFTERLASTUPDATE := TIMEAFTERLASTUPDATE + 1;
if TIMEAFTERLASTUPDATE > 5 then begin
idTCPClient1.WriteLn(’GETGRBANURL’);//просим сервер дать нам ссылку на баннер
URL := idTCPClient1.ReadLn;//по истечении 30 секунд грузим новый баннер
      WebB1.Navigate(URL);//переходим во встроеном браузере на нужный ЮРЛ
TIMEAFTERLASTUPDATE := 0
end;
end;
end;

В принципе, вот и все. Что бы сильно не нагружать статью, листинг серверной программы буду писать новой статьей.

Пришла мысль на эту тему. С телефона написал в блог.
Большое распространение обретают различные способы легкого заработка - лотереи, финансовые пирамиды, форексы… Суть желания легкого заработка заключается в том, что многие люди считают себя особенными, не такими как 3 (3?) миллиарда человек, живущих на Земле. Принято считать, что каждый индивид уникален, вот каждый человек и думает, что только ему подвластно заработать таким способом, имея уникальные умственные способности/хитрость/везение и т д. На самом деле люди одинаковы. Выход из положения - понять, что ты точно такой же, как и другие =) как ни обреченно это звучит.

UPD:  нас 7 миллиардов, эта цифра увеличивается.

wildshaman, 01.03.2008 19:43:29:
Предлагаю тебе тему для дискуссии

wildshaman, 19:44:00:
Хотя может тебе покажеться фигней или бредом, но все же попытаемся)

ad_wolf, 19:44:54:
ну

wildshaman, 19:44:56:
Вот давно задумывался…

wildshaman, 19:45:02:
Где края вселенной…

wildshaman, 19:45:08:
И существуют ли они вообще

wildshaman, 19:45:19:
Прихожу к противоречиям всегда *CRAZY*

ad_wolf, 19:46:50:
Например? Какие противоречия?

wildshaman, 19:47:34:
Вот например вселенная - сфера, следовательно, имеет границы.

wildshaman, 19:47:47:
Представим ее яблоком в наших руках.

wildshaman, 19:48:00:
Яблоко ограничено, но вокруг него пространство.

wildshaman, 19:48:17:
Значит, вокруг нашей вселенной, если она ограничена, должно быть что то.

ad_wolf, 19:48:23:
Я же там оч хорошо написал, что если двигаться в одну сторону, можна попасть в ту же точку

wildshaman, 19:48:25:
Тогда вопрос - что?

wildshaman, 19:48:35:
И где у него границы

ad_wolf, 19:48:37:
Получается, границ как таковых не существует

wildshaman, 19:48:52:
Тогда бесконечность…

wildshaman, 19:48:56:
Бесконечное что то…

ad_wolf, 19:48:58:
Границы - это написанные законы

wildshaman, 19:49:09:
В голове не укладывается:).

ad_wolf, 19:49:12:
Такая себе маленькая бесконечность

wildshaman, 19:49:26:
Небольшая совсем, крошечная.

ad_wolf, 19:49:48:
Кто знает, на самом деле

ad_wolf, 19:50:36:
Вот я и думаю, что бы совершать перелеты на огромной скорости на огромные расстояния, надо найти способ, как эти законы расторгнуть

wildshaman, 19:51:32:
Тогда вопрос. Как?

wildshaman, 19:51:41:
Предположения есть?

ad_wolf, 19:52:36:
Помнишь второй рисунок? Намного быстрее было бы попасть на другую сторону мира, двигаясь через центр окружности, верно? Проблема тоько в том, что тело думает, что всегда движется по прямой…

wildshaman, 19:53:09:
От, верно

wildshaman, 19:53:18:
Но оси быстрее

wildshaman, 19:53:34:
Ось то короче чем дуга

wildshaman, 19:54:05:
А вот каковы твои предположения по поводу возникновения жизни на земле?

ad_wolf, 19:54:29:
Чтобы телу далась возможность, ему каким-то образом нужно перейти из однокоординатного мира, со всеми его законами, хотя бы в двухмерный

ad_wolf, 19:55:45:
Ты знаешь, где то слышал, что мы уже шестая умная нация на Земле

ad_wolf, 19:56:04:
Надо спросить у первой :))

ad_wolf, 19:56:15:
шутка

ad_wolf, 19:56:27:
У нас вроде серьезный разговор

wildshaman, 19:56:40:
Я слышал, что было найдено много различный предметов ОЧЕНЬ старых, но сложных

wildshaman, 19:56:42:
Ага

wildshaman, 19:57:06:
Все же, в теорию Дарвина и в библейскую теорию я не верю

ad_wolf, 19:57:56:
Теория Дарвина - теория человека уже из нашей эры, так сказать. Короче он уже был лохом, как и все мы

wildshaman, 19:58:33:
А насчет того, что мы не первая цивилизация: имхо, человек не мог там построить пирамиды, стоунхендж…

ad_wolf, 19:58:45:
А вот в библии много чего интересного. Там говорится про мир так, как будто в детской сказке для дебилов

wildshaman, 19:58:51:
А взять ту же атлантиду? Племя Майя?

wildshaman, 19:58:58:
*ROFL*

wildshaman, 19:59:04:
Жжёшь

wildshaman, 19:59:20:
Ну тогда то люди были не шибко умные.

ad_wolf, 19:59:31:
То есть там все правильно, много чего правильного, но рассказано это в форме для детского сада, оч упрощено

wildshaman, 19:59:39:
Тогда еще Земля была плоская и центром вселенной была.

ad_wolf, 20:00:07:
Нет. Это уже другая сказка из другого детского садика )))

wildshaman, 20:00:43:

wildshaman, 20:00:52:
Так как считаешь, мы не первые?

wildshaman, 20:01:27:
А вот индиго, мне кажется, следующее поколение. Мы изживем себя сами, уничтожим.

wildshaman, 20:01:37:
А они, избранные, останутся…

wildshaman, 20:01:38:
Имхо

ad_wolf, 20:01:45:
А знаешь, сейчас есть такие пещеры на Земле, в которых слышатся звуки работающих машин или звуки каких-то воющих существ?

wildshaman, 20:01:55:
Как хорошо, что есть человек, с которым можно такое обсудить.

wildshaman, 20:02:19:
О_

wildshaman, 20:02:22:
Не не слышал

wildshaman, 20:02:24:
Расскажи ка

ad_wolf, 20:03:03:
А что ты знаешь про индиго? Это один из вопросов, какие меня реально интересуют и я не могу про них ничего сказать, все предположения какие-то невнятные

wildshaman, 20:03:24:
А ты слышал, что в каком то море выловили какое то существо. Типа лох-несского

wildshaman, 20:03:25:
Так

ad_wolf, 20:03:26:
(Мои предположения по этому поводу)

wildshaman, 20:03:29:
Индиго

wildshaman, 20:03:40:
“голубые” ()

wildshaman, 20:03:52:
Не педики.

ad_wolf, 20:03:54:
Да на самом деле про лохнесс у меня есть предположения

wildshaman, 20:04:13:
Давай про индиго

wildshaman, 20:04:16:
Все постепенно.

wildshaman, 20:04:19:
А то запутаемся

wildshaman, 20:04:23:
Короче, индиго

wildshaman, 20:04:45:
Это дети, которые рано учатся говорить, писать, читать

wildshaman, 20:04:55:
Они сами начинают рано постигать жизнь

ad_wolf, 20:04:57:
Существует такой себе подземный океан, или бля подземные озера, короче пещеры, с водой. Так вот они сочленены с морями, с озерами на поверхности

wildshaman, 20:05:13:
К 12 годам уже могут закончить школу и институт

wildshaman, 20:05:22:
Дети-гении, и их все больше

wildshaman, 20:05:39:
Ну это знаю, подземная система

wildshaman, 20:05:52:
Как и все моря, океаны, соединены в единую систему

wildshaman, 20:06:07:
Ну так что ты там про лошарское чудовище мыслишь?

ad_wolf, 20:06:38:
И там доисторические фишки обитают, короче эволюция заторможена при отсутствии факторов, приводящих к прогрессированию видов. То есть там не совсем по-дарвиновски, эволюция затормозилась

wildshaman, 20:07:01:
Я понимаю.

wildshaman, 20:07:18:
Можно без некоторых подсказок, объяснений для лохов.

wildshaman, 20:07:38:
А условия для обитания?

wildshaman, 20:07:44:
Ведь все изменилось

wildshaman, 20:07:53:
Состав воды, температура и так далее

wildshaman, 20:07:59:
Почему они не вымерли все?

wildshaman, 20:08:20:
Или вымерли многие, но некоторые приспособились?

Прочитал теорию, что наш мир отнюдь не трехмерный. Дальше идут мои мысли, как же он может выглядеть на самом деле, ведь мы видим, осязаем только трехмерную его часть.
Итак, пойдем по пути упрощения. Начнем с самого малого:

• Одномерный мир

Мир, в котором есть только одна координата.

Такое измерение представляет собой линию, и если провести аналогию существование=движение, то всё существование в таком мире будет сводится к пребыванию в одной из точек этого мира и движению только вдоль направления линии.
Тут сама собой напрашивается интереснейшая мысль: а что если это линию изогнуть, соединить два противоположных конца?

При этом получается, что мы видим круг, эллипс, любую замкнутую фигуру, но частицы этого измерения все равно видят лишь одну координату, они движутся только вдоль этой координаты. Получается, вектор движения тела в одномерном мире будет прямой и неизменной линией, но даже если посмотреть из двухмерного мира (см. дальше), вектор не будет постоянным и будет меняться в соответствии с формой этой линии. Теперь самое интересное: обьект, движущийся только в одну сторону с неизменной скоростью, рано или поздно проходит через одни и те же точки своего мира, так как движется по замкнутой траектории! При этом для него такое явление будет совершенно необьяснимым: он ведь двигается прямо, отдаляясь от первоначальной точки!

• Двухмерный мир

Итак, двухмерный мир — это плоскость, две координаты. Обьект в таком мире волен двигаться на все четыре стороны. Опять же, если эту плоскость изогнуть, свернуть в трубочку, обьект из двухмерного мира «ничего не почувствует». Он будет двигаться по какому- то вектору, взаимодействуя с другими телами, но он ни когда не сможет обьяснить, почему в определенных ситуациях он, двигаясь только в одном направлении, попадает туда, где уже был. Еще интересней, если такой двухмерный мир — трехмерная сфера! В таком случае жители двухмерного мира, куда бы они не двигались, при прямолинейном движении всегда будут попадать в то же самое место! В таком случае мы, жители трехмерного мира, увидим, что траектория движения такого обьект есть окружность на сфере.
Теперь попробуем подумать, как спроектировать движение тела из одномерного мира в двухмерный. Итак, что мы уже имеем: в одномерном мире — линия, луч, в двухмерном — коло.
То есть движение обьекта из одномерного мира по прямой на самом деле есть движение по кругу. Но что есть движение? Движение — перемещение тела во времени. Что бы попытаться изобразить движение тела из одномерного мира с привязкой ко времени, добавим еще одну координату. Так сказать, перейдем в трехмерный мир.

• Трехмерный мир

Мы есть жители трехмерного мира. Но будем доделывать нашу модель движения тела из одномерного мира. Итак, что будет собою являть третяя координата, координата времени? Каждая точка на третей координате есть плоскость, на которой находится изображение одномерного мира в определенный момент времени. И на этой плоскости запечатлено тело из одномерного мира, «застывшее» в каком-то моменте времени. Если запечатлеть все моменты движения тела, получится спираль.

На рисунке серая линия - вектор течения времени, черная - траектория движения тела. Самое смешное - траектория  прямая для одномерного тела. Что еще оптимизировать? Отобразить вектор времени, как коло, потому что все процессы мира после первого витка спирали повторяются снова.