[combine pdf files with UniSession.SendFile]

On 3/3/2024 at 10:34 PM, Kurt said:

install pdftk in your environment


and you can use this code:
 

procedure MergeAndEncryptPDFs(const AInputFiles: string; const AOutputFile: string; const AUserPassword: string);
var
  CommandLine: string;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  CommandLine := 'pdftk ' + AInputFiles + ' cat output ' + AOutputFile + ' user_pw ' + AUserPassword;

  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);

  if CreateProcess(nil, PChar(CommandLine), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
  begin
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
	end
	else
		raise Exception.Create('not created');
end;

to call it:

 

procedure TMainForm.UniButton1Click(Sender: TObject);
var 
	OutPdf: string;
begin
	OutPdf :=  UniServerModule.NewCacheFile('pdf', fileName);
	MergeAndEncryptPDFs('example1.pdf,example2.pdf', OutPdf, '');
end;

you can modify the code to omit the password protection for your pdf.

hope it helps

 

 

Thank you sir, I tried but couldn't create a PDF and how do I get the PDF file to be taken from a loop like this?

 

    QBiaya.Close;
    QBiaya.SQL.Clear;
    QBiaya.SQL.Add('SELECT ROW_NUMBER() OVER(ORDER BY A.Id_Hasil ASC) AS Nmr,A.*,C.NAMALENGKAP '+
      'FROM ASESMEN_HASIL_PENUNJANG_LAINNYA_PDF AS A '+
      'INNER JOIN TUSER AS C ON A.NAMAUSER=C.NAMAUSER '+
      'WHERE A.NO_REG = '+QuotedStr(noreg)+' '+
      'ORDER BY A.Id_Hasil');
    QBiaya.Open;
    QBiaya.First;
    while Not QBiaya.Eof do
    begin
      CopyFile(pchar(UniMainModule.folderPath+QBiayaNama_File.AsString),pchar(UniServerModule.LocalCachePath+'\'+QBiayaNama_File.AsString),false);
      pathfile:=trim( Copy(UniServerModule.LocalCachePath,AnsiPos('cache',UniServerModule.LocalCachePath),length(UniServerModule.LocalCachePath)));
      UniSession.SendFile(UniServerModule.LocalCachePath+'\'+QBiayaNama_File.AsString);
      QBiaya.Next;
    end;

    for Path in TDirectory.GetFiles(UniServerModule.LocalCachePath+'\')  do
    begin
      UniListBox1.Items.Add(ExtractFileName( Path ));
    end;

    OutPdf :=  UniServerModule.NewCacheFile('pdf', fileName);
    MergeAndEncryptPDFs('EKG MADAA.pdf,KULTUR MADAA.pdf', OutPdf, '');

[combine pdf files with UniSession.SendFile]

On 2/12/2024 at 7:46 AM, Kurt said:

i use pdftk for this. you can try it out. its free

 

How to run it in Unigui?

[combine pdf files with UniSession.SendFile]

Yes, I also want to know how to convert from HTML to PDF?

because my needs are not just one click download into one file, but this actually combines file1.pdf with file2.pdf into one pdf file and becomes 2 pages. like that for example

[combine pdf files with UniSession.SendFile]

16 minutes ago, Sherzod said:

And that's not a fact either.

So is there a solution so that several PDF files can become one PDF file?

[combine pdf files with UniSession.SendFile]

how to combine pdf files into one file with UniSession.SendFile ?

The code I made can only download multiple files, it can't combine into one PDF file :

  QBiaya.Close;
  QBiaya.SQL.Clear;
  QBiaya.SQL.Add('SELECT ROW_NUMBER() OVER(ORDER BY A.Id_Hasil ASC) AS Nmr,A.*,C.NAMALENGKAP '+
    'FROM ASESMEN_HASIL_PENUNJANG_LAINNYA_PDF AS A '+
    'INNER JOIN TUSER AS C ON A.NAMAUSER=C.NAMAUSER '+
    'WHERE A.NO_REG = '+QuotedStr(noreg)+' '+
    'ORDER BY A.Id_Hasil');
  QBiaya.Open;
  QBiaya.First;
  while Not QBiaya.Eof do
  begin
    CopyFile(pchar(UniMainModule.folderPath+QBiayaNama_File.AsString),pchar(UniServerModule.LocalCachePath+'\'+QBiayaNama_File.AsString),false);
    pathfile:=trim( Copy(UniServerModule.LocalCachePath,AnsiPos('cache',UniServerModule.LocalCachePath),length(UniServerModule.LocalCachePath)));
    UniSession.SendFile(UniServerModule.LocalCachePath+'\'+QBiayaNama_File.AsString);
    QBiaya.Next;
  end;

[Max Number of users logged onto UniGUI App]

3 hours ago, Abaksoft said:

 

1.

https://www.unigui.com/doc/online_help/index.html?hyperserver-server-farm.htm

2. No need for restart when using hyperserver.

You can find all this on the precious online doc

Thank you Abaksoft, I will study and try

[Max Number of users logged onto UniGUI App]

On 2/2/2024 at 4:12 AM, Abaksoft said:

Why did'nt you use unigui Farm Servers load balancing and choose Nginx ?

How do I configure Unigui Farm Servers load balancing?

and while using nginx hyperserver there is no need to restart

[combine reports]

On 9/10/2023 at 12:19 AM, Muhammad Idris said:

I can combine several reports in FastReport, but How do I combine the report with a PDF file in a file/folder in FastReport ?

my code :

 

procedure TFLap_SBPK.PrepareAndShow(Report: TfrxReport; Exp: TfrxPDFExport);
var
  AUrl : string;
begin
  Report.PrintOptions.ShowDialog := False;
  Report.ShowProgress := false;

  Report.EngineOptions.SilentMode := True;
  Report.EngineOptions.EnableThreadSafe := True;
  Report.EngineOptions.DestroyForms := False;
  Report.EngineOptions.UseGlobalDataSetList := False;

  Exp.Background := True;
  Exp.ShowProgress := False;
  Exp.ShowDialog := False;
  Exp.FileName := UniServerModule.NewCacheFileUrl(False, 'pdf', '', '', AUrl, True);
  Exp.DefaultPath := '';

  Report.PreviewOptions.AllowEdit := False;
  Report.PrepareReport;

  if Billing = '1' then
  begin
    frxRekapBPJS.PrepareReport;
    Report.PreviewPages.AddFrom(frxRekapBPJS);
  end;
  if Resume = '1' then
  begin
    frxRadiologi.PrepareReport;
    Report.PreviewPages.AddFrom(frxRadiologi);
  end;
  if Konsul = '1' then
  begin
    frxKonsul.PrepareReport;
    Report.PreviewPages.AddFrom(frxKonsul);
  end;
  if Jawab = '1' then
  begin
    frxJawab.PrepareReport;
    Report.PreviewPages.AddFrom(frxJawab);
  end;
  if Terapi = '1' then
  begin
    frxTerapi.PrepareReport;
    Report.PreviewPages.AddFrom(frxTerapi);
  end;
  if Fisik = '1' then
  begin
    frxFisik.PrepareReport;
    Report.PreviewPages.AddFrom(frxFisik);
  end;
  if PermintaanTerapi = '1' then
  begin
    frxPermintaanTerapi.PrepareReport;
    Report.PreviewPages.AddFrom(frxPermintaanTerapi);
  end;
  if Kematian = '1' then
  begin
    frxKematian.PrepareReport;
    Report.PreviewPages.AddFrom(frxKematian);
  end;
  if RujukKeluarRS = '1' then
  begin
    frxRujuk.PrepareReport;
    Report.PreviewPages.AddFrom(frxRujuk);
  end;
  if Lain = '1' then
  begin
    FUrl := UniServerModule.FilesFolderURL + 'eKlaim_PDF/';
    frxReport1.LoadFromFile(FUrl+QBiayaNama_File.AsString);
    frxReport1.PrepareReport;
    Report.PreviewPages.AddFrom(frxReport1);
  end;

  Report.Export(Exp);

  UniPDFFrame1.PdfURL := AUrl + '#page=1&zoom=100';
end;

Is there a solution to this problem?

[Max Number of users logged onto UniGUI App]

On 1/23/2024 at 5:41 PM, Stemon63 said:

Hi,
Haven't found a solution to your problem?

The solution is still with the help of the load balancer on Nginx, so I created 3 services that are accessed via the Nginx server IP

[Max Number of users logged onto UniGUI App]

Applications using Hyper Server become slow when there are more than 200 sessions

What happened to me is that I have used a hyperserver but the application problem is still slow.

So finally I used a load balancer on Nginx to divide several services with different ports and IPs

[Background Color MainForm]

OK, it worked.
Thank you Sherzod

[Background Color MainForm]

how to make the mainform background color darker like in AdminLte when displaying the modal form

 

become like this :

[Applications using Hyper Server become slow when there are more than 200 sessions]

3 hours ago, Wilton Ergon said:

I was having random problems with losing connection with the SQL server 2019, and I used MSOLEDB 18 to connect, I updated to the latest version of MSOLEDB 19.3.2, and these problems stopped.

I have more than 2000 k of simultaneous connections without performance problems.
see that if you use FIREDAC it may not use MSOLEDB to connect but ODBC

I use SDAC.

https://learn.microsoft.com/pt-br/sql/connect/oledb/download-oledb-driver-for-sql-server?view=sql-server-ver16

Is MSOLEDB 19.3.2 installed on the database server or client side on the web server?

and I use ADOConnection to connect to SQL Server

[Applications using Hyper Server become slow when there are more than 200 sessions]

On 11/15/2023 at 10:14 PM, Kos said:

nginx   .conf

split_clients "${remote_addr}AAA" $app_addr {
 30.0% "127.0.0.1:8075";
 30.0% "127.0.0.1:8077";
 *     "127.0.0.1:8078";
}

server {
 
 #...
 
 location / {
  proxy_pass http://$app_addr;
  proxy_set_header X-Real-IP $remote_addr;
  proxy_set_header Host $host:$server_port;
  proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
  proxy_set_header X-Forwarded-Host $host;
 }
 
}

 

Sir, how do I set it to read and save PDF files in the specified folder?

because when using Nginx the PDF file is not readable, whereas using the hyperserver itself it can be read.

Thank You

[Applications using Hyper Server become slow when there are more than 200 sessions]

On 11/14/2023 at 7:32 AM, 55143681 said:

MY project in my office network,

about seventy users,

a *.exe runs fast.

My application is accessed by more than 250 users.

and before using UniGui, our SQL Server database had been running and accessed from 2012 with various performance tuning indexes, queries and partiton tables.

If there is someone in this group whose application is accessed by more than 250 users and is stable and not slow, then please provide a solution.

[The last value of the Chart line is truncated]

19 minutes ago, Sherzod said:

Once again,

 

What should I pay attention to, what needs to be done?

400,0 becomes 400

200,0 becomes 200

0,0 becomes 0

 

[The last value of the Chart line is truncated]

On 11/29/2023 at 4:51 PM, Sherzod said:

So, what is your case, issue, maybe I misunderstood?

Make a simple testcase if possible, I will try to check.

ChartDemo.zip

[The last value of the Chart line is truncated]

[The last value of the Chart line is truncated]

On 11/28/2023 at 7:45 AM, Sherzod said:

Hello,

This post may help you:

 

thankyou Sherzod,

and I use this for number formats but not for line charts.

I've changed this
position : line

function chart.beforeInit(sender, config)
{
    config.axes = {
        type: 'numeric',
        position: 'gauge',
        majorTickSteps: 5,
        renderer: function(axis, label, layoutContext) {
            return Ext.util.Format.number(label, "#")
        }
    }
}

[The last value of the Chart line is truncated]

and I use this for number formats but not for line charts.

I've changed this
position : line

function chart.beforeInit(sender, config)
{
    config.axes = {
        type: 'numeric',
        position: 'gauge',
        majorTickSteps: 5,
        renderer: function(axis, label, layoutContext) {
            return Ext.util.Format.number(label, "#")
        }
    }
}

[The last value of the Chart line is truncated]

How do I ensure that the last value of the line chart is not cut off?

 

I saw in the demo it was also cut

[hides frame lines on UniDbVerticalGrid]

3 hours ago, Sherzod said:

Thanks for the testcase.

Then try this approach:

1. Grid.LayoutConfig.Cls = customGrid

2. CustomCSS ->

.customGrid .x-grid-body, 
.customGrid .x-grid-header-ct {
  border: none;
}

 

it worked, thanks Sherzod

[hides frame lines on UniDbVerticalGrid]

9 hours ago, Sherzod said:

If possible, make a simple test case, I'll try to check.

This is an example of the program, sir

DbVerticalGrid.zip

[Cannot create file in cache]

What causes this error when the login or logout application cannot create files in the cache ?

[hides frame lines on UniDbVerticalGrid]

On 11/19/2023 at 10:17 PM, Sherzod said:

Hello,

Try this approach:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniDBVerticalGrid1.JSInterface.JSAddListener('afterrender', 'function(){this.setBorder(false)}');
end;

 

The border line is still showing, sir