paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 04:58:16 +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 interface
uses uses
Classes, SysUtils, ComCtrls, FileUtil, LCLProc, Controls, Classes, SysUtils, ComCtrls, FileUtil, UTF8Process, LCLProc, Controls,
XMLRead, DOM, Process, StdCtrls, Forms, fgl; XMLRead, DOM, Process, StdCtrls, Forms, fgl;
resourcestring resourcestring
@ -145,7 +145,7 @@ implementation
procedure CmdLineToMemo(CmdLine: string; Memo: TMemo); procedure CmdLineToMemo(CmdLine: string; Memo: TMemo);
var var
AProcess: TProcess; AProcess: TProcessUTF8;
BytesRead: LongInt; BytesRead: LongInt;
n: LongInt; n: LongInt;
M: TMemoryStream; M: TMemoryStream;
@ -167,7 +167,7 @@ var
end; end;
begin begin
AProcess := TProcess.Create(nil); AProcess := TProcessUTF8.Create(nil);
AProcess.CommandLine := CmdLine; AProcess.CommandLine := CmdLine;
debugln('CmdLineToMemo commandline=', AProcess.CommandLine); debugln('CmdLineToMemo commandline=', AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput]; AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];
@ -380,11 +380,11 @@ end;
function ExecuteSvnReturnXml(ACommand: string): TXMLDocument; function ExecuteSvnReturnXml(ACommand: string): TXMLDocument;
var var
AProcess: TProcess; AProcess: TProcessUTF8;
M: TMemoryStream; M: TMemoryStream;
n, BytesRead: Integer; n, BytesRead: Integer;
begin begin
AProcess := TProcess.Create(nil); AProcess := TProcessUTF8.Create(nil);
AProcess.CommandLine := SVNExecutable + ' ' + ACommand; AProcess.CommandLine := SVNExecutable + ' ' + ACommand;
debugln('TSVNLogFrm.ExecuteSvnReturnXml CommandLine ' + AProcess.CommandLine); debugln('TSVNLogFrm.ExecuteSvnReturnXml CommandLine ' + AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput]; AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];

6
components/lazsvnpkg/svnstatusform.pas
View File

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

8
components/lazsvnpkg/svnupdateform.pas
View File

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