Hvordan laver man et informations system (Broadcast) til sine programmer?

Ved ikke om det er kønt, men har selv bikset et eksempel sammen.
I er meget velkommenede til at komme med input og gode idér. :-)

<-------UNIT1 START------->

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, UrlMon, ComCtrls, Gauges, StdCtrls, ExtCtrls, ShellApi,
  Buttons, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure ChkNewz();
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    winsc: TiniFile;
    old: Integer;
    vernfo: TIniFile;
  end;

var
  Form1: TForm1;
  Sti, FileName, OldNewz, NewNewz : String;
  IniFile : TIniFile;

implementation

Uses Unit2;

{$R *.dfm}

//Download funktion
Function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

//Tjekker for nye nyheder.
procedure TForm1.ChkNewz();
Var
S : TStringList;
begin
Sti := ExtractFilePath(Application.ExeName);

Form1.Label1.Caption := 'Skaber forbindelse til serveren...';
if DownloadFile('www.MINHOST.dk/Test/NewNewz.ini', PChar(Sti) + '/NewNewz.ini') then
begin
  Form1.Label1.Caption := 'Tjekker for ny version...';
  Form1.vernfo.Free;

  IniFile := TIniFile.Create(Sti + 'OldNewz.ini');
  OldNewz := IntToStr(IniFile.ReadInteger('TJEK', 'OldNewzState', 0)); //Læser Fra Ini Fil.
  IniFile := TIniFile.Create(Sti + 'NewNewz.ini');
  NewNewz := IntToStr(IniFile.ReadInteger('TJEK', 'NewNewzState', 0)); //Læser Fra Ini Fil.

  if (OldNewz = NewNewz) then
  Begin
  Form1.Label1.Caption  := 'Intet Nyt!';
  Form1.Button1.Enabled := False;
  end
  else
  begin
  Form1.Label1.Caption  := 'Der er nyt fra producenten!';
  Form1.Button1.Enabled := True;
  end;
end
else
begin
  Form1.Label1.Caption  := 'Kunne ikke skabe forbindelse til serveren!';
  Form1.Button1.Enabled := False;
end;
end;

//Form1 OnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.ChkNewz();
end;

//Form1 OnActivate
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.ChkNewz();
end;

//Læs Information - KNAP
procedure TForm1.Button1Click(Sender: TObject);
begin
Sti := ExtractFilePath(Application.ExeName);
Form1.Label1.Caption := 'Skaber forbindelse til serveren...';

if DownloadFile('www.MINHOST.dk/Test/Newz.txt', PChar(Sti + 'Newz.txt')) then
begin
  Form1.Label1.Caption := 'Nyheder hentes.....';
  IniFile := TIniFile.Create(Sti + 'OldNewz.ini');
  IniFile.WriteInteger('TJEK', 'OldNewzState', StrToInt(NewNewz)); //Skriver til Ini Fil
  Form2.Show;
end
else
begin
  Form1.Label1.Caption  := 'Kunne ikke skabe forbindelse til serveren!';
end;

end;

end.

<-------UNIT1 SLUT------->


<-------UNIT2 START------->
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, UrlMon, ComCtrls, Gauges, StdCtrls, ExtCtrls, ShellApi,
  Buttons, jpeg;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Sti : String;

implementation

{$R *.dfm}

//Form2 OnActivate
procedure TForm2.FormActivate(Sender: TObject);
begin
Sti := ExtractFilePath(Application.ExeName);
Memo1.Lines.LoadFromFile(Sti + 'Newz.txt');
end;

end.

<-------UNIT2 SLUT------->

Ingen andre bud? :-)

Så snupper jeg selv mine points.

FTP-løsningen er lo-tech. Du kan placere en ini-fil sammen med exe-filen og så lade dit program forbinde til FTP-serveren med jævne mellemrum. Det er en simpel sag at lave med Indy. Hvis du vil lave det med SFTP bliver det lidt mere kompliceret, men grundlæggende er det den forkerte løsning.

Det smukkere alternativ involverer en WEB-service (SOAP eller REST) som programmet kalder. Noget i retning af dette (i tekstform): "Hej jeg er version 1.0.0.3" er der noget nyt?" Servicen svarer "Jep, der er en 1.0.0.12 og der er sket følgende i mellemtiden: v. 1.0.0.4: Fejl i login-billede rettet, v. 1.0.0.5: ... Filerne findes her: http:\\hentfilerneher.dk"

Dette kræver en IIS eller en apache

Men FTP-løsningen er da simpel og vil fungere

http://code.google.com/p/tautoupdate/

http://www.clevercomponents.com/articles/article011/webupdater.asp