paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* update lNet to 0.5.2

Browse Source 
git-svn-id: trunk@7733 -
This commit is contained in:
Almindor 2007-06-19 20:07:19 +00:00
parent 9525ad6edf
commit a1108a8fbb
2 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
utils/fppkg/lnet/lcommon.pp
View File

@ -101,32 +101,59 @@ uses
{$IFDEF WINDOWS}
, Windows;
{$IFDEF WINCE}
function LStrError(const Ernum: Longint; const UseUTF8: Boolean = False): string;
const
MAX_ERROR = 1024;
var
Tmp: string;
TmpW: widestring;
begin
Result := '[' + IntToStr(Ernum) + '] ';
SetLength(TmpW, MAX_ERROR);
SetLength(TmpW, FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_ARGUMENT_ARRAY,
nil, Ernum, 0, @TmpW[1], MAX_ERROR, nil));
Tmp := UTF8Encode(TmpW);
if Length(Tmp) > 2 then
Delete(Tmp, Length(Tmp)-1, 2);
Result := Tmp;
end;
{$ELSE} // any other windows
function LStrError(const Ernum: Longint; const UseUTF8: Boolean = False): string;
const
MAX_ERROR = 1024;
var
Tmp: string;
TmpW: widestring;
begin
Result := '[' + IntToStr(Ernum) + '] ';
if USEUtf8 then begin
SetLength(TmpW, 256);
SetLength(TmpW, MAX_ERROR);
SetLength(TmpW, FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_ARGUMENT_ARRAY,
nil, Ernum, 0, @TmpW[1], 256, nil));
nil, Ernum, 0, @TmpW[1], MAX_ERROR, nil));
Tmp := UTF8Encode(TmpW);
end else begin
SetLength(Tmp, 256);
SetLength(Tmp, MAX_ERROR);
SetLength(Tmp, FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_ARGUMENT_ARRAY,
nil, Ernum, 0, @Tmp[1], 256, nil));
nil, Ernum, 0, @Tmp[1], MAX_ERROR, nil));
end;
if Length(Tmp) > 2 then
Delete(Tmp, Length(Tmp)-1, 2);
Result := Tmp;
end;
{$ENDIF}
function TZSeconds: integer; inline;
var
lInfo: Windows.TIME_ZONE_INFORMATION;

5
utils/fppkg/lnet/lnet.pp
View File

@ -1,4 +1,4 @@
{ lNet v0.5.1
{ lNet v0.5.2
CopyRight (C) 2004-2006 Ales Katona
@ -408,8 +408,9 @@ destructor TLSocket.Destroy;
begin
if Assigned(FOnFree) then
FOnFree(Self);
inherited Destroy; // important! must be called before disconnect
Disconnect;
inherited Destroy;
end;
procedure TLSocket.Disconnect;