Мини гаджет для WinXP. Погода

[Kostia]

Приветствуйте небольшую программу для просмотра погоды в вашем городе.
Всех городов я туда засунуть не смог, только те, что находятся более менее рядом.


Для добавления своего города, нужно пройти по ссылке:
http://informer.gismeteo.ru/setflash...w=11&owncity=1
Выбрать свой город и нажать "Получить HTML-код информера"
Затем скопировать код города и вставить в файл city.txt по аналогии:
<script>URL='http://img.gismeteo.Ru/flash/88x31.swf?city=27612&cset=1';w='88';h='31';value='27612&cset=1';lang='ru'</script><script src='http://informer.gismeteo.Ru/flash/fcode.js'></script>
Москва<27612>
Перезапустить программу и все.

Настройки сохраняются автоматически при закрытии программы.

В архиве exe и исходник с парой комментариев.

PS: я забыл поменять настрой конфигурации, и программа может запуститься за пределами монитора, в таком случае снесите файл config.ini

[ROD]

Что-то в процесах висит, а окон никаких нету. Конфиг удалял - не помогло.

[Kostia]

Мда, значит определение соединение с интернетом не работает.

function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array [1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302');
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
end;

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  while not CheckUrl('www.mail.ru') do
  begin
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Буду копаться дальше =)

[Kostia]

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

Примерный вид хорошего лога:

begin program
FormCreate
Autorun False
Ini loaded
html code loaded
City.txt loaded
Update info complete
program loaded
Autorun key writed
end program

[apromix]

Все работает, только окошко появилось у меня почти в верхнем левом уголке экрана + на панели видно приложение, хотя лучше его закинуть в иконку в трей и убрать с панели:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowMainForm := False;
  ShowWindow(Application.Handle, SW_HIDE);
end;

[Квэнди]

совсем не кашерно показывать html_ю самого информаера. у гисметео есть бесплатный сервис, который культурный xml отдает, вот и пользуйте на здоровье. вам и свобода построения интерфейса и скорость работы в разы

[Levsha100]

Кстати, да, вот ссылка http://informer.gismeteo.ru/xml.html...E2%E0&&lang=ru

[Kostia]

В нормальной версии она там не показывается
SetWindowLong(Application.Handle, GWL_EXSTYLE, NOT WS_EX_APPWINDOW);
+Еще куча разных прелестей, сейчас вроде все настроил.

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

Levsha100, спасибо огромное!

[ROD]

Сделал по инструкции, однако не отображает ни добавленный город, ни стандартне (просто белое окошечко)

begin program
FormCreate
Autorun True
Ini loaded
html code loaded
City.txt loaded
Update info complete
program loaded
end program

[Kostia]

Даже и не знаю что и предположить. Посмотрим когда под xml переделаю.