Pascal Script Archives - Page 6 of 26 - File transfer tool from Limagito

30 Aug
How to count the number of files transferred to destination
Q: I have another question we have big differences as far as the number of images some of our agencies sending us and the destination vendor receiving. They are asking if Limagito can count the number of files transferred to destination.
A: In this blog article we added some scripts to count the files sent to a Destination. Transferred files counter data will be written to a monthly csv file. Each scan will be an entry in the csv file (which can be handled in Excel). This is just an example and can be adjusted to your needs.
Open our Pascal Script option:
Enable and add the following ‘On Rule Begin’ script:
psVIA: an Integer variable which will count the amount of files transferred during the scan
psVSA: a String variable which will be used as the filename of the counter csv ( i.e. 2023.august.csv )
psVSB: a String variable which will be used for the Date entry in the csv file ( first column )
Begin psExitCode:= 1; // ... add your code here psVIA := 0; // Current Month counter csv filename -psVSA psVSA := FormatDateTime('YYYY.MMMM', Now) + '.csv'; // Current Day - psVSB psVSB := FormatDateTime('YYYYMMDDHHNNSS', Now); End.
Enable and add the following ‘On Rule End’ script. Don’t forget to adjust the ctCsvPath constant. This is where we will store the csv files.
Var tmpData, tmpFile: String; tmpSuccess: Boolean; tmpList: TStringList; Const ctCsvPath = 'C:\Test\Csv\'; // Must end with a \ Begin psExitCode:= 1; // Check if files were moved or copied If psVIA = 0 Then Exit; // Init Var tmpData := psVSB + ',' + IntToStr(psVIA); tmpFile := ctCsvPath + psVSA; tmpSuccess := True; tmpList := TStringList.Create; Try If FileExists(tmpFile) Then Begin Try tmpList.LoadFromFile(tmpFile); Except tmpSuccess := False; psLogWrite(1, '', 'LoadFromFile, ' + tmpFile + ' error, counter data will not be saved: ' + tmpData); End; End Else tmpList.Add('Date,Value'); // Check If tmpSuccess Then Begin tmpList.Add(tmpData); // Save To File Try tmpList.SaveToFile(tmpFile); psLogWrite(1, '', 'SaveToFile ' + tmpFile + ' successful'); Except psLogWrite(1, '', 'SaveToFile ' + tmpFile + ' error, could not save counter data: ' + tmpData); End; End; Finally tmpList.Free; End; End.
Set Function Destination Option to ‘Exit Cyclus on Error’. This will skip a next Destination if an error occurs. The last Destination will be a Script where we increase the amount of files transferred so we want to make sure that the previous Destination(s) were successful.
The last Destination should be the following Pascal Script:
Begin psExitCode:= 1; // ... add your code here psVIA := psVIA + 1; End.
Counter values will be stored in a monthly csv file which can be handled in Excel (or alternative):

