Hello,
I updated yesterday the VCL UI Pack, hoping this would fix the problems I had with TWebUpdate component.
It looks like I still have the same problems i earlier had with the WebCopy-component.
Access violation in the routine "TWebUpdate.ConnectSocket"
Is it possible the "sFTP-Fix" is not yet implemented in the TWebUpdate component ?
kind regards,
Dirk Janssens.
Hi,
Indeed, the fix is not part of the newly released TMS VCL UI Pack update, we have overlooked it.
The next update will contain the changes.
If the fix is needed urgently, we can send you an incremental source update for the TWebUpdate component.
That would be very much appreciated.
The incremental source update has been sent to your forum inbox.
Thank you.
This solved the access-violation, but I am having a hard time configuring the component to get it to work.
I get the message " WebUpdate_stratoStatus Cannot change FTP directory to :"
I tried many formats, none worked.
It also takes a very long time before I get the message "cannot change FTP directory to..." ( 20 sec )
In the attached image you see that i use the same settings as in the updateBuilder, and that the files are uploade correctly (FileZilla.)
some examples I tried :
WebUpdate_stratoStatus Cannot change FTP directory to : .cm4all/
WebUpdate_stratoStatus Cannot change FTP directory to : .cm4all
WebUpdate_stratoStatus Cannot change FTP directory to : /.cm4all/
WebUpdate_stratoStatus Cannot change FTP directory to : /.cm4all
I hope you see what I am doing wrong.
kind regards,
Dirk Janssens.
It would help to know how did you configure the TWebUpdate component. We can connect to an SFTP server and update an application here locally without issues, so I'd expect the following to work:
WebUpdate1.UpdateType := sftpUpdate;
WebUpdate1.Host := 'ssh.strato.com';
WebUpdate1.Port := 22;
WebUpdate1.UserID := 'flowerform.nl';
WebUpdate1.Password := 'yourpassword';
WebUpdate1.FTPDirectory := '.cm4all';
WebUpdate1.URL := 'FlowerFormStrato.INF';
What are you doing differently?
nothing really :
The only differnce was my URL, I used the complete path as in the builder. I also use it that way with normal FTP, and that works.
But even when I copy your code exactly, I get the message :
"WebUpdate_stratoStatus Cannot change FTP directory to : .cm4all"
My code :
procedure TForm5.Button4Click(Sender: TObject);
var
up : TWebUpdate ;
begin
up := TWebUpdate.Create( self );
up.UpdateType := sftpUpdate ;
up.Host := 'ssh.strato.com' ;
up.Port := 22;
up.UserID := 'flowerform.nl' ;
up.Password := '*****************' ;
up.FTPDirectory := '.cm4all' ;
up.URL := 'FlowerFormStrato.INF';
up.Logging := true ;
up.LogFileName := 'D:\update_test\logStrato.txt' ;
up.OnStatus := WebUpdate_stratoStatus ;
if up.NewVersionAvailable then
showmessage('Er staat een nieuwe versie')
else
showmessage('Geen nieuwe versie gevonden..') ;
end;
LOG FILE:
02-09-2021 16:27:47 : [966] OS version : Windows 7 (Status:0) (Error:0)
02-09-2021 16:27:47 : [967] IE version : 9.0000 (Status:0) (Error:0)
02-09-2021 16:27:47 : [969] Compiler : D2007 (Status:0) (Error:0)
02-09-2021 16:27:47 : [970] Installed IDEs : D2007DXE6DXE7DXE7 (Status:0) (Error:0)
02-09-2021 16:27:47 : [963] Start WebUpdate process with version : 2.6.1.1 (Status:0) (Error:0)
02-09-2021 16:27:47 : [918] Checking for Internet connection (Status:3) (Error:0)
02-09-2021 16:27:47 : [921] Found open Internet connection (Status:3) (Error:0)
02-09-2021 16:27:47 : [923] Connect to host : ssh.strato.com (Status:3) (Error:0)
02-09-2021 16:28:04 : [915] Download : FlowerFormStrato.INF (Status:3) (Error:0)
02-09-2021 16:28:04 : [974] Change FTP directory to : .cm4all (Status:3) (Error:0)
02-09-2021 16:28:05 : [975] Cannot change FTP directory to : .cm4all (Status:3) (Error:8)
02-09-2021 16:28:05 : [925] Update control file not found (Status:2) (Error:0)
02-09-2021 16:28:05 : [949] Closed Internet connection (Status:3) (Error:0)
02-09-2021 16:28:05 : [949] Closed Internet connection (Status:3) (Error:0)
Is this specific to Delphi2007 again or do you experience the issue on a newer version too?
Would it be possible to provide us a test account that we can use to investigate this further?
Just installed and tested it in Delphi 10.4 : no problems ...
How can I mail you private ? Then I send you my project
We'll do some investigation in this area. it's most likely related to Delphi2007 again.
On this forum? When clicking on the name of a user there should be a blue button that says Message. Alternatively go to your forum profile, change to the Messages tab and click the New Message button.
Do you need my project to investigate ?
First we'll check this separately in Delphi2007. If we still can't see issues, a test project will be needed. We'll let you know.
We were able to track and fix the issue. Please see your forum messages for another incremental source update.
I found the problem :
The updatebuilder (still) generates unicode .INF - files, and Delphi 2007 cannot read these.
This was reported almost a year ago, and was on the to-do list, but apperantly it is not implemented in the latest upgradeBuilder ?
Or is the ANSI-version of the updateBuilder that also works with sFTP available somewhere ?
Thank you, very obvious once you've seen it ;-) !
Now the only problem left is the error when using the wizzrd in the latest version:
We fixed this. Next update will address this.
