Muhammad Idris
-
Posts
121 -
Joined
-
Last visited
-
Days Won
3
Content Type
Profiles
Forums
Events
Posts posted by Muhammad Idris
-
-
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?
-
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
-
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?
-
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; -
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
-
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
-
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?
-
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
-
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
-
OK, it worked.
Thank you Sherzod- 1
-
-
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.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
-
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
-
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.
-
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
-
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.
-
-
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 : linefunction chart.beforeInit(sender, config) { config.axes = { type: 'numeric', position: 'gauge', majorTickSteps: 5, renderer: function(axis, label, layoutContext) { return Ext.util.Format.number(label, "#") } } }
-
and I use this for number formats but not for line charts.
I've changed this
position : linefunction chart.beforeInit(sender, config) { config.axes = { type: 'numeric', position: 'gauge', majorTickSteps: 5, renderer: function(axis, label, layoutContext) { return Ext.util.Format.number(label, "#") } } }
-
-
-
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
-
What causes this error when the login or logout application cannot create files in the cache ?
-
combine pdf files with UniSession.SendFile
in General
Posted
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, '');