paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazsvnpkg: using TProcessUTF8

Browse Source 
git-svn-id: trunk@50600 -
This commit is contained in:
mattias 2015-12-04 16:04:35 +00:00
parent 172ba521c4
commit 2af1f6a5f4
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazsvnpkg/svnclasses.pas
View File

@ -23,7 +23,7 @@ unit SVNClasses;
interface
uses
Classes, SysUtils, ComCtrls, FileUtil, LCLProc, Controls,
Classes, SysUtils, ComCtrls, FileUtil, UTF8Process, LCLProc, Controls,
XMLRead, DOM, Process, StdCtrls, Forms, fgl;
resourcestring
@ -145,7 +145,7 @@ implementation
procedure CmdLineToMemo(CmdLine: string; Memo: TMemo);
var
AProcess: TProcess;
AProcess: TProcessUTF8;
BytesRead: LongInt;
n: LongInt;
M: TMemoryStream;
@ -167,7 +167,7 @@ var
end;
begin
AProcess := TProcess.Create(nil);
AProcess := TProcessUTF8.Create(nil);
AProcess.CommandLine := CmdLine;
debugln('CmdLineToMemo commandline=', AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];
@ -380,11 +380,11 @@ end;
function ExecuteSvnReturnXml(ACommand: string): TXMLDocument;
var
AProcess: TProcess;
AProcess: TProcessUTF8;
M: TMemoryStream;
n, BytesRead: Integer;
begin
AProcess := TProcess.Create(nil);
AProcess := TProcessUTF8.Create(nil);
AProcess.CommandLine := SVNExecutable + ' ' + ACommand;
debugln('TSVNLogFrm.ExecuteSvnReturnXml CommandLine ' + AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];

6
components/lazsvnpkg/svnstatusform.pas
View File

@ -26,7 +26,7 @@ uses
Classes, SysUtils, Process, LCLProc,
Forms, Controls, Dialogs, ComCtrls, StdCtrls, ButtonPanel, ExtCtrls, Menus,
// LazUtils
FileUtil, LazFileUtils, LazConfigStorage,
FileUtil, LazFileUtils, LazConfigStorage, UTF8Process,
// IDEIntf
LazIDEIntf, BaseIDEIntf,
// LazSvn
@ -173,9 +173,9 @@ end;
procedure TSVNStatusFrm.ExecuteSvnCommand(ACommand: String; AFile: String);
var
AProcess: TProcess;
AProcess: TProcessUTF8;
begin
AProcess := TProcess.Create(nil);
AProcess := TProcessUTF8.Create(nil);
if pos(RepositoryPath, AFile) <> 0 then
AProcess.CommandLine := SVNExecutable + ' ' + ACommand + ' "' + AFile + '"'

8
components/lazsvnpkg/svnupdateform.pas
View File

@ -23,8 +23,8 @@ unit SVNUpdateForm;
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, ButtonPanel, Process, Buttons, Menus, LCLProc;
Classes, SysUtils, FileUtil, UTF8Process, LResources, Forms, Controls,
Graphics, Dialogs, ComCtrls, ButtonPanel, Process, Buttons, Menus, LCLProc;
type
@ -170,7 +170,7 @@ end;
procedure TSVNUpdateFrm.Execute(Data: PtrInt);
var
AProcess: TProcess;
AProcess: TProcessUTF8;
n: LongInt;
MemStream: TMemoryStream;
BytesRead: LongInt;
@ -180,7 +180,7 @@ begin
MemStream := TMemoryStream.Create;
BytesRead := 0;
AProcess := TProcess.Create(nil);
AProcess := TProcessUTF8.Create(nil);
AProcess.CommandLine := SVNExecutable + ' update "' + RepositoryPath + '" --non-interactive';
debugln('TSVNUpdateFrm.Execute CommandLine ' + AProcess.CommandLine);
AProcess.Options := [poUsePipes, poStdErrToOutput];