jvcl-checkins

[Jens F. <jfu...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvProgramVersionCheck
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14695/JVCL3/examples/JvProgramVersionCheck

Modified Files:
	Main.dfm Main.pas 
Log Message:
Updated


Index: Main.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvProgramVersionCheck/Main.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Main.pas	30 Jan 2005 10:26:42 -0000	1.1
--- Main.pas	30 Jan 2005 15:58:56 -0000	1.2
***************
*** 23,32 ****
      JvProgramVersionHTTPLocationICS1: TJvProgramVersionHTTPLocationICS;
      procedure FormShow(Sender: TObject);
-     function JvProgramVersionFTPLocation1LoadFileFromRemote(
-       iProgramVersionLocation: TJvProgramVersionFTPLocation; const iRemotePath,
-       iRemoteFileName, iLocalPath, iLocalFileName: string): string;
-     function JvProgramVersionHTTPLocation1LoadFileFromRemote(
-       iProgramVersionLocation: TJvProgramVersionHTTPLocation; const iRemotePath,
-       iRemoteFileName, iLocalPath, iLocalFileName: string): string;
    public
      procedure VersionCheck;
--- 23,26 ----
***************
*** 47,85 ****
  end;
  
- function TForm1.JvProgramVersionFTPLocation1LoadFileFromRemote(
-   iProgramVersionLocation: TJvProgramVersionFTPLocation; const iRemotePath,
-   iRemoteFileName, iLocalPath, iLocalFileName: string): string;
- begin
-   With JvFtpUrlGrabber do
-   begin
-     FileName := PathAppend(iLocalPath, iLocalFileName);
-     url := iRemotePath + iRemoteFilename;
-     OutputMode := omFile;
-     Mode := hmBinary;
- 
-     Start;
-     while Status <> gsStopped do
-       Application.HandleMessage;
-     Result := FileName;
-   end;
- end;
- 
- function TForm1.JvProgramVersionHTTPLocation1LoadFileFromRemote(
-   iProgramVersionLocation: TJvProgramVersionHTTPLocation; const iRemotePath,
-   iRemoteFileName, iLocalPath, iLocalFileName: string): string;
- begin
-   With JvHttpUrlGrabber do
-   begin
-     FileName := PathAppend(iLocalPath, iLocalFileName);
-     url := iRemotePath + iRemoteFilename;
-     OutputMode := omFile;
-     Start;
-     sleep (1000);
-     while Status <> gsStopped do
-       Application.HandleMessage;
-     Result := FileName;
-   end;
- end;
- 
  procedure TForm1.VersionCheck;
  begin
--- 41,44 ----

Index: Main.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvProgramVersionCheck/Main.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Main.dfm	30 Jan 2005 10:26:42 -0000	1.1
--- Main.dfm	30 Jan 2005 15:58:56 -0000	1.2
***************
*** 74,89 ****
      VersionInfoLocationPathList.Strings = (
        'Version Check\Remote')
!     VersionInfoFilename = 'ProjektVersions.ini'
      Left = 105
      Top = 200
    end
    object JvProgramVersionHTTPLocation1: TJvProgramVersionHTTPLocation
!     VersionInfoFilename = 'ProjektVersions_http.ini'
!     OnLoadFileFromRemote = JvProgramVersionHTTPLocation1LoadFileFromRemote
      Left = 105
      Top = 240
    end
    object JvProgramVersionFTPLocation1: TJvProgramVersionFTPLocation
-     OnLoadFileFromRemote = JvProgramVersionFTPLocation1LoadFileFromRemote
      Left = 105
      Top = 280
--- 74,87 ----
      VersionInfoLocationPathList.Strings = (
        'Version Check\Remote')
!     VersionInfoFileName = 'ProjektVersions.ini'
      Left = 105
      Top = 200
    end
    object JvProgramVersionHTTPLocation1: TJvProgramVersionHTTPLocation
!     VersionInfoFileName = 'ProjektVersions_http.ini'
      Left = 105
      Top = 240
    end
    object JvProgramVersionFTPLocation1: TJvProgramVersionFTPLocation
      Left = 105
      Top = 280
***************
*** 97,101 ****
        'htasdasd'
        'http://www.oratool.de/test/')
!     VersionInfoFilename = 'ProjektVersions_http.ini'
      Left = 300
      Top = 320
--- 95,99 ----
        'htasdasd'
        'http://www.oratool.de/test/')
!     VersionInfoFileName = 'ProjektVersions_http.ini'
      Left = 300
      Top = 320
***************
*** 105,109 ****
        'asdas'
        'ftp://www.oratool.de/test/')
!     VersionInfoFilename = 'ProjektVersions_http.ini'
      Left = 300
      Top = 270
--- 103,107 ----
        'asdas'
        'ftp://www.oratool.de/test/')
!     VersionInfoFileName = 'ProjektVersions_http.ini'
      Left = 300
      Top = 270