LordJonas

SOLVED I was using the private IP when I should be using the public IP....

Hi. I just created a Amazon Linux 2 virtual machine for development and testing. I'm able to connect via SSH, i installed PAServer and it's running normal. However, it's not possible for Delphi to connect to PAServer, even with all the information entered correct. Any clues ?

Well, I can confirm that using the "override method" (manually copying the files from the zip file to the installation folder) does not work, like i told i got the error described, but using the installation script from Embarcadero does work. It seems that for some reason the PatchTool.exe uses some kind of magic....

I've installed the patch manually and got the same error. I've tried the solution indicated by Microsoft but without sucess....

Thanks @Pat Foley, you're absolutely right.... altought the message leads to another interpretation....

unit SIGR.Front.View.Principal; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.Imaging.pngimage; type TfrmViewMain = class(TForm) pnlViewMain: TPanel; imgBack: TImage; pnlViewMainTopo: TPanel; pnlViewMainBottom: TPanel; pnlViewMainLateral: TPanel; pnlViewMainCliente: TPanel; pnlViewMainLogo: TPanel; imgLogo: TImage; pnlViewMainTopoClient: TPanel; pnlViewMainTopoLinha: TPanel; pnlViewMainSair: TPanel; pnlViewMainConfig: TPanel; pnlViewMainUtils: TPanel; pnlViewMainTbls: TPanel; pnlViewMainOper: TPanel; pnlViewMainResid: TPanel; pnlViewMainGest: TPanel; pnlViewMainEmpr: TPanel; shpLinhaTopo: TShape; procedure pnlViewMainSairClick(Sender: TObject); procedure pnlViewMainEmprClick(Sender: TObject); procedure pnlViewMainGestClick(Sender: TObject); procedure pnlViewMainResidClick(Sender: TObject); procedure pnlViewMainOperClick(Sender: TObject); procedure pnlViewMainTblsClick(Sender: TObject); procedure pnlViewMainUtilsClick(Sender: TObject); procedure pnlViewMainConfigClick(Sender: TObject); private { Private declarations } procedure MoveShapeItem(Value: TPanel); public { Public declarations } end; var frmViewMain: TfrmViewMain; implementation {$R *.dfm} procedure TfrmViewMain.MoveShapeItem(Value: TPanel); begin TThread.CreateAnonymousThread( procedure begin while shpLinhaTopo.Left <> Value.Left do begin if shpLinhaTopo.Left > Value.Left then shpLinhaTopo.Left := shpLinhaTopo.Left - 1 else shpLinhaTopo := shpLinhaTopo.Left + 1; end; end ).Start; end; procedure TfrmViewMain.pnlViewMainConfigClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; procedure TfrmViewMain.pnlViewMainEmprClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; procedure TfrmViewMain.pnlViewMainGestClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; procedure TfrmViewMain.pnlViewMainOperClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; procedure TfrmViewMain.pnlViewMainResidClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; procedure TfrmViewMain.pnlViewMainSairClick(Sender: TObject); begin Close; end; procedure TfrmViewMain.pnlViewMainTblsClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; procedure TfrmViewMain.pnlViewMainUtilsClick(Sender: TObject); begin MoveShapeItem(TPanel(Sender)); end; end.

I think i've just found a bug in Delphi 11.1.... In this piece of code i'm getting the error "E2010 Incompatible types: 'TShape' and 'Integer'" but if we take a closer look both types are Integer: