rejetto forum

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Mars

Pages: 1 2 3 4 5 ... 130
31
Programmers corner / Re: delphi 10
« on: May 13, 2020, 09:50:40 PM »
yes, when the root is protected it doesn't work. Working on it.

the problem is located in Tfile.accessfor

if we put a break at the start of the while assigned(f) , everything seems to work fine

Code: [Select]
while assigned(f) do
  begin
     break;
     .....

32
Programmers corner / Re: delphi 10
« on: May 13, 2020, 12:54:09 AM »
yes you are right

login not working with a request from another computer, but from local computer at ip 127 or 192 in url  its works


the password change method is to be reviewed because of the redirection to ~ login

Code: [Select]
    function changePwd() {
        {.if|{.can change pwd.}
        | ask(this.innerHTML, 'password', function(s){
            s && ajax('changepwd', {'new':s}, getStdAjaxCB(function(){
                showMsg("{.!Password changed, you'll have to login again..}")
                location = '~login'
            }))
        })
        | showError("{.!Sorry, you lack permissions for this action.}")
.}
    }//changePwd


in main.pas  '~login' become obsolete
in hslib.pas  part of  WWW-Authentificate can be removed ??

33
HFS ~ HTTP File Server / Re: Edit error pages
« on: May 12, 2020, 11:06:42 PM »
in the template , change the content of the section
[error-page]

34
perhaps by using

Properties of the item -> permissions -> access

in this order check:  any account , anonymous, anyone   

validate by clicking on ok


35
Programmers corner / Re: delphi 10
« on: May 12, 2020, 10:50:50 PM »
always the same aspect, bug still present  :-[
I reloaded the exe but I wonder if you put the last one with the right dfm

i used your dfm to compile and i have no visual flaws ;), then  you will have to install a virtual machine XP  ;D

36
Programmers corner / Re: delphi 10
« on: May 12, 2020, 08:31:56 PM »
thanks mars. I'll try "parentfont=true", so that the font is just one.
I do not know if it is an oversight but with parentfont = true which is the default value it does not work, for each component accepting a custom FONT it is absolutely necessary to put parentfont = false everywhere, which also has the consequence of add the other lines to the dfm



there are actually only 5 locations where this is necessary, just do it for one version and this operation will remain operational for the following versions
the list is:
urltoolbar
toptoolbar
graphbox
centralpnl
mainfrm
  select each element successively, change the value from 8 to 6, then immediately return to the value 8, save main.pas and it is final so that the program is displayed correctly on XP

37
Programmers corner / Re: delphi 10
« on: May 10, 2020, 09:39:28 PM »
sigh..... i suspected what i did was not enough. Maybe mars could give me its main.dfm, but that may also be not enough.

I may be able to make tests using a VM with XP.

sorry for the delay but the last version alpha06 cannot be compiled on my delphi xe2, suddenly I modified the dfm by hand

what is different from the original version is the addition where it seems necessary to have
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False

38
Programmers corner / Re: delphi 10
« on: May 10, 2020, 05:37:12 PM »
i tried as you said, but i noticed that the only change in the DFM file was to add "ExplicitLeft". Strange. Maybe i didn't do it in the right way. I did it only for the main form now, if someone will confirm that it's working i'll do it for the other windows.

I imagine that this is just a problem inherent in the delphi version, and that by doing so we get to initialize the right values quite simply. it is not necessary to add it to the dfm

39
Programmers corner / Re: delphi 10
« on: May 10, 2020, 03:29:22 PM »
Quote
I run these alpha versions mostly with Ctrl & Shift pressed, thus no configuration was loaded.

try to use
Menu >> Debug >> Temporaly reset options

40
HTML & templates / Re: Alternative login form for modern browsers
« on: May 10, 2020, 02:54:51 PM »
Why stop now while everything is going so well  ;)

      if goodPassword(data.postVars.values['__PASSWORD_SHA256'], strSHA256)
      or goodPassword(data.postVars.values['__PASSWORD_MD5'], strMD5)
      or goodPassword(data.postVars.values['__PASSWORD_B64'], strB64)
      or (data.postVars.values['__PASSWORD'] = data.account.pwd) then

https://www.base64encoder.io/javascript/

we could even avoid indicating the type of encryption when sending the form in case of interception of frames
     if goodPassword(data.postVars.values['__PASSWORD'], strSHA256)
      or goodPassword(data.postVars.values['__PASSWORD'], strMD5)
      or goodPassword(data.postVars.values['__PASSWORD'], strB64)
      or (data.postVars.values['__PASSWORD'] = data.account.pwd) then

41
Bug reports / Re: Bug: Logout function at server level [Fixed]
« on: May 10, 2020, 02:35:28 PM »

Quote from: silentpliz
Mars, arrête de pirater mes posts, sinon je me fâche !!!

 Finally Silentpliz found his electric razor  8)
before

and after

by its star rating we can see that its neurons are 100% charged again  ;D ;D



42
Programmers corner / Re: delphi 10
« on: May 09, 2020, 05:50:35 PM »
cool, thanks. Maybe the best solution is to totally remove the font settings from the DFM files ? can you try that way?

deleting or modifying the fonts in the dfm is not enough, it is absolutely necessary to perform the operation for each inspector object of the structure, there are less than ten

43
Programmers corner / Re: delphi 10
« on: May 09, 2020, 05:25:05 PM »

I have very very good news to announce

working as a rebutto from the start with turbo delphi 2006, until then everything was going well, then for some time I had to work on another project which required at least a delphi XE, but despite unsuccessful tests the compilation of hfs did not pass not a few minor modifications still made it possible to obtain an exe but with a display of the huge buttons as I no longer know who made us a capture

I tried the delphi rio on a loaned pc but which only accepts windows 8 at least to work, but it was rather frustrating.

I managed to find the origin of the problem, you have to go into the design of the main.not and modify all the font sizes by increasing them by 2 pixels each, compile the project then return to the normal size of all fonts

So the latest sources can be compiled on a delphi XE2 running under Windows XP




I now need to check the overbyte update and the jcl suite like on delphi rio to complete compatibility with rejetto

44
HTML & templates / Re: Alternative login form for modern browsers
« on: May 07, 2020, 04:21:05 PM »
for an md5 macro, you must first add OverbyteicsMD5 in 'uses', optionally OverbyteicsSha1
then we add the necessary macros

in this case we take the opportunity to introduce the 64 and sha1 encoding macros available easily

Code: [Select]
    if name = 'encode md5' then  // only for text strings, otherwise use 'md5 file' for binary files
      result:=strMD5(p);

    if name = 'encode sha1' then
      result:=SHA1ofStr(p);

    if name = 'encode 64' then
      result:=base64encode(p);

    if name = 'decode 64' then
      result:=base64decode(p);

// just above these macros
    if name = 'encodeuri' then
      encodeuri();

    if name = 'decodeuri' then
      result:=decodeURL(p);

But to satisfy the rebetto who loves the minimum evolution, we could make a variant allowing an evolution by grouping everything in a macro with various parameters but that could complicate the writing

{.encode|[md5,64,sha1,...]| ..... .}
{.decode|[64,...]| ..... .}

45
hslib.pas , substitute 'WWW-Auth........'  text will remove request of ident

Pages: 1 2 3 4 5 ... 130