Versionsabfrage über's Internet mittels Thread

**Matze**

Hallo,

SittingDuck hat

hier mithilfe einiger Mitglieder einen Code zusammengestellt, der es ermöglicht, über einen Thread, eine Datei, die sich auf einem Server befindet, auszulesen. Befindet sich in dieser Datei die Versionsnummer der aktuellsten Version einer Anwendung, kann man damit eine Update Überprüfung durchführen. Ein Thread ist dafür natürlich das beste, da die Anwendung während der Überprüfung nicht einfriert, sei die Verbindung noch so langsam.

Unit für die Verwendung von Internetfunktionen einbinden:
uses WinInet; Das Thread Objekt:

markieren

Delphi-Quellcode:

			type

  TGetRemoteVersionThread = class(TThread)

  private

    procedure UpdateCaption;

  protected

    procedure Execute; override;

  public

    CurrentVersionStr, RemoteVersion: string; //FileVersion, RemoteVersion

end;

Funktion, die die Datei auf dem Server ausliest:

zusammenfalten · markieren

Delphi-Quellcode:

			function LoadURL(URL: String): String;

var

  IOpen, IURL: HINTERNET;

  Read: Cardinal;

  Msg: array[0..4096] of Char;

begin

  Result := '';

  IOpen := InternetOpen('GetIP', INTERNET_OPEN_TYPE_PRECONFIG, '', '',

                        INTERNET_FLAG_NEED_FILE);

  if IOpen <> nil then

  try

    IURL := InternetOpenUrl(IOpen, PAnsiChar(URL), nil, 0,

                            INTERNET_FLAG_NO_UI or INTERNET_FLAG_PRAGMA_NOCACHE

                            or INTERNET_FLAG_RELOAD, 0);

    if IURL <> nil then

    try

      repeat

        FillChar(Msg, SizeOf(Msg), 0);

        if InternetReadFile(IURL, @Msg[0], Pred(SizeOf(Msg)), Read) then

          Result := Result + Msg else

            Break;

      until Read = 0;

    finally

      InternetCloseHandle(IURL);

    end;

  finally

    InternetCloseHandle(IOpen);

  end;

end;

Funktion zum Anzeigen der Versionen und des Status (neuere Version vorhanden):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TGetRemoteVersionThread.UpdateCaption;

begin

  with Form1 do

  begin

    // Could not get data

    if RemoteVersion = '' then

    begin

      LblVersionStatus.Caption := 'An error occured.' + #13#10 + 'Note: ' +

                                  'You must be connected to the internet';

    end else

    if RemoteVersion = CurrentVersionStr then

      LblVersionStatus.Caption := 'You have the newest version installed' else

        LblVersionStatus.Caption := 'A newer version is available.';

    LblCurrentVer.Caption := CurrentVersionStr;

    LblOnlineVer.Caption := RemoteVersion;

  end;

end;

Prozedur "Execute" des Threads:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TGetRemoteVersionThread.Execute;

const

  BaseURL = 'http://www.domain.de/';

  VersionFile = 'version.txt';

begin

  try

    if InternetGetConnectedState(nil, 0) then

    begin

      RemoteVersion := LoadURL(BaseURL + VersionFile);

      // get current version

      CurrentVersionStr := GetVersion;

      Synchronize(UpdateCaption);

    end;

  except

  end;

end;

Das Starten des Threads geht's folgendermaßen:

markieren

Delphi-Quellcode:

			var

  Thread: TGetRemoteVersionThread;

  // ...

  Thread := TGetRemoteVersionThread.Create(True);

  Thread.FreeOnTerminate := True;

  Thread.Resume;

Damit es eswas anschaulicher ist, habe ich dazu eine kleine Demo geschrieben, die sich im Anhang befindet.

**Jelly**

Und weil ich auch noch meinen Senf dazugeben will... Meine TInternetUpdate Komponente macht ziemlich genau das Gleiche, nur bereits praktisch in eine VCL Komponente gepackt...

Kuckst Du hier

Versionsabfrage über's Internet mittels Thread

Versionsabfrage über's Internet mittels Thread

Re: Versionsabfrage über's Internet mittels Thread

Forumregeln

Jelly Registriert seit: 11. Apr 2003 Ort: Moestroff (Luxemburg) 3.741 Beiträge Delphi 2007 Professional	#2 Re: Versionsabfrage über's Internet mittels Thread 21. Jan 2006, 13:14 Und weil ich auch noch meinen Senf dazugeben will... Meine TInternetUpdate Komponente macht ziemlich genau das Gleiche, nur bereits praktisch in eine VCL Komponente gepackt... Kuckst Du hier Tom Peiffer Rema - das Releasemanagement System für Entwickler Changelog
	Zitat