erich.wanker

Hi .. has someone a idea why this simple OLE doesnt work? (the paths and Files are correct) in my hyperserver-hosted unigui-dll ( is it a user right thing?? .. the apache webserver is running as "local System" ...) ThanX Erich uses ComObj, Variants var: WordApplication, WordFile : OleVariant; ... WordApplication := Null; WordFile := Null; try // create Word OLE try // Check if Word is already opened? WordApplication := GetActiveOleObject('Word.Application' ); except try WordApplication := CreateOleObject('Word.Application' ); WordApplication.Visible := true; except Exception.Create( 'Error' ); end; end; except WordApplication := Null; end; If VarIsNull( WordApplication ) = False then begin try WordApplication.Visible := true; WordApplication.DisplayAlerts := true; // Open Word File try WordFile := WordApplication.Documents.Open(merge_dateiname_mit_pfad ); except WordFile := Null; end; If VarIsNull( WordFile ) = False then begin WordFile.SaveAs2( merge_destfolder + '\aenderung' + UniMainModule.Z_AENDERUNG.FieldByName( 'Reportnummer' ).AsString + '\converted.pdf', 17 ); // wdFormatPDF = 17 end else begin showtoast('Word-Dok not saved'); end; finally WordFile.Close; WordApplication.DisplayAlerts := true; WordApplication.Quit; WordFile := Unassigned; WordApplication := Unassigned; end; end else begin showtoast('Word Application not started'); end;

Hi.. i need one booean-variable - what is readable or writeable in every node/session of a hyperserver UniGui-DLL (on one pysical computer - no server farming) on the server - i have a not threadsave 3rd party tool - and if a user starts this tool (runtime 3 seconds) - i want to write 1 in the boolean variable .. so no other user can start this since the value is set to 0. ThanX Erich

Hi i want to move the scollbox in a desktop app with the mouse if left mousebutton down - the movement of the mouse should send to the scrollbox .. the same thing like a Smarthone-app makes with finger tabs ThanX for help 🙂 Eric

OK . got it 🙂 private { Private declarations } my_unitreeNode : TunitreeNode; procedure TUniForm.UniTreeMenu1SelectionChange(Sender: TObject); begin my_unitreeNode:= UniTreeMenu1.Selected; if my_unitreeNode.Text = 'Aktuelle News' then begin

Hello everyone and thank you for your support. I have not been able to solve the problem with safari and give up. I will change the logistics in my software - to work around the problem. Norm: I want a parent main menu - that is always above any currently visible window. I will now create many copies of this main menu to solve the problem. Thank you very much Eric

Hi .. how do read the clicked Item of a UniTreeMenu ? onSelectionChange and onClick gives me just (Sender: TObject); i think i must use something like (Sender as TUniTreeMenu).. ??? ThanX for help and nice greetings Erich

Hi .. i tested a lot different Safaris / different versions of OS / different devices iPad, iPhone . . the problem is in every situation with an apple browser

hi 🙂 ant thank you for your support This doesnt help in the testcase i use { translateZ(1000px) !important; -webkit-transform: translate3D(0,0,0) !important; transform: translate3D(0,0,0) !important; position: absolute !important; z-index: 90000 !important;}');

