Delphi в Интернет, блог Delphi программистов

Судя по названию поста, можно догадаться, что какой-либо конкретной темы в нем я придерживаться не буду. Так, поделюсь кое-какими мыслями, соображениями по поводу того, что задумано, что сделано и что планируется сделать.
< ' ' >
Во-первых, решил немного подкопить денег и купить себе новый ноутбук. Конечно, того, что заработано в Интернете хватит только на хороший хард, но не в том суть. Сейчас у меня старенький, но (тьфу-тьфу, чтоб не сглазить) шустрый Compaq Evo N410c. Однако, его мощей уже становиться маловато, даже RAD Studio 2010 подтормаживает слегка. Думаю присмотреть ноутбук sony из Серии SR. Напремер, такой:
А что? Симпатичный ноутбук, небольшой. Характеристики, тоже приемлемые:
13,3" (1280x800)
Intel Core 2 Duo T6670 (2.2 GHz)
4 Gb DDR2
500 Gb HDD
DVD-Super Multi DL
GMA 4500MHD
Судя по ценникам на Proteh (здесь и нашел ноутбуки Sony), стоит такой ноутбук в районе $1400. Не знаю как для Вас, а для меня одной из важных характеристик ноутбука является его габариты (после внутренней начинки, естественно). Иногда смотришь, как кто-то карячится с "катлетой" размером с добротный туристический чемодан, аж жалко такого становится :) А тут и размер нормальный и начинка.
Это, что касается моих дел в плане апгрейда железа.

Второй момент касается проекта DelphiCelendar на Code.Coogle. Проект, а вместе с ним и я, всё также ждём желающих поучаствовать в разработках. На данный момент в проекте задействовано 3 человека. В раздел Downloads выложена демка, демонстрирующая работу с событиями в календаре, а также исправлено несколько досадных багов по работе с календарями. Жду Вашего участия ;).
В ближайших планах на будущее:
1. Запостить статейку по работе в проектах на Code.Google. Всё-таки не каждый сможет с ходу понять как устроены репозитории, как выгружать исходники, отправлять изменения и т.д., если не разу не пользовался ими.
2. Дописать программку Pings для рассылки пингов в пинг-сервисы. Хочу сделать её многопоточной.
3. Заняться разделом Wiki в DelphiCelendar.
4. Продолжить разбор новых модулей и компонентов Delphi 2009-2010
5. И ещё много чего.
Так что следите за обновлениями блога.

Делись!	Загружай!	Плюсуй!
	Отправить PDF на

Комментарии (16)

• Алексей (Минск) пишет:
  30 Мар 2010 в 9:46 дп

  А меня смущает, размер экрана. да Вы правы насчет чемодана, но все же зачем его с собой вечно таскать?

• Юрий пишет:
  30 Мар 2010 в 10:15 дп

  Не знаю как по мне, разрешение у ноутбука не совсем подходит для delphi 200(x) помню у меня был старенький ASUS и на нем было 1450 на 1078 … так еще более или именн можно было работать… а так ноут супер )

• Vlad пишет:
  30 Мар 2010 в 10:31 дп

  У меня сейчас 1024х768 при 11″ экрана :)

• Vlad пишет:
  30 Мар 2010 в 10:32 дп

  Дело в том, что я постоянно таскаю ноут на 1 работу — в универ. Это 3-4 раза в неделю, поэтому большой ноут меня не привлекает

• Юрий пишет:
  30 Мар 2010 в 10:44 дп

  я когда то в течение 3х лет таскал ноут вместе с блок питанием под 6 кг ))) Даже была травма плеча… но ничего … зато работать на нем было просто сказка !

• Vlad пишет:
  30 Мар 2010 в 10:57 дп

  :) Вот этим моментом мне мой старенький ноут нравится — можно отстегнуть нижнюю часть с DVD, аккумулятором, и флоповодом, положить её где-нибудь и таскать в сумке только зарядник и сам ноут. Вес около 2-2,5 кг. Легко и приятно

• Алексей пишет:
  30 Мар 2010 в 10:58 дп

  Скачал исходники DelphiCelendar, Сразу при запуске пишет не найден модуль GData, далее ругает на отсутствие модуля httpsend. Где все это брать?

• Vlad пишет:
  30 Мар 2010 в 11:09 дп

  Сори за задержку с ответом…почему-то коммент в спам попал. GData уже загружен в репозиторий, а httpsend — это библиотека Synapse. Сорри, что заюзал стороннюю библиотеку…лень было ковыряться в WinInet :)

