erich.wanker

hmmm .. does somebody knows how to change the startup-color ??? i tryed so much - but nothing helps .. .x-desktop { background-color: #282d32 !important;} .x-body { background-color: #282d32 !important;} ..

Hi .. how can i change the white startpage background-color to: #282d32; ThanX for help :-) Erich PS: ..the loadig-indicator is no problem .. procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject); begin UniServerModule.CustomCSS.Add( '#loading .loading-indicator {'+ 'background-color: #282d32;'+

OOOHHHHH ... the answer was given in the past .. sorry .. "collapsed" was the right search term .. :-)

unidbTreeGrid reloads after "SQL->append->post" to root node .. it is very hard to fill the table with nodes/subnodes at runtime - everytime if i insert a record in the mySQL-table the unidbTreeGrid reloads to the root node .. Any ideas?

Hi, Standalone .. unigui-exe with hyperserver on Apache... 1 table with all informations: maintenance_asset ' `id` INT(8) UNSIGNED AUTO_INCREMENT PRIMARY KEY,' + ' `inr` INT(8) UNSIGNED,' + ' `dummy` VARCHAR(1) ,' + ' `category` VARCHAR(50),' + ' `idfield` INT(8) UNSIGNED,' + ' `idparentfield` INT(8) UNSIGNED,' + ' `my_nodename ` VARCHAR(200),' + ' `asset_name` VARCHAR(200),' + ' `asset_id` INT(8) UNSIGNED,' + ....

How can i make a SELECT * FROM maintenance_asset where my_nodename ="buildings" AND userright containing "e4" order by Node_id Is something possible? ..

SORRY ... everything works fine in ALL OS!!! (the problem was: PWA on IPhone are not realy closed if you move it out of the Taskmanger .. i must restart the iPhone to get a new version from hyperserver..)

Hello and nice greetings :-) .. is a "server farming" function available in the foreseeable future? ThanX for infos stay healthy :-)

Try to set TFDPhysMySQLDriverLink.VendorLib property to the full path of libmysql.dll and see what the message you will get or the app will connect. Greetings Erich

ThanX :-)

Hello Hyperserver does not start my Desktop-App via SSL - i have Apache/2.4.38 (Win32) OpenSSL/1.1.1a PHP/7.3.2 with https:// i become error: SSL_ERROR_RX_RECORD_TOO_LONG without https - it works i have 3 files from customer: server.crt, organisation.crt and secret.key (text editor shows " - - - - - BEGINN ..." ascii text) i renamed it to "cert.pem" "root.pem" and "key.pem" and stored it into htdocs folder (where the unigui app is) if i start the unigui.exe file - i become no error - i can click on trayicon - and see the server at http://localhost:8077/server Windows Server .. Firewall is open for Port 80 and 443 .. unigui and hyper_server.dll Version: 1.90.0.1531 httpd.conf of Apache Include "conf/extra/httpd-ssl.conf" httpd-ssl.conf of Apache Listen 443 unigui_application.cfg [transport] pool_size=0 command_timeout=20000 request_timeout=300000 connect_timeout=20000 [http_transport] start_port=16384 [hyper_server] binary_name=the unigui .exe initial_nodes=2 max_nodes=8 max_sessions=0 sessions_per_nodes=0 prompt_login=1 persistent_node_zero=0 port=80 url_path= url_referer= ext_root=[ext]\ uni_mobile_root=[unim]\ uni_root=[uni]\ uni_packages_root=[unipack]\ max_requests=500 detailed_log=0 antiflood_per_ip=0 server_root= server_title= unigui_application.ssl.cfg object TUniHyperSSL SSL.Enabled = true SSL.SSLOptions.RootCertFile = 'root.pem' SSL.SSLOptions.CertFile = 'cert.pem' SSL.SSLOptions.KeyFile = 'key.pem' SSL.SSLOptions.Method = sslvTLSv1_1 SSL.SSLOptions.SSLVersions = sslvTLSv1_1 SSL.SSLOptions.Mode = sslmUnassigned SSL.SSLOptions.VerifyMode = [] SSL.SSLOptions.VerifyDepth = 0 SSL.SSLPort = 0 end in my UniGUi App - Servermodule - SSL i used the same settings like the ssl-cfg-txt-file - COMPILED the version and uploaded to customer What must i check and set to use HTTPS ? the infos at http://www.unigui.com/doc/online_help/ssl-support-in-hyperserver.htm are not enouth ;-)

