administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

nsis новый - папка bin

Browse source 
TeacherControlPlugin.cs - добавление обработчика для последующей шифровки Tasks.pas
This commit is contained in:
Mikhalkovich Stanislav 2025-04-07 22:07:13 +03:00
parent 0353abf57c
commit 3f70700d2b
15 changed files with 39 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Compiler/Compiler.cs
View file

@ -774,6 +774,10 @@ namespace PascalABCCompiler
{
return sourceFilesProvider;
}
set
{
sourceFilesProvider = value;
}
}
private List<Errors.Error> errorsList = new List<Errors.Error>();

2
Compiler/ICompiler.cs
View file

@ -94,7 +94,7 @@ namespace PascalABCCompiler
SourceFilesProviderDelegate SourceFilesProvider
{
get;
get; set;
}
event ChangeCompilerStateEventDelegate OnChangeCompilerState;

3
ReleaseGenerators/PascalABCNETMini.bat
View file

@ -1 +1,2 @@
"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETMini.nsi
rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETMini.nsi
"..\utils\NSIS2\makensis.exe" PascalABCNETMini.nsi

3
ReleaseGenerators/PascalABCNETStandart.bat
View file

@ -1 +1,2 @@
"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETStandart.nsi
rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETStandart.nsi
"..\utils\NSIS2\makensis.exe" PascalABCNETStandart.nsi

3
ReleaseGenerators/PascalABCNETWithDotNet.bat
View file

@ -1 +1,2 @@
"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet.nsi
rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet.nsi
"..\utils\NSIS2\makensis.exe" PascalABCNETWithDotNet.nsi

3
ReleaseGenerators/PascalABCNETWithDotNet47.bat
View file

@ -1 +1,2 @@
"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet47.nsi
rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet47.nsi
"..\utils\NSIS2\makensis.exe" PascalABCNETWithDotNet47.nsi

3
ReleaseGenerators/PascalABCNET_DotNetHelp.bat
View file

@ -1 +1,2 @@
"..\utils\NSIS\makensis.exe" DotNetHelp.nsi
rem "..\utils\NSIS\makensis.exe" DotNetHelp.nsi
"..\utils\NSIS2\makensis.exe" DotNetHelp.nsi

3
ReleaseGenerators/PascalABCNET_RusLib.bat
View file

@ -1 +1,2 @@
"..\utils\NSIS\makensis.exe" RussianHelpFramework.nsi
rem "..\utils\NSIS\makensis.exe" RussianHelpFramework.nsi
"..\utils\NSIS2\makensis.exe" RussianHelpFramework.nsi

BIN
Utils/NSIS2/Bin/GenPat.exe Normal file
View file

Binary file not shown.

BIN
Utils/NSIS2/Bin/MakeLangId.exe Normal file
View file

Binary file not shown.

BIN
Utils/NSIS2/Bin/RegTool-x86.bin Normal file
View file

Binary file not shown.

BIN
Utils/NSIS2/Bin/makensis.exe Normal file
View file

Binary file not shown.

BIN
Utils/NSIS2/Bin/zip2exe.exe Normal file
View file

Binary file not shown.

BIN
Utils/NSIS2/Bin/zlib1.dll Normal file
View file

Binary file not shown.

23
VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
View file

@ -3,6 +3,7 @@ using System.Collections.Generic;
using System.Windows.Forms;
using System.IO;
using VisualPascalABCPlugins.DBAccess;
using PascalABCCompiler;
namespace VisualPascalABCPlugins
{
@ -41,7 +42,7 @@ namespace VisualPascalABCPlugins
public VisualPascalABCPlugin_TeacherControlPlugin(IWorkbench Workbench)
{
this.Workbench = Workbench;
VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
User = new SiteAccessProvider();
@ -58,8 +59,28 @@ namespace VisualPascalABCPlugins
// Регистрация обработчика
this.Workbench.ServiceContainer.RunService.Starting += RunStartingHandler;
this.Workbench.ServiceContainer.RunService.ChangeArgsBeforeRun += ChangeArgsBeforeRunHandler;
VisualEnvironmentCompiler.Compiler.SourceFilesProvider = TeacherSourceFilesProvider;
//Workbench.ServiceContainer.BuildService.BeforeCompile += BeforeCompileHandler;
}
public object TeacherSourceFilesProvider(string FileName, SourceFileOperation FileOperation)
{
switch (FileOperation)
{
case SourceFileOperation.GetText:
if (!File.Exists(FileName)) return null;
string Text = FileReader.ReadFileContent(FileName, null);
// Здесь можно дешифровать когда надо
//File.AppendAllText("d:\\aaaa.txt", FileName + "\n");
return Text;
case SourceFileOperation.Exists:
return File.Exists(FileName);
case SourceFileOperation.GetLastWriteTime:
return File.GetLastWriteTime(FileName);
}
return null;
}
public void Execute()
{
loginForm.SiteProvider = User;