Hi .. i want to give an UniContainerpanel the css -> z-Index: 900000 !important; and it works fine in chrome, edge, firefox, opera ... JUST Apple makes problems... 😞 (i treid a lot: .hauptmenu { translateZ(1000px) !important; -webkit-transform: translate3D(0,0,0) !important; transform: translate3D(0,0,0) !important; position: absolute !important; z-index: 90000 !important;}'); i made a testcase for this - if someone has a idea how to solve this The paged Mainform has a UniContainerpanel (as Mainmenu) and a button -> UniForm1.showmodal Chrome shows the black UniContainerpanel correct over UniForm1 Safari ignores the css - and put the form over the black UniContainerpanel if someone has a solution - what would be fine 😉 ThanX Erich testcase.zip

i made a testcase 😉 testcase.zip

can someone translate this to javascript - please 😉 display_panel = Tuniscrollbox toppanel = TUniContainerpanel procedure TMainForm.display_panelScrollChange(Sender: TComponent; const X, Y: Integer); begin new_y:=y; if old_y < new_y then toppanel.top := -125 else toppanel.top :=0; old_y:= new_y; end; ..i want to hide header on scroll down, show on scroll up ... my delphi code works like i want .. but my code workes just after a time-delay and that is not nice 😉 ThanX Erich

i found https://richtexteditor.com/ it looks good - and i like the drag&drop of images .. (but i dont know how to store a text inclusive images!! in a unigui project) Is someone using this editor and can give a suggestion how stable and good it works? ThanX Erich

PS. to install the certificate into Windows Trusted Root Certificates - i use: // Add the cert.pem on the Windows Trusted Root Certificates cert_pem := Dossier + 'cert.pem'; Chemin := ExtractFilePath( Application.ExeName ) + 'Data\OpenSSL\export.ps1'; // prepare the Script MyText := TStringlist.create; try MyText.Add( '$CertificateName = "UNIGUI_All_OS"' ); MyText.Add( '$Certificate = Get-ChildItem "CERT:\" -Recurse | ' ); MyText.Add( ' Where-Object {$_.FriendlyName -eq "UNIGUI_All_OS"} ' ); MyText.Add( 'Export-Certificate -Cert $Certificate -FilePath "'+ ExtractFilePath( Application.ExeName )+'\exportiertes_zertifikat\your_name.cer'+'" ' ); MyText.SaveToFile( Chemin ); finally MyText.Free end; sleep( 300 ); // Execute the Script ch := '/K powershell.exe -executionpolicy bypass -file "' + Chemin + '"'; Dossier := GetEnvironmentVariable( 'SYSTEMROOT' ) + '\System32'; ShellExecute( Application.Handle, 'runas', 'cmd.exe', PChar( ch ), PChar( Dossier ), SW_HIDE );

Hi Abaksoft, Thanx for your PERFECT work .. i tried a lot! of things and found a solution for the Android Problem 😉 The maion problem is the "-extensions v3_req" 1. change in delphi: //A.2.2 root.pem stDays:=intToStr(365 * upYrears.Position); param:='req -x509 -days ' + stDays + ' -new -nodes -key root.key -out root.pem -config san.cnf -extensions v3_req'; ShellExecute(Application.Handle ,PChar('RunAs'),PChar(Fichier),PChar(param),PChar(Dossier),SW_HIDE); sleep(300); //A.2.3 cert.pem param:='req -x509 -nodes -days ' + stDays + ' -newkey rsa:2048 -keyout key.pem -out cert.pem -config san.cnf -extensions v3_req'; ShellExecute(Application.Handle ,PChar('RunAs'),PChar(Fichier),PChar(param),PChar(Dossier),SW_HIDE); sleep(300); 2. change in san.cnf [req] default_bits = 2048 distinguished_name = req_distinguished_name req_extensions = v3_req x509_extensions = v3_req prompt = no [req_distinguished_name] countryName = XX stateOrProvinceName = N/A localityName = N/A organizationName = Self-signed certificate commonName = Self-signed certificate [req_ext] subjectAltName = @alt_names [v3_req] subjectAltName = @alt_names basicConstraints = critical,CA:true [alt_names] IP.1 =10.0.0.10 3. Export CA in Windows - and import it as CA in Android .. Works 🙂

Hi .. has anyone a sample-code how to scroll a uniscrollbox left or right by clicking Unibuttons unibutton1.onclick -> should scroll actual position +100px (if higher whan maximum then maximum) unibutton2.onclick -> should scroll actual position -100px (if less 0 then 0) ThanX for Help 🙂 Erich