If you need any info about this ‘count the number of files transferred’ request, please let us know.
#mft #filetransfer #filemanagement
Best regards,
Limagito Team
By Limagito-Team Counter Pascal Script count, transferred
11 Aug
How to send zpl file to Zebra printer using Limagito file mover
Q: How to send zpl file to Zebra printer. Do you have a solution in Limagito to send Zpl files to a printer? Zpl is a standard language for label printers.
A: On request we added an option in Limagito File Mover v2023.8.10.0. The customer did some successful tests. These new options should be able to send other Zpl like type of files (EPL,..) to printers too.
In our example we used a Windows folder as Source, searching for zpl files:
We enabled ‘Exclude Files In Use’ because we don’t want to touch source .zpl file that are still being created:
Please set the Filename Include filter to *.zpl because we only need this type of files:
Our Rule will be triggered every 30 seconds using a scan timer (Schedule Setup button):
As function we used ‘Move’ because after a successful print we want to delete the source .zpl file:
As Destination we are going to use a Script:
Var iList: Integer; tmpInfo, tmpFile, tmpString: String; tmpList: TStringList; Begin psExitCode:= 0; // ... add your code here tmpFile := psFilePath + psFileName; // Do Send tmpList := TStringList.Create; Try tmpList.CommaText := psGetPrinters; If tmpList.Count > 1 Then Begin For iList := 0 To (tmpList.count-1) Do psLogWrite(1, '', 'Installed printer [' + IntToStr(iList+1) + ']: ' + tmpList.Strings[iList]); psLogWrite(1, '', 'Default printer: ' + psGetDefaultPrinter); End Else psLogWrite(1, '', 'No printer installed'); psLogWrite(1, '', 'Send file "' + tmpFile + '" to printer'); Try tmpList.Clear; tmpList.LoadFromFile(tmpFile); If tmpList.Count > 0 Then Begin tmpString := tmpList.Text; // Method 1 tmpInfo := psPrintRawString(tmpString, ''); // Method 2 // tmpInfo := psPrintRawList(tmpList, ''); // Debug If tmpInfo <> '' Then Begin psLogWrite(1, '', 'Sent to printer error: ' + tmpInfo); End Else Begin psExitCode := 1; psLogWrite(1, '', 'Sent to printer successfully: ' + tmpFile); End; End Else psLogWrite(1, '', 'Found empty file: ' + tmpFile); Except psLogWrite(1, '', 'LoadFromFileError: ' + tmpFile); End; Finally tmpList.Free; End; End.
The script above will load the content of the .zpl (or other raw type of files) and will send this data to a selected printer.
        // Method 1
        tmpInfo := psPrintRawString(tmpString, ”);
By default we’ll use the ‘Default’ printer in Windows which means the Zebra printer should be set as Default printer. If you want to use a Zebra printer that is not set to default in Windows you’ll need to add the printer name to the function.
Suppose the installed Zebra printer name is: My Zebra Printer
        // Method 1
        tmpInfo := psPrintRawString(tmpString, ‘My Zebra Printer’);
To help you with the printer names, the script will wrote the names in the RunTime log if you trigger the Rule (please check the output of the RunTime log in the screenshot below).
RunTime Log result:
If you need any info about this new ‘zpl file to Zebra printer’ option, please let us know.
#zpl #zebra #filetransfer #filemanagement
Best regards,
Limagito Team
By Limagito-Team Pascal Script Printer labels, raw, zebra, zpl
01 Aug
How to scan a folder to look for a number of files, then start the transfer?
Q: How to scan a folder to look for a number of files, then start the transfer? We are a licensed customer of Limagito. Is it possible to scan a folder to look for 6 files, then start the transfer? If there are less than 6 files, none of the files are transferred.
A: This is possible with a Windows folder/Share [WIN] as Source. We added some screenshots to get you started.
Add Windows folder/share as Source:
Open our Pascal Script option:
Please enable and add the following ‘On Rule Begin’ Pascal Script (script attached in txt file). You can modify the amount (ctMinFiles) or search filter (*.*) if needed.
Var tmpCounter: Integer; Const ctMinFiles = 6; Begin psExitCode := 0; // ... add your code here // If you want to scan subirectories // tmpCounter := psCountFiles(psSourcePath, '*.*', True); // In this example we will not scan the subdirectories of the source folder tmpCounter := psCountFiles(psSourcePath, '*.*', False); If tmpCounter >= ctMinFiles Then Begin psLogWrite(1, '', 'Files count successful: ' + IntToStr(tmpCounter)); psExitCode := 1; End Else psLogWrite(1, '', 'Not enough files, count: ' + IntToStr(tmpCounter)); End.
Click F9 and check the log window in the Pascal Script setup. It should show ‘Compiled Successfully’.

If you need any info about this ‘look for a number of files’ question, please let us know.
Best regards,
Limagito Team
By Limagito-Team Filters Pascal Script WIN number of files