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, '');