Jump to content

leons

uniGUI Subscriber
  • Posts

    55
  • Joined

  • Last visited

  • Days Won

    2

leons last won the day on December 10 2022

leons had the most liked content!

Profile Information

  • Gender
    Male

Recent Profile Visitors

1494 profile views

leons's Achievements

Member

Member (2/4)

4

Reputation

  1. Hi Sherzod, In the VCL app it's working. regards Leon
  2. Hi I have the following problem. I use a Microfocus ODBC driver for Cobol flles. In design time when I connect with Firedac I can scroll through the rows and every time when I'm at the end of the grid the new data is automatically selected. In runtime I only see the first 50 rows and at the end the grid no new rows are fetched. The same issue with a DB2 ODBC driver. Does anyone have a solution / idea how to fix this? regards Leon
  3. Hi Erich, Do you want to acces the files without the interaction of the user? I don’t think this is possible because it would be a real security issue. It is against the concept of any browser. You have to use an agent on the user machine. Regards Leon
  4. Hi I've got this example from the forum. You have to set up the application in Azure. UniSession.Log('Got Code - see if we can get an token...'); http:=TNetHTTPClient.Create(Self); params:=Tstringlist.Create; params.Add('code=' + UniMainmodule.AzureAuthCode); params.Add('client_id=' + C_client_id_Az); // params.Add('client_secret=' + UriEncode(C_client_secret_Az)); params.Add('client_secret=' + C_client_secret_Az); params.Add('scope=' + C_scope_Az); params.Add('redirect_uri=' + C_redirect_uri_Az); params.Add('grant_type=authorization_code'); Lresponse:=http.Post('https://login.microsoftonline.com/organizations/oauth2/v2.0/token', params); UniSession.Log(Lresponse.ContentAsString()); if Lresponse.StatusText = 'OK' then begin token:=GetSimpleValue(Lresponse.ContentAsString, 'access_token'); GToken:=stringreplace (token,'"','',[rfreplaceall]);; UniSession.Log(Lresponse.ContentAsString); aMsg:=Lresponse.ContentAsString; //set username UniSession.Log('getuserInfo'); lresponse := http.get ('https://graph.microsoft.com/v1.0/me',nil,[TNetHeader.Create('Authorization','Bearer ' + gtoken)]); if lresponse.StatusText='OK' then begin UniSession.Log(Lresponse.ContentAsString); unimainmodule.AUserName := stringreplace (GetSimpleValue (lresponse.ContentAsString,'mail'),'"','',[rfreplaceall]); unimainmodule.LoginType := 2; end; // Handled:=True; end; Except on E : exception do unimainmodule.logintype := 0; // catch all unwanted exception here ! It worked for me... Regards Leon logindemo.zip
  5. A different approach could be using Cloudflare. They have a free version tot test with. After the setup it is very easy to make all kinds of rules. You have all kind of options. With Cloudflare you can get a lot of benefits regarding security, speed/caching e.g.
  6. We use https://www.neodynamic.com/products/printing/js-print-manager/articles/. Is the same solution like QZ.io
  7. Thx Hayri, it's working now!
  8. Hi I need to add some javascript between the <head> tags. I cannot find the right way to do this. Is this somehow possible? regards Leon
  9. @alfrthanks for the example, for me it's working perfect!
  10. I use this example Could it be that, after the redirect, a new session is opened? I had this issue during some testing with the great example from @stevewong
  11. Great themes!! l'm really happy with @GerhardV work!
  12. Hi Wicket, did you finisch the fabric.js solution?
×
×
  • Create New...