ThanX a lot :-) i included "UniThreadTimer1.Lock .." and i will test it today :-) Thank you Erich

Hi .. i must resync tables all 24 hours (with CSV files) I dont know - but it works sometimes - and sometimes not .. i use a UniThreadTimer (Interval 2000000) in Servermodule ( the servermodule has also a seperate ZConnection1 to the database to make the job) if i start the procedure "alle_importieren" manualy - everything works fine. procedure TUniServerModule.UniThreadTimer1Timer(Sender: TObject); var dd, mm, yyyy: Word; dda, mma, yyyya: Word; zuletzt: TDatetime; h, m, s, ms: Word; begin Importeinstellung.Refresh; if Importeinstellung.FieldByName('Aktiv').AsInteger = 1 then // Yes - do it begin zuletzt := Importeinstellung.FieldByName('lastSync').AsDateTime; decodedate(now, dda, mma, yyyya); decodedate(zuletzt, dd, mm, yyyy); if dda <> dd then begin DecodeTime(now, h, m, s, ms); if Importeinstellung.FieldByName('SyncTime').AsInteger = h then / h is the hour - in my case 18 ( 6 pm ) - the time of the server is set to 24 h begin alle_importieren; / the main import procedure Importeinstellung.Edit; Importeinstellung.FieldByName('lastSync').AsDateTime := now; Importeinstellung.post; Logger.AddLog('lastSync:' + datetostr(now)); end; end; end; end; ThanX for help :-) nice greetings erich

Hi, if i mousedown the closebutton or titlebar for 1 seconds - the form jumps in the center of the screen: BorderStyle = bsSizeToolWin FormStyle = fsStayOnTop Position = poDesigned procedure TuniForm.UniFormCreate(Sender: TObject); begin self.Top:=40; self.Height:=MainForm.Height-80; self.Left:= MainForm.Width-20-self.Width; .. it seems that a javascript-value does not recognite the left and top values what are given at create-time..

Hy, i use following line to set a display format to a field (unimainmodule.Z_REPORTE.FieldByName('Istkosten') as TNumericField).DisplayFormat := '###0.00 €'; field 'Istkosten' in unidbgrid shows 10,00 € field 'Istkosten' in UniDBText shows 10 why is the same field displayed in two differnt styles? Mysql Database ... field definition Istkosten double(16,2) Connection with Zeos Lib 7.7.4 Delphi XE4 UniGui 1.90.0.1531

hello picyka, NO - i didnt get it to run

Hi Farhad - it was "true" .. i set it to false - compiled the project AND THE TAB IS WORKING :-) Thank you very much !!!!!!!!!!! ThanX .. Erich

ok .. i think i found a thing ... the only different between a working and a not working version is the id ... the rest of sourcecode in Chrome-Developer-View is completly the same

ok .. i think i found a thing ... the only different between a working and a not working version is the id ... the rest of sourcecode in Chrome-Developer-View is completly the same

Hi Farshad .. the same uniGui Application on a customer server - what is compiled with uni-1.90.0.1523 and ext-6.7.0 is working fine ..since i updated my version to extjs 7 and uni-1.90.0.1531- the tabulator does not work anymore .. I tried to make a test-case BUT can not reproduce the issue ..??? i copyied the hole form in a new Unigui App - and the TAB is working .. the only thing i didnt inklude in this test-case is the database function ... i will try to reproduce the issue .. please give me more time for this ;-) Nice greetings and stay healthy Erich

hi, i updated to 1.90.0.1531.. now the "next field with tab key" is just working in my TuniForm .. but doesnt work in my TuniFrame .. it worked in the past .. i ordered all edit-cpmpunents with "TabOrder" value ... the "special" thing is ... it works NOT if the uniframe has a runtime-created parent "unitabSheet" -> a Sheet of designtime-created uniPageControl (the same technoloy as used in the "onlen desktop demo" on http://www.unigui.com/ ) hope - someone has a idea what the reason could be thanx erich

push ;-)

