Skip to content

Commit e1f57ce

Browse files
committed
- added Print function to the TGS_PDFConverter
- fixed an issue with the internal log (missing debug informations) - fixed an issue that an error wasn't written to the error log
1 parent a337f46 commit e1f57ce

File tree

6 files changed

+218
-342
lines changed

6 files changed

+218
-342
lines changed

Examples/Lazarus/GS_API_ExampleLazarus.lps

Lines changed: 0 additions & 257 deletions
This file was deleted.

README.md

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -23,6 +23,11 @@ How to compile Ghostscript on Linux [install guide](https://www.linuxfromscratch
2323

2424
### CHANGELOG
2525

26+
#### version 1.01.1 (FPC Win32/64,Linux and Delphi Win32/64)
27+
- added Print function to the TGS_PDFConverter
28+
- fixed an issue with the internal log (missing debug informations)
29+
- fixed an issue that an error wasn't written to the error log
30+
2631
#### version 1.01.0 (FPC Win32/64,Linux and Delphi Win32/64)
2732
- added Linux support for FPC
2833
- added color conversion for different displays and improved the preview bitmap

lib/SkiSys.GS_Api.pas

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@ interface
6363
/// <summary>
6464
/// The TGS_Api version
6565
/// </summary>
66-
API_VERSION = 1010;
66+
API_VERSION = 1011;
6767
/// <summary>
6868
/// Minimum required Ghostscript version, which will be checked in
6969
/// <see cref="SkiSys.GS_API|TGS_Revision.CheckRevision"/>
@@ -1482,8 +1482,8 @@ procedure TGS_Api.Init(ADllPath: string);
14821482
FDllPath := Trim(ADllPath);
14831483
if (FDllPath <> '') then
14841484
begin
1485-
if (FDllPath[length(FDllPath)-1] <> '\') then
1486-
FDllPath := FDllPath + '\';
1485+
if (not FDllPath.EndsWith(PathDelim)) then
1486+
FDllPath := FDllPath + PathDelim;
14871487
ADllFile := FDllPath + GS_DLL;
14881488
{$IFDEF MSWINDOWS}
14891489
SetDllDirectory(PChar(FDllPath));
@@ -1535,7 +1535,6 @@ function TGS_Api.InitWithArgs(AArgs: PArgv): Boolean;
15351535
AError: Boolean;
15361536
begin
15371537
AError := False;
1538-
ClearInternalLog;
15391538
try
15401539
try
15411540
// create a new instance, if gsapi_init_with_args was used before
@@ -1598,6 +1597,7 @@ function TGS_Api.InitWithArgs(AStrings: TStrings): Boolean;
15981597
begin
15991598
if (AStrings <> nil) and (AStrings.Count > 0) then
16001599
begin
1600+
ClearInternalLog;
16011601
if (Debug) then
16021602
begin
16031603
FDebugLastCmdArgs := GS_CMD_EXE;

0 commit comments

Comments
 (0)