• Алексей пишет:
  30 Мар 2010 в 11:18 дп

  Спасибо, за быстрый ответ. Тогда еще вопросик. Вы активно используете дженерики в своих примерах. У меня Delphi 2007, можно ли как то их обойти или заменить, просто мне даже не известен их принцип работы. Спасибо.

• Vlad пишет:
  30 Мар 2010 в 11:22 дп

  Да что такое..опять вы в спам попали…Сори :)
  По поводу дженериков — можно заменить их простыми TList, по-моему пример такого листа был в модуле GHelper. Дженерики в проекте использую только из-за удобства работы с TList — не надо заморачиваться над переопределениями Add, Insert и т.д.

• Алексей (Минск) пишет:
  30 Мар 2010 в 11:52 дп

  Мне кажется, что Вы сильно намудрили с юнитами, может есть смысл создавать отдельные не зависимые юниты

  Те. MyCelendars:=TGoogleCalendar.Create(Edit1.Text,Edit2.Text);
  Вы подключаете GCalendar и в нем прозиводите подключение, почему бы не сделать подключение и передать это в GCalendar?

  и примеры отдельно выложить

• Vlad пишет:
  30 Мар 2010 в 11:56 дп

  Да, есть у меня такая «болезнь» :) мудрю с юнитами всё время. Предложение логичное.

• Алексей (Тамбов) пишет:
  30 Мар 2010 в 12:12 пп

  Vlad, вы меня извините, но не могли бы вы помочь перевести с дженериков на обычный лист, Хотя-бы небольшой пример.

• Vlad пишет:
  30 Мар 2010 в 12:24 пп

  Вот так выглядит простой TList для record’a:
  type
TTimeZone = packed record
gConst: string;
Desc : string;
GMT: extended;
rus: boolean;
end;

  type
  PTimeZone = ^TTimeZone;

  type
  TTimeZoneList = class(TList)
  private
  procedure SetRecord(index: Integer; Ptr: PTimeZone);
  function GetRecord(index: Integer): PTimeZone;
  public
  constructor Create;
  procedure Clear;
  destructor Destroy; override;
  property TimeZone[i: Integer]: PTimeZone read GetRecord write SetRecord;
  end;

  ...
  procedure TTimeZoneList.Clear;
  var
  i: Integer;
  p: PTimeZone;
  begin
  for i := 0 to Pred(Count) do
  begin
  p := TimeZone[i];
  if p nil then
  Dispose(p);
  end;
  inherited Clear;
  end;

  constructor TTimeZoneList.Create;
  var i:integer;
  Zone:PTimeZone;
  begin
  inherited Create;
  for i:=0 to High(GoogleTimeZones) do
  begin
  New(Zone);
  with Zone^ do
  begin
  gConst:=GoogleTimeZones[i,0];
  Desc:=GoogleTimeZones[i,1];
  GMT:=StrToFloat(GoogleTimeZones[i,2]);
  rus:=GoogleTimeZones[i,2]='rus';
  end;
  Add(Zone);
  end;
  end;

  destructor TTimeZoneList.Destroy;
  begin
  Clear;
  inherited Destroy;
  end;

  function TTimeZoneList.GetRecord(index: Integer): PTimeZone;
  begin
  Result:= PTimeZone(Items[index]);
  end;

  procedure TTimeZoneList.SetRecord(index: Integer; Ptr: PTimeZone);
var
p: PTimeZone;
begin
p := TimeZone[index];
if p Ptr then
begin
if p nil then
Dispose(p);
Items[index] := Ptr;
end;
end;


  Длинно, много. Та же самая запись, но представленная в дженериках будет выглядеть так:

  type
    TTimeZoneList = TList TTimeZone //(TTimeZone в фигурные скобки надо взять) 
  
  Методы Add, Insert, Clear и т.д. переопределять не надо.
  
  var TimeZone: TTimeZone;
        TimeZoneList : TTimeZoneList ;
  begin
     TimeZoneList  := TTimeZoneList.Create;
     TimeZone.Desc :='Описание чего-то там';
     TimeZoneList.Add(TimeZone);
  end;
  

  Как видите код намного короче. Надеюсь, пример Вам поможет.
  Кстати, раз уж будете переделывать с дженериков на простые TList... может потом поделитесь исходниками для проекта DelphiCelendar? Сделаем отдельную ветку для Delphi до версии 2009

• Алексей (Тамбов) пишет:
  30 Мар 2010 в 12:32 пп

  Попробую переделать, меня эта тема очень интересует. Если что выйдет обязательно выложу.

• Vlad пишет:
  30 Мар 2010 в 12:39 пп

  Сделал отдельную закрытую группу обсуждения проекта в Google. Адрес группы на главной странице проекта

Ваш ответ