paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 18:20:25 +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);
begin
if(OpenDialog.Execute)then
SQLEditor.Lines.LoadFromFile(UTF8ToSys(OpenDialog.FileName));
SQLEditor.Lines.LoadFromFile(OpenDialog.FileName);
end;
//---------------------------------------------------------------------------//
@ -339,7 +339,7 @@ end;
procedure TSQLStringsPropertyEditorDlg.SaveToolButtonClick(Sender: TObject);
begin
if(SaveDialog.Execute)then
SQLEditor.Lines.SaveToFile(UTF8ToSys(SaveDialog.FileName));
SQLEditor.Lines.SaveToFile(SaveDialog.FileName);
end;
procedure TSQLStringsPropertyEditorDlg.SQLEditorMouseDown(Sender: TObject;

6
components/turbopower_ipro/ipmsg.pas
View File

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

2
components/turbopower_ipro/iputils.pas
View File

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