Opdateringssystem

Ja, du kan f.eks. lægge en fil på din server med det nyeste versionsnummer, få dit program til at downloade filen, tjekke om nummeret i filen er større end programmets version. I såfald skal programmet gå til din side.

Du kunne også lave en fil i php der kunne se eks. sådan her ud

<?
$ver = $_GET['ver'];
$currentver = 2;

if ($ver < $currentver)
{
  echo "Ny opdatering tilgængelig. Hent den <a href=\\"bla-v2.0.zip\\">her</a>";
}
else
{
  echo "Dit version er up-to-date";
}
?>

Så kan du kode dit program så den besøg www.dinside.dk/version.php?ver=1.5

Hvis 1.5 så er lavere end den nyeste version kommer teksten med link til den nye vesion frem.

Der er masser af muligheder.

Hvis du også mangler en kodestump til at downloade filer er her en:

function Download(URL,Filename: string): boolean;
var
  idHTTP: TIDHTTP;
  FS: TFileStream;
begin
  idHTTP:= TIDHTTP.Create(nil);
  FS:= TFileStream.Create('temp/' + Filename,fmCreate);
  try
    idHTTP.Get(URL,FS);
  finally
    idHTTP.Free;
    Result:= true;
  end;
  FS.Free;
end;

eksempel:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Download('http://www.google.com/intl/en/images/logo.gif','logo.gif')
//Det vil smide logo.gif i en mappe ved navn temp, i samme mappe som programmet. Bemærk at temp mappen skal være oprettet før det virker. Du skal også have Indy komponenterne installeret før kodestumpen virker-
end;

Eller hvis du ikke vil bruge Indy, så kan du bruge:

uses Wininet;
..........
function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
 Result:=False;
 sAppName := ExtractFileName(Application.ExeName);
 hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
               nil, nil, 0);
 try
  hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,0,0);
  try
   AssignFile(f, FileName);
   Rewrite(f,1);
   repeat
    InternetReadFile(hURL, @Buffer,
                     SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
   until BufferLen = 0;
   CloseFile(f);
   Result:=True;
  finally
   InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end
end;
..........
procedure TForm1.Button1Click(Sender: TObject);
var FileOnNet, LocalFileName: string;
begin
  FileOnNet:= 'http://www.ditsite.dk/update.txt';
  LocalFileName:='c:\\update.txt';
  if GetInetFile(FileOnNet,LocalFileName) then
  begin
  //Filen er hentet...
  end;
end;
end;

Godt at morten lige kom med den kode for vil netop ikke bruge indy. Men der får jeg en fejl

Linje: BlockWrite(f, Buffer, BufferLen)
Fejl: [Hint] Unit1.pas(37): Value assigned to 'GetInetFile' never used

Doppel post?

Nu har jeg ikke lige ret meget forstand på Delphi, men det ser ud som om der kunne mangle et simikolon.

Shafh, det er ikke nogen fejl...det er bare et "Hint" eller på dansk "antydning" som gør dig opmærksom på noget, hvad er jeg ikke helt sikker på, men den kommer også hos mig, men mine programmer opdatere fint

Nvm.

Der kommer også en boks frem som skriver en fejl! Så jo der er noget galt... Hved så altså ikke lige hvorfor?

her er den side jeg brugte til min opdateringsfunktion:

måske har jeg skrevet noget galt

http://delphi.about.com/od/internetintranet/l/aa013001a.htm