Pascal

  • 24 Nov

    Pascal Script, User Request Example No 1

    Dear Users,

    We often get user specific questions. Not every request goes into our file transfer tool as an option. In such cases (and if it is possible) we create a custom Pascal Script for the end user.

    Example No1:

    People are asking a lot to LimagitoX. Today, a user asked me if I can make a LimagitoX rule with a filter on the number of lines in a file.

    Example:  Transfer the file if it contains more than 300 records.  The file type is *.txt

    The rule will be:

    Transfer files with less than 300 lines in weekday.

    Transfer files with more than 300 lines on Sunday.

    No transfer on Saturday.

    Do you think you can add such a kind of filter?

     

    For this request we created the ‘On Destination’ Pascal Script below. IMPORTANT: Be sure you set the file filter to only allow *.txt files

    image.png

    Var
      tmpList: TStringList;
      tmpNow: TDateTime;
    Begin
      psExitCode:= 0;
      // … add your code here
      tmpList := TStringList.Create;
      Try
        Try
          tmpList.LoadFromFile(psFilePath + psFileName);
          tmpNow := Now;
          // Transfer files with less than 300 lines in weekday ( 1 .. 5 ).
          If (tmpList.Count < 300) And (DayOfTheWeek(tmpNow) < 6) Then
          Begin
            psLogWrite(1, ”, ‘Line Count of ‘ + psFilePath + psFileName + ‘ = ‘ + IntToStr(tmpList.Count));
            psLogWrite(1, ”, ‘Day Of The Week is ‘ + IntToStr(DayOfTheWeek(tmpNow)));
            psExitCode := 1;
          End;
          // Transfer files with more than 300 lines on Sunday ( 7 ).
          If (tmpList.Count > 300) And (DayOfTheWeek(tmpNow) = 7) Then
          Begin
            psLogWrite(1, ”, ‘Line Count of ‘ + psFilePath + psFileName + ‘ = ‘ + IntToStr(tmpList.Count));
            psLogWrite(1, ”, ‘Day Of The Week is ‘ + IntToStr(DayOfTheWeek(tmpNow)));
            psExitCode := 1;
          End;
        Except
          psLogWrite(1, ”, ‘Exception error on loading ‘ + psFilePath + psFileName);
        End;
      Finally
        tmpList.free;
      End;
    End.
  • 26 Aug

    On Pascal Script Events

    Starting from version 11.8.26.0 we’ve added two new events:

    • On Pascal Script Success
    • On Pascal Script Error

    Events.PascalScript

     

    When enabled these events can be triggered by the psExitCode of any enabled Pascal Script.

    PascalScript.Events

     

    • Setting the psExitcode to 0 (zero) will trigger the ‘On Pascal Script Error’ event
    • Setting the psExitcode to 1 (one) will trigger the ‘On Pascal Script Success’ event
    • Setting psExitCode to any other value will not trigger the ‘On Pascal Script’ events

    Regards,

    Limagito Team

    By Limagito New Option , ,