push :-)

Hello, for "SSL Support in HyperServer" i found http://www.unigui.com/doc/online_help/ssl-support-in-hyperserver.htm but now i have more questions as before ;-) i have a apache webserver running without https - i want to run it just over https what must i do in \apache\config\httpd.conf \apache\conf\extra\httpd-ssl.conf what must i do in delphi - server module? what must i do in [unigui_application_name_1].ssl.cfg what must i do in [unigui_application_name_1].cfg (do i need both Hyperserver Configfiles????) i have 2 unigui-apps on the Apache Server - so i have 2 Hyperserver-cfg files .. is it possile to do it allso with 2 Hyperserver-ssl.cfg And what is the job of the webserver OWNER? - is it enouth to become following informations? SSL.SSLOptions.RootCertFile = 'xxx.pem' SSL.SSLOptions.CertFile = 'xxx.pem' SSL.SSLOptions.KeyFile = 'xxx.pem' SSL.SSLOptions.Method = sslvTLSv1_1 SSL.SSLOptions.SSLVersions = [sslvTLSv1_1] SSL.SSLOptions.Mode = sslmUnassigned SSL.SSLOptions.VerifyMode = [] SSL.SSLOptions.VerifyDepth = 0 SSL.SSLPassword = 'xxx' ThanX for informations Erich

hi .. i use following code (found it here in the forum - did not know the original Poster of the code) works perfekt .. the user can select at runtime the position, the size and the visibility of colums .. procedure TyourForm_orFrame.loadGridLayout; var Lines: TStringList; columnInfo: TStringList; lineCtr: Integer; colIdx: Integer; cnt: Integer; FileName: String; begin FileName := uniservermodule.FilesFolderPath + '/Usersettings/user_' + UniMainModule.UserNumber + '_setting_grid2.txt'; if FileExists(FileName) then begin try Lines := TStringList.Create; columnInfo := TStringList.Create; Lines.LoadFromFile(FileName); for lineCtr := 0 to Lines.Count - 1 do begin if trim(Lines[lineCtr]) <> '' then begin StringExplode(Lines[lineCtr], '~ ', columnInfo); cnt := Mydbgrid.Columns.Count; // go through all the columns, looking for the one we are currently working on for colIdx := 0 to cnt - 1 do begin // once found, set its width and title, then its index (order) if Mydbgrid.Columns[colIdx].FieldName = columnInfo[1] then begin Mydbgrid.Columns[colIdx].Width := strtoint(columnInfo[3]); Mydbgrid.Columns[colIdx].Title.Caption := columnInfo[2]; if columnInfo[4] = 'true' then Mydbgrid.Columns[colIdx].Visible := true else Mydbgrid.Columns[colIdx].Visible := false; // do the index assignment last! // ignore the index specified in the file. use its line Mydbgrid.Columns[colIdx].Index := lineCtr; // StrToInt(columnInfo[0]); order instead end; // if end; end; end; finally Lines.Free; if assigned(columnInfo) then columnInfo.Free; end; end; end; procedure TyourForm_orFrame.saveGridLayout; var Lines: TStringList; i: Integer; my_visible: String; FileName: String; begin FileName := uniservermodule.FilesFolderPath + '/Usersettings/user_' + UniMainModule.UserNumber + '_setting_grid2.txt'; try Lines := TStringList.Create; with Mydbgrid do begin for i := 0 to Mydbgrid.Columns.Count - 1 do begin if Mydbgrid.Columns.Visible = true then my_visible := 'true' else my_visible := 'false'; Lines.Add(inttostr(Mydbgrid.Columns.Index) + '~ ' + Mydbgrid.Columns.DisplayName + '~ ' + Mydbgrid.Columns.Title.Caption + '~ ' + inttostr(Mydbgrid.Columns.Width) + '~ ' + my_visible); end; end; Lines.SaveToFile(FileName); finally Lines.Free; end; end;