Does FNCAppUpdate support sftp?
I had this old code:
uTracker := TWebUpdate.Create(nil);
try
with wuTracker do
begin
FTPDirectory := '/home/chemUpdater';
Host := 'montgomery.dreamhost.com';
LogFileName := ExtractFilePath(ParamStr(0)) + '\CHEMDB.LOG';
Logging := True;
Password := '*****';
Port := 22;
ShowDownloadProgress := True;
UpdateConnect := wucConnectSilent;
UpdateType := sftpUpdate;
UpdateUpdate := wuuPromptOnce;
URL := 'ChemDBase.INF';
UserID := 'chemUpdater';
end;
try
if wuTracker.NewVersionAvailable then
begin
frmSplash.HideCheckingLabel;
wuTracker.DoUpdate;
end;
except
on E: Exception do
ShowMessage(Format('Update Failed with message ' + #13 + ' %s',
[E.Message]));
end;
finally
FreeAndNil(wuTracker);
end;
New Code:
procedure TryUpdate;
var
wuTracker: TTMSFNCAppUpdate;
begin
wuTracker := TTMSFNCAppUpdate.Create(nil);
try
with wuTracker do
begin
Logging.FileName := ExtractFilePath(ParamStr(0)) + '\CHEMDB.LOG';
Logging.Enabled := True;
Elevate := True;
NewVersion := '2.0.1.3';
URL := 'https://montgomery.dreamhost.com/home/chemUpdater/ChemDBase.INF';
UserName := 'chemUpdater';
Password := '*****';
end;
try
if wuTracker.NewVersionAvailable then
begin
frmSplash.HideCheckingLabel;
wuTracker.StartUpdate;
end;
except
on E: Exception do
ShowMessage(Format('Update Failed with message ' + #13 + ' %s',
[E.Message]));
end;
finally
FreeAndNil(wuTracker);
end;
end;
CHEMDB.LOG (803 Bytes)
any help?