paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

turbopower: unicode file names

Browse Source 
git-svn-id: trunk@46818 -
This commit is contained in:
mattias 2014-11-12 19:08:47 +00:00
parent 03a8f3b039
commit f662240d36
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/sqldb/sqlstringspropertyeditordlg.pas
View File

@ -141,7 +141,7 @@ end;
procedure TSQLStringsPropertyEditorDlg.OpenToolButtonClick(Sender: TObject); procedure TSQLStringsPropertyEditorDlg.OpenToolButtonClick(Sender: TObject);
begin begin
if(OpenDialog.Execute)then if(OpenDialog.Execute)then
SQLEditor.Lines.LoadFromFile(UTF8ToSys(OpenDialog.FileName)); SQLEditor.Lines.LoadFromFile(OpenDialog.FileName);
end; end;
//---------------------------------------------------------------------------// //---------------------------------------------------------------------------//
@ -339,7 +339,7 @@ end;
procedure TSQLStringsPropertyEditorDlg.SaveToolButtonClick(Sender: TObject); procedure TSQLStringsPropertyEditorDlg.SaveToolButtonClick(Sender: TObject);
begin begin
if(SaveDialog.Execute)then if(SaveDialog.Execute)then
SQLEditor.Lines.SaveToFile(UTF8ToSys(SaveDialog.FileName)); SQLEditor.Lines.SaveToFile(SaveDialog.FileName);
end; end;
procedure TSQLStringsPropertyEditorDlg.SQLEditorMouseDown(Sender: TObject; procedure TSQLStringsPropertyEditorDlg.SQLEditorMouseDown(Sender: TObject;

6
components/turbopower_ipro/ipmsg.pas
View File

@ -43,7 +43,7 @@ uses
{$IFDEF IP_LAZARUS} {$IFDEF IP_LAZARUS}
LCLType, LCLType,
LCLIntf, LCLIntf,
FileUtil, FileUtil, LazUTF8Classes,
{$ELSE} {$ELSE}
Windows, Windows,
{$ENDIF} {$ENDIF}
@ -1983,7 +1983,7 @@ var
FS : TFileStream; FS : TFileStream;
begin begin
if (FBody.Size > 0) then begin if (FBody.Size > 0) then begin
FS := TFileStream.Create(UTF8ToSys(OutFile), fmCreate); FS := TFileStreamUTF8.Create(OutFile, fmCreate);
try try
ExtractBodyStream(FS); ExtractBodyStream(FS);
finally finally
@ -3580,7 +3580,7 @@ var
begin begin
EncodeMessage; EncodeMessage;
Position := 0; Position := 0;
FS := TFileStream.Create(UTF8ToSys(aFileName), fmCreate); FS := TFileStreamUTF8.Create(aFileName, fmCreate);
try try
FS.CopyFrom(MsgStream, MsgStream.Size); FS.CopyFrom(MsgStream, MsgStream.Size);
finally finally

2
components/turbopower_ipro/iputils.pas
View File

@ -551,7 +551,7 @@ function InternetSumOfFile(const FileName : string) : DWORD;
var var
FileSt : TFileStream; FileSt : TFileStream;
begin begin
FileSt := TFileStream.Create(UTF8ToSys(FileName), CrcFileMode); FileSt := TFileStreamUTF8.Create(FileName, CrcFileMode);
try try
Result := InternetSumOfStream(FileSt, 0); Result := InternetSumOfStream(FileSt, 0);
finally finally