我还要去追逐我的梦

修改马敏钊mmz-asio4delphi，使其能在Delphi Xe2 运行示例程序-End

begin
if (Setting) then intval := 1
else intval := 0;
ErrorCode := SetErrorCode(SetSockOpt(Sock, SOL_Socket, SO_Flag, @intval, SizeofInt));
end;

procedure SetSockStatusInt(Sock: TSocket;
SO_Flag: Integer;
Setting: Integer;
var ErrorCode: Integer);
begin
ErrorCode := SetErrorCode(SetSockOpt(Sock, SOL_Socket, SO_Flag, @Setting, SizeofInt));
end;

procedure SetSendBuffer(Sock: TSocket;
WantedSize: Integer;
var ErrorCode: Integer);
begin
ErrorCode := SetErrorCode(setsockopt(Sock, SOL_SOCKET, SO_SNDBUF, @WantedSize, SizeofInt));
end;

function GetReceiveBuffer(Sock: TSocket;
var ErrorCode: Integer): Integer;
begin
Result := GetSockStatusInt(Sock, SO_RCVBUF, ErrorCode);
end;

function GetSendBuffer(Sock: TSocket;
var ErrorCode: Integer): Integer;
begin
Result := GetSockStatusInt(Sock, SO_SNDBUF, ErrorCode);
end;

procedure KillSocket(var Sock: TSocket);
begin
if Sock <> Invalid_Socket then begin
ShutDown(Sock, 2);
{$IFDEF LINUX}
Libc.__close(Sock);
{$ELSE}
CloseSocket(Sock);
{$ENDIF}
Sock := Invalid_Socket;
end;
end;

procedure CloseConnection(var Sock: TSocket;
Gracefully: Boolean);
var
{$IFDEF VER100} // Delphi3 code
Lin: TLinger;
{$ELSE}
Lin: Linger;
{$ENDIF}

begin
if Sock = Invalid_Socket then Exit;
Lin.l_linger := 0;
if Gracefully then begin
Lin.l_onoff := 1; // Not(0);
{$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}setsockopt(Sock, SOL_SOCKET, SO_LINGER, @lin, Sizeof(Lin));
end
else begin
Lin.l_onoff := 0;
{$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}setsockopt(Sock, SOL_SOCKET, SO_LINGER, @lin, sizeof(lin)); {DONT 2.0.f}
end;
KillSocket(Sock);
end;

function GetIPAddressByHost(Host: ansistring; Which: Integer): ansistring;
var
HostEnt: PHostEnt;
iAddr: Integer;

begin
HostEnt := gethostbyname(Pansichar(Host));
if Assigned(HostEnt) then begin
if Which <= (HostEnt^.h_length div 4) then begin
Move(PByteArray(HostEnt^.h_addr_list^)[(Which - 1) * 4], iAddr, 4);
Result := inet_ntoa(in_Addr(iAddr));
end
else Result := '';
end
else Result := '';
end;

function GetHostByIPAddress(IPAddress: ansistring): ansistring;
var
HostEnt: PHostEnt;
InAddr: u_long;

begin
IPAddress := FixDottedIp(IPAddress);
InAddr := inet_addr(Pansichar(IPAddress));
HostEnt := gethostbyaddr(@InAddr, Length(IPAddress), AF_INET);
if Assigned(HostEnt) then Result := StrPas(HostEnt^.h_name)
else Result := '';
end;

function ClientConnectToServer(ServerIPAddress: ansistring;
ServerPort: Integer;
UseUDP, UseNAGLE: Boolean;
ResultSockAddr: PSockAddr;
var ErrorCode: Integer): TSocket;
{$IFDEF LINUX}
const
SOCK_dgram = 2;
SOCK_stream = 1;
{$ENDIF}

begin
Result := Invalid_Socket;
if ServerIPAddress = '' then Exit;
ServerIPAddress := FixDottedIp(ServerIPAddress);
Fillchar(ResultSockAddr^, Sizeof(ResultSockAddr^), #0);
ResultSockAddr.sin_family := AF_INET;
ResultSockAddr.sin_port := htons(ServerPort);
if IsNumericansistring(ServerIPAddress) then begin
ResultSockAddr.sin_addr.S_addr := Inet_Addr(Pansichar(ServerIPAddress));
end
else begin
ServerIPAddress := GetIPAddressByHost(ServerIPAddress, 1);
if ServerIPAddress = '' then begin
ErrorCode := WSAEFAULT; // invalid address
Exit;
end;
ResultSockAddr.sin_addr.S_addr := Inet_Addr(Pansichar(ServerIPAddress));
end;
case UseUDP of
True: begin
Result := CreateSocket(AF_INET, SOCK_DGRAM, IPPROTO_UDP, ErrorCode);
Exit;
end;
else begin
Result := CreateSocket(AF_INET, SOCK_STREAM, IPPROTO_TCP, ErrorCode);
if (Result <> Invalid_Socket) and (not UseNAGLE) then
SetNAGLE(Result, UseNAGLE, ErrorCode);
end;
end;
if Result = Invalid_Socket then Exit;
SetSendTimeout(Result, 500, ErrorCode);
if Connect(Result, ResultSockAddr^, ConstSizeofTSockAddrIn) = SOCKET_ERROR then begin
ErrorCode := WSAGetLastError;
KillSocket(Result);
end;
end;

function BindAndListen(BindToIPAddress: ansistring;
BindToPort, WinsockQueue: Integer;
UseUDP, UseNAGLE, ConnectionLess: Boolean;
ResultSockAddr: PSockAddr;
var ErrorCode: Integer): TSocket;
{$IFDEF LINUX}
const
SOCK_dgram = 2;
SOCK_stream = 1;
{$ENDIF}

begin
Fillchar(ResultSockAddr^, Sizeof(ResultSockAddr^), #0); // DO ! USE ZEROMEMORY
// SPX: Result:=CreateSocket(AF_IPX,SOCK_STREAM,NSPROTO_SPX,ErrorCode);
// IPX: Result:=CreateSocket(AF_IPX,SOCK_DGRAM,NSPROTO_IPX,ErrorCode);
case UseUDP of
True: Result := CreateSocket(AF_INET, SOCK_DGRAM, IPPROTO_UDP, ErrorCode);
else begin
Result := CreateSocket(AF_INET, SOCK_STREAM, IPPROTO_TCP, ErrorCode);
if (Result <> Invalid_Socket) and (not UseNAGLE) then SetNAGLE(Result, UseNAGLE, ErrorCode);
end;
end;
if Result = Invalid_Socket then Exit;
ResultSockAddr.sin_family := AF_INET;
ResultSockAddr.sin_port := htons(BindToPORT);
// 7-27
if (length(BindToIPAddress) < 7) then ResultSockAddr.sin_addr.S_addr := INADDR_ANY
else ResultSockAddr.sin_addr.S_addr := Inet_Addr(Pansichar(BindToIPAddress));
if Bind(Result, ResultSockAddr^, ConstSizeofTSockAddrIn) = Socket_Error then begin
Result := Invalid_Socket;
ErrorCode := WSAGetLastError;
Exit;
end;
// 7-27
if not ConnectionLess then
if Listen(Result, WinsockQueue) = Socket_Error then begin
Result := Invalid_Socket;
ErrorCode := WSAGetLastError;
end;
end;

function IsAcceptWaiting(ListenerSock: TSocket): Boolean;
{$IFNDEF LINUX}
var
SockList: TFDSet;
{$ENDIF}

begin
{$IFDEF LINUX}
Result := BasicSelect(ListenerSock, True, GlobalTimeout) > 0;
{$ELSE}
SockList.fd_count := 1;
SockList.fd_array[0] := ListenerSock;
Result := Select(0, @sockList, nil, nil, @GlobalTimeout) > 0;
{$ENDIF}
end;

function AcceptNewConnect(ListenerSock: TSocket;
ResultAddr: PSockAddr;
ResultAddrlen: PInteger;
var ErrorCode: Integer): TSocket;
begin
Result := {$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}Accept(ListenerSock,
{$IFDEF VER90}
ResultAddr^, ResultAddrLen^);
{$ELSE}
{$IFDEF LINUX}
ResultAddr, PSocketLength(ResultAddrLen));
{$ELSE}
ResultAddr, ResultAddrLen);
{$ENDIF}
{$ENDIF}
if Result = Invalid_Socket then ErrorCode := WSAGetLastError
else if ResultAddrLen^ = 0 then ErrorCode := WSAEFault
else ErrorCode := 0;
end;

function BasicSend(Sock: TSocket;
var Buf;
Len: Integer;
Flags: Integer;
var ErrorCode: Integer): Integer;
begin
// Result:=Socket_Error;
// ErrorCode:=WSAEINTR;
// While (Result<0) and ((ErrorCode=WSAEINTR) or (ErrorCode=WSAETIMEDOUT)) do Begin
Result := Send(Sock, Buf, Len, Flags);
ErrorCode := SetErrorCode(Result);
// End;
end;

function UDPSend(Sock: TSocket;
var Buf;
Len: Integer;
Flags: Integer;
SendTo: TSockAddr;
SendToSize: Integer;
var ErrorCode: Integer): Integer;
begin
Result := {$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}SendTo(Sock, Buf, Len, Flags, SendTo, SendToSize);
ErrorCode := SetErrorCode(Result);
end;

function BasicRecv(Sock: TSocket;
var Buf;
Len: Integer;
Flags: Integer;
var ErrorCode: Integer): Integer;
begin
Result := Recv(Sock, Buf, Len, Flags);
ErrorCode := SetErrorCode(Result);
end;

function UDPRecv(Sock: TSocket;
var Buf;
Len: Integer;
Flags: Integer;
var RcvFrom: TSockAddr;
var RcvFromSize: Integer;
var ErrorCode: Integer): Integer;
begin
Result := {$IFDEF LINUX}Libc.recvfrom(Sock, Buf, Len, Flags, @RcvFrom, @RcvFromSize);
{$ELSE}Winsock.recvfrom(Sock, Buf, Len, Flags, RcvFrom, RcvFromSize);
{$ENDIF}
ErrorCode := SetErrorCode(Result);
end;

function BasicPeek(Sock: TSocket;
var Buf;
Len: Integer): Integer;
begin
Result := Recv(Sock, Buf, Len, MSG_PEEK);
end;

function BasicSelect(Sock: TSocket;
CheckRead: Boolean;
Timeout: TTimeVal): Integer;
var
SockList: TFDSet;

begin
{$IFDEF LINUX}
FD_ZERO(SockList);
SockList.fds_bits[0] := Sock;
if CheckRead then
Result := Select(1, @SockList, nil, nil, @Timeout)
else
Result := Select(1, nil, @SockList, nil, @Timeout);
{$ELSE}
SockList.fd_count := 1;
SockList.fd_array[0] := Sock;
if CheckRead then
Result := Select(0, @sockList, nil, nil, @Timeout)
else
Result := Select(0, nil, @sockList, nil, @Timeout)
{$ENDIF}
end;

function CountWaiting(Sock: TSocket; var ErrorCode: Integer): Integer;
{$IFDEF LINUX}
const
FIONREAD = $541B;
{$ENDIF}
var
numWaiting: longint;

begin
Result := 0;
// in linux IOCtl is used to "set" not "get" values.
ErrorCode := SetErrorCode({$IFDEF LINUX}Libc.IOCtl(Sock, FIONREAD, numWaiting));
{$ELSE}Winsock.IOCtlSocket(Sock, FIONREAD, numWaiting));
{$ENDIF}
if ErrorCode = 0 then Result := numWaiting;
end;

function GetAddressCountByIP(IPAddress: ansistring): Integer;
var
HostEnt: PHostEnt;
InAddr: u_long;

begin
IPAddress := FixDottedIp(IPAddress);
InAddr := inet_addr(Pansichar(IPAddress));
HostEnt := gethostbyaddr(@InAddr, Length(IPAddress), AF_INET);
if Assigned(HostEnt) then Result := HostEnt^.h_length div 4
else Result := 0;
end;

function GetAddressCountByHost(Host: ansistring): Integer;
var
HostEnt: PHostEnt;

begin
HostEnt := gethostbyname(Pansichar(Host));
if Assigned(HostEnt) then Result := HostEnt^.h_length div 4
else Result := 0;
end;

function GetLocalHostName: ansistring;
begin
Result := GetHostByIPAddress(
GetIPAddressByHost('localhost', 1));
if Result = '' then Result := 'Localhost';
end;

function GetLocalPort(Sock: TSocket): Integer;
var
addr: TSockAddrIn;
{$IFDEF LINUX}
addrlen: cardinal;
{$ELSE}
addrlen: integer;
{$ENDIF}

begin
addrlen := ConstSizeofTSockAddrIn;
if getsockname(Sock, addr, addrlen) = 0 then Result := ntohs(addr.sin_port)
else Result := 0;
end;

function GetLocalIPAddr(Sock: TSocket): ansistring;
var
addr: TSockAddrIn;
{$IFDEF LINUX}
addrlen: cardinal;
{$ELSE}
addrlen: integer;
{$ENDIF}

begin
addrlen := ConstSizeofTSockAddrIn;
Fillchar(Addr, Sizeof(TSockAddrIn), #0);
getsockname(Sock, addr, addrlen);
Result := inet_ntoa(addr.sin_addr);
end;

procedure GetRemoteSockAddr(Sock: TSocket;
ResultAddr: PSockAddr;
ResultAddrlen: PInteger;
var ErrorCode: Integer);
{$IFDEF LINUX}
var
TmpAddrLen: Cardinal;
{$ENDIF}

begin
{$IFDEF LINUX}
ErrorCode := SetErrorCode(getpeername(Sock, ResultAddr^, TmpAddrlen));
ResultAddrLen^ := TmpAddrLen;
{$ELSE}
ErrorCode := SetErrorCode(getpeername(Sock, ResultAddr^, ResultAddrlen^));
{$ENDIF}
end;

function GetLastError: Integer;
begin
Result := WSAGetLastError;
end;

function GetErrorDesc(errorCode: Integer): ansistring;
begin
// If you compile and get "Undeclared Identified -
// Edit DXSock.DEF - and select a language!
case errorCode of
WSAEINTR: Result := _WSAEINTR;
WSAEBADF: Result := _WSAEBADF;
WSAEACCES: Result := _WSAEACCES;
WSAEFAULT: Result := _WSAEFAULT;
WSAEINVAL: Result := _WSAEINVAL;
WSAEMFILE: Result := _WSAEMFILE;
WSAEWOULDBLOCK: Result := _WSAEWOULDBLOCK;
WSAEINPROGRESS: Result := _WSAEINPROGRESS;
WSAEALREADY: Result := _WSAEALREADY;
WSAENOTSOCK: Result := _WSAENOTSOCK;
WSAEDESTADDRREQ: Result := _WSAEDESTADDRREQ;
WSAEMSGSIZE: Result := _WSAEMSGSIZE;
WSAEPROTOTYPE: Result := _WSAEPROTOTYPE;
WSAENOPROTOOPT: Result := _WSAENOPROTOOPT;
WSAEPROTONOSUPPORT: Result := _WSAEPROTONOSUPPORT;
WSAESOCKTNOSUPPORT: Result := _WSAESOCKTNOSUPPORT;
WSAEOPNOTSUPP: Result := _WSAEOPNOTSUPP;
WSAEPFNOSUPPORT: Result := _WSAEPFNOSUPPORT;
WSAEAFNOSUPPORT: Result := _WSAEAFNOSUPPORT;
WSAEADDRINUSE: Result := _WSAEADDRINUSE;
WSAEADDRNOTAVAIL: Result := _WSAEADDRNOTAVAIL;
WSAENETDOWN: Result := _WSAENETDOWN;
WSAENETUNREACH: Result := _WSAENETUNREACH;
WSAENETRESET: Result := _WSAENETRESET;
WSAECONNABORTED: Result := _WSAECONNABORTED;
WSAECONNRESET: Result := _WSAECONNRESET;
WSAENOBUFS: Result := _WSAENOBUFS;
WSAEISCONN: Result := _WSAEISCONN;
WSAENOTCONN: Result := _WSAENOTCONN;
WSAESHUTDOWN: Result := _WSAESHUTDOWN;
WSAETOOMANYREFS: Result := _WSAETOOMANYREFS;
WSAETIMEDOUT: Result := _WSAETIMEDOUT;
WSAECONNREFUSED: Result := _WSAECONNREFUSED;
WSAELOOP: Result := _WSAELOOP;
WSAENAMETOOLONG: Result := _WSAENAMETOOLONG;
WSAEHOSTDOWN: Result := _WSAEHOSTDOWN;
WSAEHOSTUNREACH: Result := _WSAEHOSTUNREACH;
WSAENOTEMPTY: Result := _WSAENOTEMPTY;
WSAEPROCLIM: Result := _WSAEPROCLIM;
WSAEUSERS: Result := _WSAEUSERS;
WSAEDQUOT: Result := _WSAEDQUOT;
WSAESTALE: Result := _WSAESTALE;
WSAEREMOTE: Result := _WSAEREMOTE;
WSASYSNOTREADY: Result := _WSASYSNOTREADY;
WSAVERNOTSUPPORTED: Result := _WSAVERNOTSUPPORTED;
WSANOTINITIALISED: Result := _WSANOTINITIALISED;
WSAHOST_NOT_FOUND: Result := _WSAHOST_NOT_FOUND;
WSATRY_AGAIN: Result := _WSATRY_AGAIN;
WSANO_RECOVERY: Result := _WSANO_RECOVERY;
WSANO_DATA: Result := _WSANO_DATA;
else Result := _WSAUNKNOWN + ' (' + IntToCommaStr(ErrorCode) + ')';
end;
end;

function ByteSwap4(long: Cardinal): Cardinal;
begin
result := ntohl(long);
end;

function ByteSwap2(short: smallint): smallint;
begin
result := ntohs(short);
end;

function IPIntToIPStr(IPAddr: Integer): ansistring;
var
Ws: ansistring;

begin
Setlength(Ws, 4);
Move(IPAddr, Ws[1], 4);
Result := IntToStr(Ord(Ws[1])) + '.' +
IntToStr(Ord(Ws[2])) + '.' +
IntToStr(Ord(Ws[3])) + '.' +
IntToStr(Ord(Ws[4]));
end;

function IPStrToIPInt(IPAddr: ansistring): Integer;
var
Ws: ansistring;

begin
Setlength(Ws, 4);
Ws[1] := ansichar(StrToInt(FetchByansichar(IPAddr, '.', False)));
Ws[2] := ansichar(StrToInt(FetchByansichar(IPAddr, '.', False)));
Ws[3] := ansichar(StrToInt(FetchByansichar(IPAddr, '.', False)));
Ws[4] := ansichar(StrToInt(FetchByansichar(IPAddr, '.', False)));
Move(Ws[1], Result, 4);
end;

function SocketLayerLoaded: Boolean;
begin
Result := (StartupResult = 999);
end;

procedure GetSocketVersion(WinsockInfo: PWinsockInfo);
begin
{$IFDEF LINUX}
with WinsockInfo^ do begin
Major_Version := 2;
Minor_Version := 0;
Highest_Major_Version := 2;
Highest_Minor_Version := 0;
Move('Linux Socket Layer 2.0', Description, 256);
Move('Ready', SystemStatus, 128);
MaxSockets := 65000;
MaxUDPDatagramSize := 1500;
VendorInfo := 'Brain Patchwork DX, LLC.';
end;
{$ELSE}
with WinsockInfo^ do begin
Major_Version := BYTE(DllData.wVersion);
Minor_Version := BYTE(DllData.wVersion);
Highest_Major_Version := BYTE(DllData.wHighVersion);
Highest_Minor_Version := BYTE(DllData.wHighVersion);
Move(DllData.szDescription, Description, 256);
Move(DllData.szSystemStatus, SystemStatus, 128);
MaxSockets := DllData.iMaxSockets;
MaxUDPDatagramSize := DllData.iMaxUdpDg;
VendorInfo := DllData.lpVendorInfo;
end;
{$ENDIF}
end;

function ntohs(netshort: Word): Word;
begin
Result := {$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}ntohs(Netshort);
end;

function inet_ntoa(inaddr: in_addr): Pansichar;
begin
Result := {$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}inet_ntoa(inaddr);
end;

function htonl(Hostlong: Integer): Integer;
begin
Result := {$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}htonl(Hostlong);
end;

function ntohl(Netlong: Integer): Integer;
begin
Result := {$IFDEF LINUX}Libc.
{$ELSE}Winsock.
{$ENDIF}ntohl(netlong)
end;

{ TSocketClient }

function TAsioClient.Connto(IIP: ansistring; Iport: Word): boolean;
var
lp: TNewConnect;
begin
Result := false;
FHost := IIP;
FPort := Iport;
lp.Port := Iport;
lp.ipAddress := IIP;
lp.UseUDP := false;
lp.UseBlocking := true;
lp.UseNAGLE := true;
Result := Connect(@lp);
end;

constructor TAsioClient.Create;
begin
inherited Create;
Socket := self;
OnCreate;
end;

destructor TAsioClient.Destroy;
begin
OnDestory;
CloseNow;

inherited;
end;

function TAsioClient.GetCanUseSize: integer;
begin
Result := Self.ReceiveLength;
end;

function TAsioClient.GetHead: Integer;
begin
Result := ReadInteger;
end;

function TAsioClient.Getipandport(IConn: TAsioClient): ansistring;
begin
Result := format('%S:%d', [PeerIPAddress, PeerPort]);
end;

procedure TAsioClient.GetObject(IObj: TObject; IClass: TClass);
var
Ltep: pint;
begin
IObj := TClass.Create;
Ltep := Pointer(Iobj);
inc(Ltep);
ReadBuffer(Ltep, Iobj.InstanceSize - 4);
end;

procedure TAsioClient.GetObject(IObj: TObject);
var
Ltep: pint;
begin
Ltep := Pointer(Iobj);
inc(Ltep);
ReadBuffer(Ltep, Iobj.InstanceSize - 4);
end;

function TAsioClient.GetStream(IStream: TStream; IConn: TAsioClient):
integer;
var
LZipMM: TMemoryStream;
LBuff: Pointer;
i, ltot, x: Integer;
begin

LZipMM := TMemoryStream(IStream);
ltot := IConn.ReadInteger;
LZipMM.Size := ltot;
IStream.Position := 0;
LBuff := LZipMM.Memory;
x := 0;
while ltot > 0 do begin
i := ReadBuffer(Pansichar(LBuff) + x, ltot);
Dec(ltot, i);
inc(x, i);
end; // while
// DeCompressStream(LZipMM);
end;

function TAsioClient.GetZipFile(IFileName: ansistring): integer;
var
LZipMM: TMemoryStream;
LBuff: Pointer;
i, ltot, x: Integer;
begin
LZipMM := TMemoryStream.Create;
try
ltot := ReadInteger;
LZipMM.Size := ltot;
LBuff := LZipMM.Memory;
x := 0;
while ltot > 0 do begin
i := ReadBuffer(Pansichar(LBuff) + x, ltot);
Dec(ltot, i);
inc(x, i);
end; // while
DeCompressStream(LZipMM);
LZipMM.SaveToFile(IFileName);
Result := LZipMM.Size;
finally // wrap up
LZipMM.Free;
end; // try/finally
end;

function TAsioClient.GetZipStream(IStream: TStream; IConn: TAsioClient):
integer;
var
LZipMM: TMemoryStream;
LBuff: Pointer;
i, ltot, x: Integer;
begin
LZipMM := TMemoryStream(IStream);
ltot := IConn.ReadInteger;
LZipMM.Size := ltot;
LBuff := LZipMM.Memory;
x := 0;
while ltot > 0 do begin
i := ReadBuffer(Pansichar(LBuff) + x, ltot);
Dec(ltot, i);
inc(x, i);
end; // while
DeCompressStream(LZipMM);
end;

procedure TAsioClient.SendAsioHead(Ilen: integer);
begin
WriteInteger(Ilen);
WriteInteger(Ilen);
end;

procedure TAsioClient.SendHead(ICmd: Integer);
begin
WriteInteger(ICmd);
end;

procedure TAsioClient.SendObject(IObj: TObject);
var
Ltep: Pint;
begin
Ltep := Pointer(IObj);
inc(Ltep);
Write(ltep, IObj.InstanceSize - 4);
end;

procedure TAsioClient.SendZipFile(IFileName: ansistring);
var
LZipMM: TMemoryStream;
begin
LZipMM := TMemoryStream.Create;
try
LZipMM.LoadFromFile(IFileName);
EnCompressStream(LZipMM);
WriteInteger(LZipMM.Size);
WriteBuff(LZipMM.Memory^, LZipMM.Size);
finally
LZipMM.Free;
end;
end;

function TAsioClient.SendZIpStream(IStream: tStream; IConn: TAsioClient;
IisEnc: boolean = false): Integer;
begin
if IisEnc = false then
EnCompressStream(TMemoryStream(IStream));
IConn.WriteInteger(IStream.Size);
IConn.Write(TMemoryStream(IStream).Memory, IStream.Size);
Result := IStream.Size;
end;

procedure TAsioClient.SetConnParam(Ihost: ansistring; Iport: word);
begin
FHost := Ihost;
FPort := Iport;

end;

procedure TAsioClient.WriteBuff(var obj; Ilen: integer);
begin
Write(@obj, Ilen);
end;

procedure TAsioClient.WriteStream(Istream: TStream);
begin
WriteInteger(Istream.Size);
Write(TMemoryStream(Istream).Memory, Istream.Size);
end;

function TDXSock.GetReleaseDate: ansistring;
begin
Result := '2012-02-19';
end;

procedure TDXSock.SetReleaseDate(value: ansistring);
begin
// Absorb!
end;

constructor TDXSock.Create;
begin
inherited Create; // RC2
FReadTimeout := False;
// GetMem (FPeekBuffer,PeekBufferSize) ;
FPeekBuffer := System.GetMemory(PeekBufferSize);
fChunkBuf := nil;
SetFBlockSizeFlags(bsfNormal);
if not SocketLayerLoaded then
ShowMessage('Fatal Socket Error' + '(WSAStartup) ' + GetErrorStr);
fTooManyansicharacters := 2048;
Sock := INVALID_SOCKET;
fbIsUDP := False;
fbIsKeepAlive := False;
fbClientMode := False;
FUseBlocking := True;
GlobalPeerPort := 0;
GlobalPeerIPAddress := '';
// GlobalTimeout.tv_Sec:=0;
// GlobalTimeout.tv_uSec:=1000; // was 10000 4RC2
VarConstSizeofTSockAddrIn := ConstSizeofTSockAddrIn;
end;

destructor TDXSock.Destroy;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.EndTransaction;
end;
{$ENDIF}
{$IFDEF TLS_EDITION}
if assigned(tstack) then begin
tStack.Free;
tStack := nil;
end;
{$ENDIF}
if Assigned(fChunkBuf) then
// FreeMem (fChunkBuf,fActualBlockSize);
System.FreeMemory(fChunkBuf);
fChunkBuf := nil;
// FreeMem (FPeekBuffer,PeekBufferSize);
System.FreeMemory(FPeekBuffer);
if Sock <> INVALID_SOCKET then
CloseNow;
inherited Destroy;
end;

function TDXSock.IsConning: Boolean;
begin
Result := IsConnected;
end;

function TDXSock.Writeansistring(const s: ansistring): Integer;
begin
Result := Write(s);
end;

function TDXSock.CloseConn: Boolean;
begin
CloseNow;
Result := True;
end;

procedure TDXSock.SetTimeoutAndBuffer(SocketHandle: Integer);
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SetTimeoutAndBuffer(' + IntToStr(SocketHandle) + ')');
end;
{$ENDIF}
ResetBufferAndTimeout(SocketHandle, TDXXferTimeout, TDXMaxSocketBuffer);
FErrStatus := 0;
end;

function TDXSock.Connect(Parameters: PNewConnect): Boolean;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.StartTransaction;
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Connect');
end;
{$ENDIF}
fTotalWBytes := 0;
fTotalRBytes := 0;
Result := False;

with Parameters^ do begin
FUseBlocking := UseBlocking;
fbIsUDP := UseUDP;
Sock := ClientConnectToServer(ipAddress, Port, UseUDP, UseNAGLE, @SockAddr, FErrStatus);
if (FErrStatus <> 0) then
Exit;
GlobalPeerPort := ntohs(SockAddr.sin_port);
GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
SetBlocking(Sock, UseBlocking, FErrStatus);
fbIsKeepAlive := False;
if not FbIsUDP then begin
SetSockStatusBool(Sock, SO_KeepAlive, True, FErrStatus);
fbIsKeepAlive := FErrStatus = 0;
end;
SetTimeoutAndBuffer(Sock);
// if FbIsUDP then begin
SetReceiveBuffer(Sock, TDXMaxSocketBuffer * 4, FErrStatus);
if FErrStatus <> 0 then
SetReceiveBuffer(Sock, TDXMaxSocketBuffer * 3, FErrStatus);
if FErrStatus <> 0 then
SetReceiveBuffer(Sock, TDXMaxSocketBuffer * 2, FErrStatus);
if FErrStatus <> 0 then
SetReceiveBuffer(Sock, TDXMaxSocketBuffer, FErrStatus);
// end;
end;
fbClientMode := True;
Result := True;
fCPSStart := Now;
end;

function TDXSock.Listen(Parameters: PNewListen): Boolean;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.StartTransaction;
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Listen');
end;
{$ENDIF}
Result := False;
with Parameters^ do begin
FUseBlocking := UseBlocking;
Sock := BindAndListen(fsBindTo, Port, WinsockQueue, UseUDP, UseNAGLE,
Connectionless, @SockAddr, FErrStatus);
fbIsUDP := UseUDP;
if Sock = Invalid_Socket then
Exit; // linux does not set FErrStatus!
if FErrStatus = 0 then
SetBlocking(Sock, UseBlocking, FErrStatus)
else
Exit;
if not fbIsUDP then begin
SetSockStatusBool(Sock, SO_KeepAlive, True, FErrStatus);
fbIsKeepAlive := fErrStatus = 0;
end;
SetTimeoutAndBuffer(Sock);
SetReceiveBuffer(Sock, TDXMaxSocketBuffer * 4, FErrStatus);
if FErrStatus <> 0 then
SetReceiveBuffer(Sock, TDXMaxSocketBuffer * 3, FErrStatus);
if FErrStatus <> 0 then
SetReceiveBuffer(Sock, TDXMaxSocketBuffer * 2, FErrStatus);
if FErrStatus <> 0 then
SetReceiveBuffer(Sock, TDXMaxSocketBuffer, FErrStatus);
end;
fErrStatus := 0;
fbClientMode := False;
Result := True;
GlobalPeerPort := 0;
GlobalPeerIPAddress := '';
end;

function TDXSock.Accept(var NewSock: TDXSock): Boolean;
var
ICreatedIt: Boolean;

begin
Result := False;
if Sock = INVALID_SOCKET then
exit;
Result := IsAcceptWaiting(Sock);
if (not Result) or fbIsUDP then
Exit;
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Accept');
end;
{$ENDIF}
ICreatedIt := not Assigned(NewSock);
if ICreatedIt then
NewSock := TDXSock.Create(); // RC2
NewSock.Sock := AcceptNewConnect(Sock, @NewSock.SockAddr, @VarConstSizeofTSockAddrIn, FErrStatus);
if FErrStatus <> 0 then begin
NewSock.Sock := Invalid_Socket;
if ICreatedIt then begin
NewSock.Free;
NewSock := nil;
end;
Result := False;
Exit;
end;
NewSock.GlobalPeerPort := ntohs(NewSock.SockAddr.sin_port);
NewSock.GlobalPeerIPAddress := inet_ntoa(NewSock.SockAddr.sin_addr);
NewSock.fbClientMode := False;
NewSock.fCPSStart := Now;
// SetTimeoutAndBuffer(NewSock.Sock);
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
NewSock.DXCodeTracer := CodeTracer; // link new sessions automatically
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Accepted/Configured');
end;
{$ENDIF}
end;

{$IFDEF SUPPORT_DESIGNTIME_CLIENTS}

procedure ProcessMessages;
var
MsgRec: TMsg;

begin
if not IsConsole then
if PeekMessage(MsgRec, 0, 0, 0, PM_REMOVE) then begin
TranslateMessage(MsgRec);
DispatchMessage(MsgRec)
end;
end;
{$ENDIF}

{$IFDEF VER100}

function TDXSock.BlockWrite(buf: Pointer; len: Integer): Integer;
{$ELSE}

function TDXSock.Write(buf: Pointer; len: Integer): Integer;
{$ENDIF}
var
BytesLeft: Integer;
BytesSent: Integer;
XferSize: Integer;
TmpP: Pointer;
Filtered: Pointer;
NewLen: Integer;
Handled: Boolean;

begin
{$IFDEF TLS_EDITION}
DoSleepEx(0);
{$ENDIF}
Result := 0;
if Sock = INVALID_SOCKET then
Exit;
if (Len < 1) then begin
if fbIsUDP then begin
UDPSend(Sock, Buf^, 0, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus); // 2.3 - empty udp packet
GlobalPeerPort := ntohs(SockAddr.sin_port);
GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
end;
Exit;
end;
NewLen := 0;
if Assigned(feOnFilter) then begin
Handled := False;
Filtered := nil;
feOnFilter(ddAboutToWrite, Buf, Filtered, Len, NewLen, Handled, FClientThread);
if not Handled then begin
fErrStatus := 9999; {onFilter failed!}
Exit;
end;
end;
if fbIsUDP then begin
if NewLen = 0 then
Result := UDPSend(Sock, Buf^, Len, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus)
else begin
Result := UDPSend(Sock, Filtered^, NewLen, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus);
if Assigned(feOnFilter) then
feOnFilter(ddFreePointer, Filtered, Filtered, NewLen, NewLen, Handled, FClientThread);
end;
GlobalPeerPort := ntohs(SockAddr.sin_port);
GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
Exit;
end;
if NewLen = 0 then begin
BytesLeft := Len;
TmpP := Buf;
end
else begin
BytesLeft := NewLen;
Len := NewLen;
TmpP := Filtered;
end;
fErrStatus := 0;
repeat
{$IFDEF SUPPORT_DESIGNTIME_CLIENTS}
ProcessMessages;
{$ENDIF}
XferSize := BytesLeft;
if IsWritAble then begin
// DXS4 do not remove this line: it is manditory!
if XFerSize > FActualBlockSize then
XFerSize := FActualBlockSize;
BytesSent := BasicSend(Sock, TmpP^, XferSize, 0, FErrStatus);
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Write SENT: [' + IntToStr(BytesSent) + ' bytes] FErrStatus=' + IntToStr(FErrStatus));
end;
{$ENDIF}
case BytesSent of
-1: begin
case fErrStatus of
WSAETIMEDOUT,
WSAENOBUFS,
WSAEWOULDBLOCK: fErrStatus := 0;
WSAECONNABORTED, WSAECONNRESET: begin
CloseNow;
end;
// else ShowMessageWindow('','unknown fErrStatus='+IntToStr(fErrStatus));
end;
end;
0: begin
// ShowMessageWindow('','ReadError(0) '+IntToStr(fErrStatus));
CloseNow;
end;
else begin
if BytesSent > 0 then
Dec(BytesLeft, BytesSent);
if (BytesLeft > 0) and (fErrStatus = 0) then begin // 3.0 [major bug fix!!]
Inc(LongInt(TmpP), BytesSent);
end;
end;
end;
end; // Is Write able.
until (BytesLeft = 0) or (FErrStatus <> 0) or (sock = Invalid_Socket);
Result := Len - BytesLeft;
if Result > 0 then
fTotalWBytes := fTotalWBytes + Result;
if Assigned(feOnFilter) then
feOnFilter(ddFreePointer, nil, Filtered, NewLen, NewLen, Handled, FClientThread);
end;

function TDXSock.WriteInteger(const n: integer): integer;
var
x: integer;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.WriteInteger(' + IntToStr(N) + ')');
end;
{$ENDIF}
x := htonl(n);
{$IFDEF VER100}
result := BlockWrite(@x, sizeof(x));
{$ELSE}
result := Write(@x, sizeof(x));
{$ENDIF}
end;

{$IFDEF VER100}

function TDXSock.WriteCh(c: ansichar): Integer;
{$ELSE}

function TDXSock.Write(c: ansichar): Integer;
{$ENDIF}
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.WriteCh(' + C + ')');
end;
{$ENDIF}
{$IFDEF VER100}
Result := BlockWrite(@C, 1);
{$ELSE}
Result := Write(@C, 1);
{$ENDIF}
end;

function TDXSock.Write(const s: ansistring): Integer;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Write(' + S + ')');
end;
{$ENDIF}
{$IFDEF VER100}
Result := BlockWrite(@S[1], Length(S));
{$ELSE}
Result := Write(@S[1], Length(S));
{$ENDIF}
end;

function TDXSock.WriteLn(const s: ansistring): Integer;
var
Len: Integer;
Ws: ansistring;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.WriteLn(' + S + ')');
end;
{$ENDIF}
if Assigned(feOnFilter) then begin
Len := 2;
Result := Write(S) + Len; // send via filter
Ws := #13#10;
if fbIsUDP then begin // append CRLF unfiltered!
UDPSend(Sock, Ws[1], Len, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus);
end
else begin
BasicSend(Sock, Ws[1], Len, 0, FErrStatus);
end;
end
else
Result := Write(S + #13#10);
end;

function TDXSock.WriteResultCode(const Code: Integer; const Rslt: ansistring): Integer;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.WriteResult()');
end;
{$ENDIF}
Result := Writeln(IntToStr(Code) + #32 + Rslt);
end;

function TDXSock.ReadInteger: integer;
var
n: integer;
cnt: integer;

begin
{$IFDEF VER100}
cnt := BlockRead(@n, sizeof(n));
{$ELSE}
cnt := Read(@n, sizeof(n));
{$ENDIF}
if cnt = sizeof(n) then begin
n := ntohl(n);
result := n;
end
else
result := -1;
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.ReadInteger=' + IntToStr(Result));
end;
{$ENDIF}
end;

{$IFDEF VER100}

function TDXSock.BlockRead(buf: Pointer; len: Integer): Integer;
{$ELSE}

function TDXSock.Read(buf: Pointer; len: Integer): Integer;
{$ENDIF}
var
UDPAddrSize: Integer;
// Tries:Integer;
{$IFDEF TLS_EDITION}
Filtered, InData: Pointer;
Handled: Boolean;
NewLen: Integer;
StartTime: Longword;
SizeToRead: Integer;
{$ENDIF}

begin
{$IFDEF TLS_EDITION}
DoSleepEx(0);
{$ENDIF}
fReadTimeout := False;
Result := 0;
if (Sock = INVALID_SOCKET) or (Len < 1) then
exit;
// Tries:=0;
if fbIsUDP then begin
UDPAddrSize := ConstSizeofTSockAddrIn;
Result := UDPRecv(Sock, Buf^, Len, 0, SockAddr, UDPAddrSize, FErrStatus);
GlobalPeerPort := ntohs(SockAddr.sin_port);
GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
end
else begin
{$IFNDEF TLS_EDITION}
// if (CountWaiting>0) or (Tries>=3) then begin
Result := BasicRecv(Sock, Buf^, Len, 0, FErrStatus);
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
if (Result = -1) and ((fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) then {absorb}
else if Result > 0 then
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Read RECV: ' + Pansichar(Buf) + ' [' + IntToStr(Result) + '] fes=' + IntToStr(FErrStatus))
else
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Read RECV: [' + IntToStr(Result) + '] fes=' + IntToStr(FErrStatus));
end;
{$ENDIF}
// end;
{$ELSE}
// if (CountWaiting>0) or (Tries>=3) then begin
if Assigned(feOnFilter) then begin
SetBlocking(True);
SizeToRead := 0;
StartTime := Dxansistring.TimeCounter + 120000;
while (SizeToRead = 0) and Connected and (not DXansistring.Timeout(StartTime)) do begin
ioctlsocket(Sock, FIONREAD, Longint(SizeToRead));
DoSleepEx(1);
end;
if SizeToRead <> 0 then begin
InData := nil;
Filtered := nil;
// GetMem (InData,SizeToRead) ;
InData := System.GetMemory(SizeToRead);
Result := Recv(Sock, InData^, SizeToRead, 0);
end;
end
else
Result := BasicRecv(Sock, Buf^, Len, 0, FErrStatus);
// end;
end;
if Result = 0 then
CloseGracefully;
fReadTimeout := Result < 1;
if (Result > 0) and Assigned(feOnFilter) then begin
Handled := False;
Len := 0;
feOnFilter(ddAfterRead, InData, Filtered, SizeToRead, Len, Handled, FClientThread);
if not Handled then begin
fErrStatus := 9999; {onFilter failed!}
if InData <> nil then begin
// FreeMem (InData,SizeToRead) ;
System.FreeMemory(InData);
InData := nil;
end;
CloseGracefully;
end
else
Result := Len;
if Filtered = nil then
Result := 0;
if Filtered <> nil then
Move(Filtered^, Buf^, Len);
if InData <> nil then begin
// FreeMem (InData,SizeToRead) ;
System.FreeMemory(InData);
InData := nil;
end;
feOnFilter(ddFreePointer, nil, Filtered, Len, Len, Handled, FClientThread);
end;
{$ENDIF}
end;
fReadTimeout := Result < 1;
if Result = 0 then
CloseGracefully
else if Result > 0 then
fTotalRBytes := fTotalRBytes + Result;
end;

function TDXSock.Read: ansichar;
var
Size: Integer;

begin
{$IFDEF VER100}
Size := BlockRead(@Result, 1);
{$ELSE}
Size := Read(@Result, 1);
{$ENDIF}
if Size < 1 then
Result := #0;
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Read=' + Result);
end;
{$ENDIF}
end;

function TDXSock.ReadStr(MaxLength: Integer): ansistring;
var
Size: Integer;
Ctr: Integer;
Done: Boolean;
ReadSize: Integer;

begin
fReadTimeout := False;
if Sock = INVALID_SOCKET then
Exit;
Result := '';
if MaxLength = 0 then
Exit;
Size := MaxLength;
if MaxLength < 0 then
Size := TDXHugeSize;
Setlength(Result, Size);
fErrStatus := 0;
Ctr := 0;
Done := False;
while (not Done) and (IsConnected) do begin
{$IFDEF VER100}
ReadSize := BlockRead(@Result[Ctr + 1], Size - Ctr);
{$ELSE}
ReadSize := Read(@Result[Ctr + 1], Size - Ctr);
{$ENDIF}
Done := (Ctr + ReadSize = Size) or
((ReadSize = -1) and (MaxLength = -1));
if not Done then begin
if ReadSize > 0 then
Inc(Ctr, ReadSize);
if (ReadSize > 0) and
(MaxLength = -1) and
(CountmyWaiting = 0) then begin
Done := True;
end
else begin
DoSleepEx(1); // allow sockets to digest tcpip.sys packets...
ProcessWindowsMessageQueue;
end;
end
else
fErrStatus := 0;
end;
if (((fErrStatus <> 0) and (fErrStatus <> WSAETIMEDOUT) and (fErrStatus <> WSAEWOULDBLOCK))) or (Size = 0) then
Result := ''
else if (Size = Socket_Error) then
Result := ''
else begin
Setlength(Result, MaxLength);
fReadTimeout := False;
end;
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
if Result <> '' then
CodeTracer.SendMessage(dxctDebug, 'TDXSock.ReadStr=' + Result);
end;
{$ENDIF}
end;

function TDXSock.Readansistring(MaxLength: Integer; iTimeout: Longword): ansistring;
var
Size: Integer;
StartTime: Comp;

begin
if (MaxLength < 1) or (MaxLength > 250) then begin // 4RC2
Result := ReadStr(MaxLength);
Exit;
end;
Result := '';
fReadTimeout := False;
if Sock = INVALID_SOCKET then
Exit;
fReadTimeout := False;
StartTime := TimeCounter + iTimeout;
fErrStatus := 0;
while (CountmyWaiting < MaxLength) and
(not Timeout(StartTime)) and
(IsConnected) do begin
DoSleepEx(1);
end;
if (CountmyWaiting < MaxLength) then begin
fReadTimeout := True;
Exit;
end;
Setlength(Result, MaxLength);
Fillchar(Result[1], MaxLength, 0);
{$IFDEF VER100}
Size := BlockRead(@Result[1], MaxLength);
{$ELSE}
Size := Read(@Result[1], MaxLength);
{$ENDIF}
if (((fErrStatus <> 0) and (fErrStatus <> WSAETIMEDOUT) and (fErrStatus <> WSAEWOULDBLOCK))) or (Size = 0) then
Result := ''
// 3.0
else if (Size = Socket_Error) then
Result := ''
else
Setlength(Result, Size);
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Readansistring=' + Result);
end;
{$ENDIF}
end;

function TDXSock.Getansichar: Str1;
var
Size: Integer;

begin
// 7-27 SetLength(Result, 1);
Result := #32;
{$IFDEF VER100}
Size := BlockRead(@Result[1], 1);
{$ELSE}
Size := Read(@Result[1], 1);
{$ENDIF}
case Size of
0: begin
CloseNow;
Result := '';
end;
1: begin
end;
else begin
if (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK) then
fReadTimeout := False;
Result := '';
end;
end;
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Getansichar=' + Result);
end;
{$ENDIF}
end;

function TDXSock.GetByte: Byte;
var
L: Str1;

begin
L := Getansichar;
if L = '' then
Result := 0
else
Result := Ord(L[1]);
end;

function TDXSock.ReadLn(iTimeout: Longword = 100000): ansistring;
var
markerCR, markerLF: Integer;
s: ansistring;
startTime: Comp;
Lastansichar: Str1;
pansistring: ansistring;

{$IFDEF TLS_EDITION}
function TestStack(ts: TMJBLIFO): Boolean;
begin
Result := False;
if assigned(tStack) then
Result := ts.ItemCount > 0
else
tStack := TMJBLIFO.Create;
end;
{$ENDIF}

begin
Result := '';
fReadTimeout := False;
if Sock = INVALID_SOCKET then
exit;
{$IFDEF TLS_EDITION}
if FTLS = True then begin
if TestStack(tStack) then
Result := tStack.Pop
else begin
pansistring := ReadStr(-1);
if pansistring = '' then
pansistring := ReadStr(-1);
// If pansistring[1] = #0 Then pansistring := ReadStr(-1);
if Straggler <> '' then
pansistring := Straggler + pansistring;
{$IFDEF OBJECTS_ONLY}
tBuf := TBrkApart.Create;
{$ELSE}
tBuf := TBrkApart.Create(nil);
{$ENDIF}
tBuf.AllowEmptyansistring := True;
tBuf.Baseansistring := pansistring;
tBuf.Breakansistring := #13#10;
tBuf.BreakApart;
MarkerLF := tbuf.ansistringList.Count - 2; // Allow for last ansistring as CRLF
for markerCR := MarkerLF downto 0 do begin
tStack.Push(tbuf.ansistringList.ansistrings[markerCR]);
end;
Straggler := tBuf.Straggler;
FreeAndNil(tBuf);
if tStack.ItemCount > 0 then
Result := tStack.Pop
else
Result := pansistring;
end;
Exit;
end;
{$ENDIF}
S := Getansichar;
Lastansichar := S;
if (Sock = INVALID_SOCKET) {or (fReadTimeout) removed 7-27} then
exit;
MarkerLF := 0;
MarkerCR := 0;
fErrStatus := 0;
StartTime := TimeCounter + iTimeout;
while (Sock <> Invalid_Socket) and
(MarkerLF + MarkerCR = 0) and
(not Timeout(StartTime)) and
(Length(S) < fTooManyansicharacters) and
((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)
// 7-27:
or (fErrStatus = WSAEWOULDBLOCK)) do begin
if fErrStatus = WSAEWOULDBLOCK then
ProcessWindowsMessageQueue;
if (Lastansichar = '') or (not (Lastansichar[1] in [#10, #13])) then begin {handles getansichar from above!}
pansistring := Peekansistring;
if Timeout(StartTime) then
Break;
if (pansistring = '') then begin
Lastansichar := Getansichar;
end
else begin
MarkerLF := ansicharPos(#10, pansistring);
MarkerCR := ansicharPos(#13, pansistring);
if MarkerLF + MarkerCR > 0 then begin
if MarkerLF = 0 then
MarkerLF := MarkerCR
else if MarkerCR = 0 then
MarkerCR := MarkerLF;
if Min(MarkerLF, MarkerCR) > 1 then // 2.4
S := S + Copy(pansistring, 1, Min(MarkerLF, MarkerCR) - 1);
ReadStr(Min(MarkerLF, MarkerCR));
Lastansichar := #13;
end
else begin
S := S + pansistring;
ReadStr(Length(pansistring));
Lastansichar := '';
end;
end;
if Timeout(StartTime) then
Break;
if Lastansichar > '' then begin
S := S + Lastansichar;
end;
end;
if (Length(Lastansichar) > 0) and (Lastansichar[1] in [#10, #13]) then begin
MarkerLF := ansicharPos(#10, S);
MarkerCR := ansicharPos(#13, S);
if MarkerLF + MarkerCR > 0 then begin
if MarkerLF = Length(S) then begin {unix or DOS}
if MarkerCR = 0 then begin {unix or Mac}
if CountmyWaiting > 0 then
if Peekansichar = #13 then begin {Mac}
Lastansichar := Getansichar;
S := S + Lastansichar;
end;
end
else if MarkerCR < MarkerLF then
MarkerLF := MarkerCR;
MarkerCR := MarkerLF;
end;
if MarkerCR = Length(S) then begin {Mac or DOS}
if MarkerLF = 0 then begin {Mac or DOS}
if CountmyWaiting > 0 then
if Peekansichar = #10 then begin {DOS}
Lastansichar := Getansichar;
S := S + Lastansichar;
end;
end
else if MarkerLF < MarkerCR then
MarkerCR := MarkerLF;
MarkerLF := MarkerCR;
end;
end;
end;
end;
if Sock = INVALID_SOCKET then
exit;
FReadTimeout := (MarkerCR < 1) and (Timeout(StartTime));
Result := Copy(S, 1, MarkerCR - 1);
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.ReadLn=' + Result);
end;
{$ENDIF}
end;

function TDXSock.ReadCRLF(iTimeout: Longword): ansistring;
begin
Result := ReadToAnyDelimiter(iTimeout, #13#10);
end;
{var
marker: Integer;
s: ansistring;
startTime: Longword;

begin
Result := '';
fReadTimeout := False;
if Sock = INVALID_SOCKET then exit;
Marker := 0;
StartTime := TimeCounter + Timeout;
fErrStatus := 0;
while (sock <> Invalid_Socket) and
(Marker = 0) and
(not DXansistring.Timeout(StartTime)) and
(Length(S) < fTooManyansicharacters) and
((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) do begin
S := S + Getansichar;
Marker := QuickPos(#13#10, S);
end;
if Sock = INVALID_SOCKET then exit;
Result := Copy(S, 1, Marker - 1);
end;}

function TDXSock.ReadToAnyDelimiter(iTimeout: Longword; Delimiter: ansistring):
ansistring;
var
slen: Integer;
marker: Integer;
s: ansistring;
startTime: Comp;
pansistring: ansistring;
iDel: Integer;

begin
Result := '';
fReadTimeout := False;
if Sock = INVALID_SOCKET then
exit;
S := '';
sLen := 0;
StartTime := TimeCounter + iTimeout;
Marker := 0;
while (sock <> Invalid_Socket) and
(Marker = 0) and
(not Timeout(StartTime)) and
(sLen < fTooManyansicharacters) and
((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) do begin
pansistring := Peekansistring;
if pansistring <> '' then begin
sLen := Length(S);
S := S + pansistring;
Marker := QuickPos(Delimiter, S);
if Marker = 0 then begin
ReadStr(Length(pansistring)); // clear socket
end
else begin
S := Copy(S, 1, Marker - 1);
if Marker < sLen then
iDel := Length(Delimiter) - (sLen - Marker)
else
iDel := (Marker - sLen) + Length(Delimiter);
// If Marker // Else iDel:=Marker-sLen+(Length(Delimiter)-1);
ReadStr(iDel);
end;
end
else begin
pansistring := Getansichar;
if pansistring = '' then
DoSleepEx(1)
else begin
Inc(sLen);
S := S + pansistring;
end;
end;
end;
if Sock = INVALID_SOCKET then
exit;
fReadTimeout := Timeout(StartTime);
Result := S; // return what ever is collected, even if not done!
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.ReadToAnyDelimeter=' + Result);
end;
{$ENDIF}
end;

function TDXSock.ReadNull(Timeout: Longword): ansistring;
begin
Result := ReadToAnyDelimiter(Timeout, #0);
end;

function TDXSock.ReadSpace(Timeout: Longword): ansistring;
begin
Result := ReadToAnyDelimiter(Timeout, #32);
end;

function TDXSock.SendBuf(const Buf; Count: Integer): Integer; // Borland friendly
begin
{$IFDEF VER100}
Result := BlockWrite(@Buf, Count);
{$ELSE}
Result := Write(@Buf, Count);
{$ENDIF}
end;

function TDXSock.Readbuffer(iBuf: pointer; Count: Integer): Integer;
var
ltot, i, X: Integer;
begin
Result := -1;
x := 0;
ltot := Count;
while (ltot > 0) and Self.Connected do begin
i := Read(Pansichar(iBuf) + x, ltot);
Dec(ltot, i);
inc(x, i);
end; // while
Result := x;
end;

function TDXSock.ReceiveBuf(var Buf; Count: Integer): Integer; // Borland friendly
begin
{$IFDEF VER100}
Result := BlockRead(@Buf, Count);
{$ELSE}
Result := Read(@Buf, Count);
{$ENDIF}
end;

function TDXSock.SendFrom(Stream: TStream): Boolean;
var
Len: Integer;
SSize, SPosition: Integer;
Tries: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SendFrom');
end;
{$ENDIF}
fErrStatus := 0;
SSize := Stream.Size;
SPosition := Stream.Position;
Tries := 0;
while (sock <> Invalid_Socket) and
(Stream.Position < Stream.Size) and
(fErrStatus = 0) and
(Tries < 3) do begin
if (SSize - SPosition) < FActualBlockSize then
Len := SSize - SPosition
else
Len := FActualBlockSize;
if Len > 0 then begin
Stream.Seek(SPosition, 0);
Stream.Read(fChunkBuf^, Len);
{$IFDEF VER100}
Len := BlockWrite(fChunkBuf, Len);
{$ELSE}
Len := Write(fChunkBuf, Len);
{$ENDIF}
SPosition := SPosition + Len;
if fErrStatus > 0 then begin
Tries := 3;
end
else if Len < 1 then
Inc(Tries)
else
Tries := 0;
end;
end;
Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
end;

{$IFDEF VER100}

function TDXSock.SendFromStreamRange(Stream: TStream; Range: Integer): Boolean;
{$ELSE}

function TDXSock.SendFrom(Stream: TStream; Range: Integer): Boolean;
{$ENDIF}
var
Len: Integer;
SSize, SPosition: Integer;
Tries: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SendFromRange');
end;
{$ENDIF}
fErrStatus := 0;
SSize := Range;
SPosition := Stream.Position;
Tries := 0;
while (sock <> Invalid_Socket) and
(Stream.Position < Stream.Size) and
(fErrStatus = 0) and
(Tries < 3) do begin
if (SSize - SPosition) < FActualBlockSize then
Len := SSize - SPosition
else
Len := FActualBlockSize;
if Len > 0 then begin
Stream.Seek(SPosition, 0);
Stream.Read(fChunkBuf^, Len);
{$IFDEF VER100}
Len := BlockWrite(fChunkBuf, Len);
{$ELSE}
Len := Write(fChunkBuf, Len);
{$ENDIF}
SPosition := SPosition + Len;
if fErrStatus > 0 then begin
Tries := 3;
end
else if Len < 1 then
Inc(Tries)
else
Tries := 0;
end;
end;
Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
end;

{$IFDEF VER100}

function TDXSock.SendFromWindowsFile(var Handle: Integer): boolean;
{$ELSE}

function TDXSock.SendFrom(var Handle: Integer): boolean;
{$ENDIF}
var
Len: Integer;
SLen: Integer;
Offset: Integer;
FSize: Integer;
Tries: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SendFrom');
end;
{$ENDIF}
Result := False;
fReadTimeout := False;
if Sock = INVALID_SOCKET then
Exit;
if Handle <> 0 then begin
Offset := FileSeek(Handle, 0, 1);
FSize := FileSeek(Handle, 0, 2);
FileSeek(Handle, Offset, 0);
fErrStatus := 0;
Tries := 0;
while (sock <> Invalid_Socket) and
(Offset < FSize) and
(fErrStatus = 0) and
(Tries < 3) do begin
if Sock <> INVALID_SOCKET then begin
Len := FileRead(Handle, fChunkBuf^, FActualBlockSize - 1);
if Len > 0 then begin
{$IFDEF VER100}
SLen := BlockWrite(fChunkBuf, Len);
{$ELSE}
SLen := Write(fChunkBuf, Len);
{$ENDIF}
if SLen <> Len then begin
Offset := SLen + Offset;
FileSeek(Handle, Offset, 0);
Inc(Tries);
end
else
Tries := 0;
if fErrStatus > 0 then
Tries := 3;
end;
end;
Offset := FileSeek(Handle, 0, 1);
end;
end;
Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
end;

{$IFDEF VER100}

function TDXSock.SendFromBorlandFile(var Handle: file): boolean;
{$ELSE}

function TDXSock.SendFrom(var Handle: file): boolean;
{$ENDIF}
var
Len: Integer;
SLen: Integer;
OffSet: Integer;
Tries: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SendFrom');
end;
{$ENDIF}
Result := False;
fReadTimeout := False;
if Sock = INVALID_SOCKET then
Exit;
fErrStatus := 0;
Tries := 0;
while not Eof(Handle) and (fErrStatus = 0) and (Tries < 3) and (sock <> Invalid_Socket) do begin
Offset := System.FilePos(Handle);
if (Sock <> INVALID_SOCKET) then begin
System.BlockRead(Handle, fChunkBuf^, FActualBlockSize - 1, Len);
{$IFDEF VER100}
SLen := BlockWrite(fChunkBuf, Len);
{$ELSE}
SLen := Write(fChunkBuf, Len);
{$ENDIF}
if SLen = Len then begin
Tries := 0;
end
else begin
Offset := SLen + Offset;
System.Seek(Handle, Offset);
Inc(Tries);
end;
if fErrStatus > 0 then
Tries := 3;
end;
end;
Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
end;

{$IFDEF VER100}

function TDXSock.SaveToStream(Stream: TStream; Timeout: Longword): Boolean;
{$ELSE}

function TDXSock.SaveTo(Stream: TStream; iTimeout: Longword): Boolean;
{$ENDIF}
var
SLen: Integer;
StartTime: Comp;
OldSize: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SaveTo');
end;
{$ENDIF}
OldSize := Stream.Size;
fErrStatus := 0;
fReadTimeout := False;
StartTime := TimeCounter + iTimeout;
while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) and
(not Timeout(StartTime)) do begin
{$IFDEF VER100}
SLen := BlockRead(fChunkBuf, FActualBlockSize);
{$ELSE}
SLen := Read(fChunkBuf, FActualBlockSize);
{$ENDIF}
if SLen < 1 then begin
if SLen = 0 then
Break;
end
else
Stream.Write(fChunkBuf^, SLen);
if SLen < FActualBlockSize then
Break; //GT for TLS Stops looping until timeout
end;
Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK));
if Result then
Result := Stream.Size <> OldSize;
end;

{$IFDEF VER100}

function TDXSock.SaveToWindowsFile(var Handle: Integer; Timeout: Longword): boolean;
{$ELSE}

function TDXSock.SaveTo(var Handle: Integer; iTimeout: Longword): boolean;
{$ENDIF}
var
SLen: Integer;
{$IFDEF VER100}
STmp: Integer;
{$ELSE}
STmp: Cardinal;
{$ENDIF}
StartTime: Comp;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SaveTo');
end;
{$ENDIF}
fErrStatus := 0;
fReadTimeout := False;
StartTime := TimeCounter + iTimeout;
while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) and
(not Timeout(StartTime)) do begin
{$IFDEF VER100}
SLen := BlockRead(fChunkBuf, FActualBlockSize);
{$ELSE}
SLen := Read(fChunkBuf, FActualBlockSize);
{$ENDIF}
STmp := 0;
if SLen < 1 then begin
if SLen = 0 then
Break;
end
else
WindowsWriteFile(Handle, fChunkBuf^, SLen, STmp);
end;
Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK));
end;

{$IFDEF VER100}

function TDXSock.SaveToBorlandFile(var Handle: file; Timeout: Longword): boolean;
{$ELSE}

function TDXSock.SaveTo(var Handle: file; iTimeout: Longword): boolean;
{$ENDIF}
var
SLen: Integer;
StartTime: Comp;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SaveTo');
end;
{$ENDIF}
fErrStatus := 0;
fReadTimeout := False;
StartTime := TimeCounter + iTimeout;
while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) and
(not Timeout(StartTime)) do begin
{$IFDEF VER100}
SLen := BlockRead(fChunkBuf, FActualBlockSize);
{$ELSE}
SLen := Read(fChunkBuf, FActualBlockSize);
{$ENDIF}
if SLen < 1 then begin
if SLen = 0 then
Break;
end
else
System.BlockWrite(Handle, fChunkBuf^, SLen);
end;
Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK));
end;

function TDXSock.WriteWithSize(S: ansistring): Boolean;
var
Size, OriginalSize: Integer;
Ws: ansistring;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.WriteWithSize(' + S + ')');
end;
{$ENDIF}
Result := False;
if S = '' then
Exit;
OriginalSize := Length(S);
SetLength(Ws, OriginalSize + 4);
Move(S[1], Ws[5], OriginalSize);
size := htonl(OriginalSize);
Move(Size, Ws[1], 4);
{$IFDEF VER100}
Result := BlockWrite(@Ws[1], OriginalSize + 4) = OriginalSize + 4;
{$ELSE}
Result := Write(@Ws[1], OriginalSize + 4) = OriginalSize + 4;
{$ENDIF}
end;

function TDXSock.ReadWithSize: ansistring;
var
Done: Boolean;
Size: Integer;

begin
Result := '';
FErrStatus := 0;
// redesigned for non-blocking mode and blocking mode and nagle on/off
Done := False;
while ((fErrStatus = 0) or (fErrStatus = WSAEWOULDBLOCK)) and not Done do begin
Result := Result + Getansichar; // ReadStr(4-Length(Result));
Done := Length(Result) = 4;
end;
if not Done then
Exit;
Move(Result[1], Size, 4);
size := ntohl(size);
if (Size > fTooManyansicharacters) or (Size < 1) then begin
// ShowMessageWindow ('',HexDump (Result) +#13+
// CleanStr (ReadStr (100) ) ) ;
exit;
end;
Result := ReadStr(Size);
end;

function TDXSock.SendFromStreamWithSize(Stream: TStream): Boolean;
var
Size: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SendFromStreamWithSize');
end;
{$ENDIF}
Result := False;
Size := Stream.Size;
if size < 1 then
Exit;
size := htonl(size);
Stream.Seek(0, 0);
{$IFDEF VER100}
if BlockWrite(@Size, 4) = 4 then
Result := SendFromStream(Stream);
{$ELSE}
if Write(@Size, 4) = 4 then
Result := SendFrom(Stream);
{$ENDIF}
end;

function TDXSock.SaveToStreamWithSize(Stream: TStream; iTimeout: Longword):
Boolean;
var
Size: Integer;
StartTime: Comp;
SLen: Integer;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SaveToStreamWithSize');
end;
{$ENDIF}
Stream.Size := 0;
fReadTimeout := False;
{$IFDEF VER100}
if BlockRead(@Size, 4) = 4 then begin
{$ELSE}
if Read(@Size, 4) = 4 then begin
{$ENDIF}
size := ntohl(size);
StartTime := TimeCounter + iTimeout;
fErrStatus := 0;
while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) and
(not Timeout(StartTime)) and
(Size > 0) do begin
{$IFDEF VER100}
SLen := BlockRead(fChunkBuf, Min(Size, FActualBlockSize));
{$ELSE}
SLen := Read(fChunkBuf, Min(Size, FActualBlockSize));
{$ENDIF}
case SLen of
-1: begin // non-fatal
end;
0: Break; // fatal
else begin
Stream.Write(fChunkBuf^, SLen);
Dec(Size, SLen);
end;
end;
end;
end;
Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT) or (fErrStatus = WSAEWOULDBLOCK)) and
((Size = 0) and (Stream.Size > 0)); // 2.3c
end;

function TDXSock.Peekansistring: ansistring;
var
Size: Integer;
{$IFDEF TLS_EDITION}
Filtered, InData: Pointer;
Handled: Boolean;
NewLen: Integer;
SizeToRead: Integer;
S: ansistring;
StartTime: Longword;
{$ENDIF}

begin
Result := '';
{$IFDEF TLS_EDITION}
indata := nil;
{$ENDIF}
fReadTimeout := False;
if Sock = INVALID_SOCKET then
exit;
{$IFDEF TLS_EDITION}
if Assigned(feOnFilter) then begin
SizeToRead := 0;
StartTime := Dxansistring.TimeCounter + 1000;
while (SizeToRead = 0) and Connected and (not DXansistring.Timeout(StartTime)) do begin
ioctlsocket(Sock, FIONREAD, Longint(SizeToRead));
DoSleepEx(1);
end;
if SizeToRead = 0 then begin
Result := '';
Exit;
end;

// GetMem (InData,SizeToRead) ;
InData := System.GetMemory(SizeToRead);

if Sock <> Invalid_Socket then
FErrStatus := Recv(Sock, Indata^, SizeToRead, 0)
else
FErrStatus := Socket_Error;
end
else
{$ENDIF}
FErrStatus := BasicPeek(Sock, FPeekBuffer^, PeekBufferSize);
if FErrStatus = Socket_Error then begin
FErrStatus := 0;
Exit;
end
else
Size := FErrStatus;
{$IFDEF TLS_EDITION}
if Assigned(feOnFilter) then begin
Handled := False;
Filtered := nil;
feOnFilter(ddAfterRead, InData, Filtered, SizeToRead, NewLen, Handled, FClientThread);
if not Handled then begin
fErrStatus := 9999; {onFilter failed!}
if Assigned(feOnFilter) then begin
feOnFilter(ddFreePointer, nil, Filtered, NewLen, NewLen, Handled, FClientThread);
if InData <> nil then begin
// FreeMem (InData,SizeToRead) ;
System.FreeMemory(InData);
InData := nil;
end;
end;
Exit;
end;
if Filtered <> nil then begin
SetLength(S, NewLen);
Move(TDXBSArray(Filtered^), S[1], NewLen);
Result := S;
fReadTimeout := False;
FErrStatus := 0;
end
else
Result := '';
if Assigned(feOnFilter) then begin
feOnFilter(ddFreePointer, nil, Filtered, NewLen, NewLen, Handled, FClientThread);
if InData <> nil then begin
// FreeMem (InData,SizeToRead) ;
System.FreeMemory(InData);
InData := nil;
end;
end;
end
else begin
{$ENDIF}
Setlength(Result, Size);
if Size > 0 then
Move(FPeekBuffer^, Result[1], Size); // 3.0
{$IFDEF TLS_EDITION}
fReadTimeout := False;
FErrStatus := 0;
end;
{$ENDIF}
end;

function TDXSock.Peekansichar: ansichar;
begin
Result := #0;
fReadTimeout := False;
if Sock = INVALID_SOCKET then
exit;
FErrStatus := BasicPeek(Sock, FPeekBuffer^, 1);
case fErrStatus of
0: begin
// ShowMessageWindow('','Peekansichar '+IntToStr(fErrStatus));
CloseNow;
end;
Socket_Error: FErrStatus := 0;
else
Result := FPeekBuffer^[0];
end;
end;

procedure TDXSock.CloseGracefully;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.CloseGraceFully');
end;
{$ENDIF}
CloseConnection(Sock, True);
end;

procedure TDXSock.Disconnect;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.Disconnect');
end;
{$ENDIF}
CloseConnection(Sock, True);
end;

procedure TDXSock.CloseNow;
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.CloseNow');
end;
{$ENDIF}
CloseConnection(Sock, False);
end;

function TDXSock.IsValidSocket: Boolean;
begin
Result := Sock <> INVALID_SOCKET;
end;

function TDXSock.IsConnected: Boolean;
begin
Result := (Sock <> INVALID_SOCKET)
and ((FErrStatus = 0) or (FErrStatus = WSAETIMEDOUT) or
(FErrStatus = WSAEWOULDBLOCK) or (fErrStatus = 10038));
if not Result and (CountmyWaiting > 0) then
Result := True;
{ If (fErrStatus<>0) and
(fErrStatus<>WSAEWOULDBLOCK) and
(fErrStatus<>WSAETIMEDOUT) and
(fErrStatus<>10038) then ShowMessageWindow('IsConnected',IntToStr(fErrStatus));
If not Result then Begin
If Sock=INVALID_SOCKET then ShowMessageWindow('IsConnected','Invalid_Socket');
End;}
end;

function TDXSock.IsReadable: Boolean;
begin
fReadTimeout := False;
Result := False;
if Sock = INVALID_SOCKET then
exit;
Result := BasicSelect(Sock, True, GlobalTimeout) > 0;
// SetTimeoutAndBuffer(Sock);
fErrStatus := 0;
end;

function TDXSock.IsWritable: Boolean;
begin
fReadTimeout := False;
Result := False;
if Sock = INVALID_SOCKET then
exit;
Result := BasicSelect(Sock, False, GlobalTimeout) > 0;
// SetTimeoutAndBuffer(Sock);
fErrStatus := 0;
end;

function TDXSock.DidReadTimeout: Boolean;
begin
Result := fReadTimeout;
end;

function TDXSock.GetMyLocalPort: Integer;
begin
Result := 0;
if Sock = INVALID_SOCKET then
exit;
Result := GetLocalPort(Sock);
end;

function TDXSock.GetMyLocalIPAddr: ansistring;
begin
Result := '';
if Sock = INVALID_SOCKET then
exit;
Result := GetLocalIPAddr(Sock);
end;

function TDXSock.GetErrorStr: ansistring;
begin
result := GetErrorDesc(GetLastError);
end;

procedure TDXSock.WinsockVersion(var WinsockInfo: PWinsockInfo);
begin
if not Assigned(WinsockInfo) then
Exit;
if not SocketLayerLoaded then
Exit;
GetSocketVersion(WinsockInfo);
end;

procedure TDXSock.SetbNagle(TurnOn: Boolean);
begin
SetNagle(Sock, TurnOn, FErrStatus);
end;

procedure TDXSock.SetbBlocking(TurnOn: Boolean);
begin
fUseBlocking := TurnOn;
SetBlocking(Sock, TurnOn, FErrStatus);
end;

function TDXSock.GetmyErrorDesc(errorCode: Integer): ansistring;
begin
Result := GetErrorDesc(ErrorCode);
end;

procedure TDXSock.SetfBlockSizeFlags(Value: TDXBlockSizeFlags);
begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.SetfBlockSizeFlags');
end;
{$ENDIF}
if Assigned(fChunkBuf) then
// FreeMem (fChunkBuf,FActualBlockSize);
System.FreeMemory(fChunkBuf);
fChunkBuf := nil;
fBlockSizeFlags := Value;
case FBlockSizeFlags of
bsfZero: fActualBlockSize := 0;
bsfRealSmall: fActualBlockSize := 128;
bsfSmall: fActualBlockSize := 256;
bsfNormal: fActualBlockSize := 512;
bsfBigger: fActualBlockSize := 2048;
bsfBiggest: fActualBlockSize := 4096;
bsfHUGE: fActualBlockSize := 32768;
else
fActualBlockSize := TDXHugeSize;
end;
if FBlockSizeFlags <> bsfZero then
// GetMem (fChunkBuf,FActualBlockSize) ;
fChunkBuf := System.GetMemory(FActualBlockSize);
end;

function TDXSOCK.CountmyWaiting: Integer;
begin
Result := CountWaiting(Sock, FErrStatus);
if FErrStatus <> 0 then begin
//------------------------------------------------------------------------------
// 抛出异常 2008-2-14 马敏钊
//------------------------------------------------------------------------------
// raise Exception.Create('检查等待数据时发现socket 已断开，抛出异常');

Result := 0;
Exit;
end;
end;

function TDXSOCK.FilterRead(const InBuf: Pointer; var OutBuf: Pointer; InSize: Integer; xClientThread: TThread): Integer;
var
Handled: Boolean;

begin
if InSize > 0 then
if Assigned(feOnFilter) then begin
Handled := False;
Result := 0;
feOnFilter(ddAfterRead, InBuf, OutBuf, InSize, Result, Handled, xClientThread);
if not Handled then begin
fErrStatus := 9999; {onFilter failed!}
Exit;
end;
end;
end;

// used by TDXSockClient only!

procedure TDXSock.SockClientSetGlobal(I: ansistring; P: Integer);
begin
GlobalPeerPort := P;
GlobalPeerIPAddress := I;
end;

// new 3.0 features:

function TDXSock.DroppedConnection: Boolean;
begin
Result := False;
if IsReadable then
if ansicharactersToRead = 0 then begin
CloseNow; // invalidates the handle
Result := True;
end;
end;

function TDXSock.WaitForData(itimeout: Longint): Boolean;
var
StartTime: Comp;

begin
{$IFDEF CODE_TRACER}
if Assigned(CodeTracer) then begin
CodeTracer.SendMessage(dxctDebug, 'TDXSock.WaitForData');
end;
{$ENDIF}
Result := False;
StartTime := TimeCounter + Cardinal(itimeout);
while not TimeOut(StartTime) do begin
if DroppedConnection then begin
CloseNow;
Exit;
end
else begin
if ansicharactersToRead > 0 then begin
Result := True;
Exit;
end
else begin
ProcessWindowsMessageQueue;
DoSleepEx(0);
end;
end;
end;
end;

procedure TDXSock.RestartansicharactersPerSecondTimer;
begin
fCPSStart := Now;
fTotalWBytes := 0;
fTotalRBytes := 0;
end;

function TDXSock.ansicharactersPerSecondWritten: Integer;
var
H1, M1, S1, MS1: Word;

begin
try
DecodeTime(Now - fCPSStart, H1, M1, S1, MS1);
Result := fTotalWBytes div Max(((MS1 + (S1 * 1000) + (M1 * 3600000) + (H1 * 216000000)) div 1000), 1);
except
Result := 0;
end;
end;

function TDXSock.ansicharactersPerSecondReceived: Integer;
var
H1, M1, S1, MS1: Word;

begin
try
DecodeTime(Now - fCPSStart, H1, M1, S1, MS1);
Result := fTotalRBytes div Max(((MS1 + (S1 * 1000) + (M1 * 3600000) + (H1 * 216000000)) div 1000), 1);
except
Result := 0;
end;
end;

initialization
{$IFDEF LINUX}
StartupResult := 0;
{$ELSE}
StartupResult := WSAStartup(MAKEBytesToWORD(2, 2), DLLData);
{$ENDIF}
if StartupResult = 0 then begin
StartupResult := 999;
// 6-9: added to load 1 time.
GlobalTimeout.tv_Sec := 0;
GlobalTimeout.tv_uSec := 500; //2500;
end
else StartupResult := 123;

finalization
{$IFNDEF LINUX}
if StartupResult = 999 then WSACleanup;
{$ENDIF}

end.

你可能感兴趣的:(Delphi)

Delphi保存字符串到文本文件龙门吹雪
Delphi保存字符串到文本文件，若指定文件不存在，则自动创建；保存字符串时采用累加形式。proceduremSaveToFile(constFileName:string;sts:string);varMyTextFile:TextFile;//定义变量MyTextFile为文本文件类型begin//(*步骤1，将文件变量与外部文件联系。相当于为外部文件找了个“替身”*)AssignFile(M
DOK系统重写 yujunl 生活感悟
经验的积累，往往有意想不到灵感，一直想重写DOK的系统，工作量的庞大，有心无力！二年之后，对系统的熟知，对DELPHI的熟知，一个晚上一个无意的操作，竟然解决了问题。达到我的理想。很是骄傲了一段时间，多少人多少年，都没有解决的问题，在我手里解决了！我是幸运的而已！并非比他们牛。但绝对比他们努力！
Delphi基本图像处理代码 comeoffbest Java
Delphi基本图像处理代码//浮雕procedureEmboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;vari,j,Gray,Azimuthvalue,R,G,B:integer;SrcRGB,SrcRGB1,SrcRGB2,DestRGB:pRGBTriple;beginfori:=0toSrcBmp.Height-1d
房产怎么利用Delphi发送销售短信乐讯通云通信 php 开发语言 java json
现在的房价价格并不是很稳定，因此在房价下降时，很多人都想出手买房。而开发商也想趁这个机会好好宣传自己的楼盘，所以，群发短信便成为了一个很好宣传手段，成本低，覆盖率高的特性，让群发短信在开发商之间广受好评。针对一些客户来说，通过群发短信可以实时知道自己倾向的楼盘的价格，在好的时机出手。支持免费对接试用：乐讯通PaaS平台找好用的短信平台,选择乐讯通,短信群发|短信平台|群发短信软件|群发短信平台|乐
VBto Converter代码转换工具最新V2.89版中游鱼原创 VB 补丁 .net microsoft vb6 代码转换
VBtoConverter代码转换工具最新V2.89版VBtoConverter是来自国外的一款简单实用，功能强大的VB6源代码转换工具。作为一款实用的编程工具软件，可以将MicrosoftVisualBasic6.0project（包括源代码）转换成MSVC++MFC,VC++.NET(CLR),VBNET,C#,J#,BorlandC++Builder,BorlandDelphi源代码文件。可
delphi fireDAC+SQLite 在多线程下笔记蝈蝈(GuoGuo) SQLite Delphi sqlite 笔记 jvm
sqlite1篇文章0订阅订阅专栏SQLite官方描述是支持多线程的，参考：UsingSQLiteInMulti-ThreadedApplicationsFIREDAC默认的threadsafe为2，要求是为每个线程单独建立一个连接，实际测试，应该是有且只能有一个连接。特别是主线程需要注意。在有DBGRID的情况下，多个连接会导致databaseislocked的错误。关于多线程的配置，官方文档描
[ v1.3 基本搞定 ] Delphi UDP + TCP 通信问题 holen DELPHI DELPHI
主体思路：先由管理机发UDP命令到客户端，客户端在获取主机IP后，再建立TCP连接，这样就不用手工去客户端设主机IP了，而且主机IP可随意变化。管理机（TCP服务端/UDP客户端）源码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,
java delphi 三层_DELPHI三层架构设计方案门田木 java delphi 三层
随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。业务层要与表示层尽量解藕，我的方法是：首先我们在中间层TLB_中定义一个接口IBusinessService,定
delphi 计算文件与当前时间差(天小时分钟秒) 强哥83 Delphi delphi integer
procedureTForm1.FormCreate(Sender:TObject);//窗体初始化variFileHandle:Integer;FileTime:TDateTime;Days:Integer;Hours:Integer;Minutes:Integer;Seconds:Integer;beginDataPath:=ExtractFilePath(paramstr(0))+'data
Delphi v11 安卓权限申请 pcplayer android Delphi
问题Delphi10.4的安卓权限申请代码，在Delphi11下面编译无法通过。原因原因是里面有几个变量类型的定义有所不同。procedureTDmBLE.RequestPermissionsResult(Sender:TObject;constAPermissions:TArray;constAGrantResults:TArray);上述代码是Delphi10.4的，里面有两个类型需要更改：1
C语言开发windows桌面程序,开发 windows 桌面软件，现在主流用什么技术？ weixin_39963465
桌面软件还是得win32,工具只有两个选择vc和delphi,不建议用.net,存在部署问题.还有大佬说桌面还是老老实实C#吧，看需求选择WPF或者Winforms或者干脆激进一点，直接上win10的UAP？另外我每天默念100遍，拿Web应付Windows的软件都去死吧，死干净点。这是作为用户的想法。拿web应付的多数吃内存是nativeapp的几倍甚至几十倍，对高dpi支持和新技术支持也差，再
linux的make和makefile 猪蹄手 linux 运维服务器
一.什么是make和makefilemakefile作用：一个工程中的源文件不计数，其按类型、功能、模块分别放在若干个目录中，makefile定义了一系列的规则来指定，哪些文件需要先编译，哪些文件需要后编译，哪些文件需要重新编译，甚至于进行更复杂的功能操作make作用:make是一个命令工具，是一个解释makefile中指令的命令工具，一般来说，大多数的IDE都有这个命令，比如：Delphi的ma
Delphi Web前端开发教程（9）：基于TMS WEB Core框架 xyzhan Delphi 前端 Delphi Web前端开发教程 TMS WEB Core WEB开发
3、RESTServers服务端(后端)框架REST服务端特点：-为远程资源提供一个RESTAPI接口。也可以为其他网络内容提供服务；-包括在DelphiEnterprise&Architect企业版和架构师版中的RAD服务器、DataSnap、WebBroker；-开源框架：DelphiMVCFramework、MARS-Curiosity、SynopsemORMotORM/SOA/MVCFra
【Delphi 基础知识 29】ListBox控件的详细使用南通DXZ 100天精通Delphi 开发语言
在Delphi中，TListBox是一个常用的控件，用于显示项目列表。以下是TListBox的一些常见用法：添加项目：使用ListBox.Items.Add方法可以向列表框中添加项目。例如：ListBox1.Items.Add('Item1');ListBox1.Items.Add('Item2');删除项目：使用ListBox.Items.Delete方法可以删除指定位置的项目。例如：ListB
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（动态数组） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
5.1.4动态数组在传统的Pascal中，数组的大小是固定的，并且在声明数据类型时限制了元素的数量。然而，ObjectPascal支持动态数组的直接和本地实现。注解：“直接实现动态数组”与使用指针和动态内存分配来获得类似效果的方法截然不同…后者代码非常复杂且容易出错。顺便说一句，动态数组是大多数现代编程语言中唯一的一种结构形式。动态数组是动态分配的，并进行引用计数（使得参数传递更快，因为只传递引用
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（静态数组） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
第5章数组与记录我在第二章介绍数据类型时，提到了ObjectPascal中既有内置数据类型又有自定义数据类型。自定义数据类型的一个简单示例是在该章节中介绍的枚举类型。自定义类型的真正强大体现在更高级的机制中，比如数组、记录和类。在本章中，我将讲述前两个机制，基本上它们的存在可以追溯到Pascal的早期定义，但经过多年的改变（现在变得更加强大），它们与早期同名的定义类型几乎没有相似之处。在本章末尾，
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（开放式数组形参） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
5.1.5开放式数组形参对于数组的使用有一个非常特殊的场景，即用于向函数传递一个灵活的参数列表。除了直接传递数组外，本节和下一节还将解释两种特殊的语法约定。在上一段代码中的Format函数就是一个使用了这种约定的函数，它的第二个参数接受一个就地定义的数组值。与C语言（以及其他一些基于C语法的语言）不同，在传统的Pascal语言中，函数或过程总是有固定数量的参数。然而，在ObjectPascal中，
delphi cef3 获取浏览器成员变量过路客甲乙 delphi c++
delphicef3获取成员变量。新版本可以运行老版本无法运行。报错E2009Incompatibletypes:'methodpointerandregularprocedure'解决办法：GlobalCEFApp.OnProcessMessageReceived：=RenderProcessHandler_OnProcessMessageReceivedEvent;把全局方法修改为类方法Glo
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第3节（内联函数） langfengyl Object Pascal Handbook 学习笔记 delphi Object Pascal delphi11
4.3内联在ObjectPascal中，内联函数和方法是一种低级语言特性，可以带来显著的优化效果。一般来说，当你调用一个方法时，编译器会生成一些代码，让你的程序跳转到一个新的执行点。这意味着要设置堆栈框架并进行一些操作，可能需要十几条机器指令。不过，你执行的方法可能非常简短，甚至可能是一个访问方法，只是设置或返回某个私有字段。在这种情况下，将实际代码复制到调用位置，避免堆栈帧设置和其他一切操作，是
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第2.6节（默认参数） langfengyl 学习笔记 delphi Object Pascal delphi11
4.2.6默认参数与重载相关的另一个特性是可以为函数的某些参数提供默认值，这样就可以在调用函数时可使用或不使用这些参数。如果调用中缺少参数，函数将使用默认值。让我举一个例子（仍然是OverloadTest示例的一部分）。我们可以定义以下Show调用的封装，提供两个默认参数：procedureNewMessage(Msg:string;Caption:string='Message';Separat
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第4节（函数的高级特性） langfengyl Object Pascal Handbook 学习笔记 delphi Object Pascal delphi11
4.4函数的高级特性到目前为止，我已经介绍了与函数相关的核心功能，但还有一些高级功能值得探索。不过，如果你确实是软件开发方面的新手，你可能会想暂时跳过本章的其余部分，转到下一章。4.4.1ObjectPascal的调用约定每当你的代码需要调用函数时，双方需要就参数从调用者传递给被调用者的实际方式达成一致，这就是所谓的调用约定。一般来说，函数调用是通过堆栈内存区域传递参数（并期望返回值）。不过，参数
用 Delphi 程序调用 Python 代码画曲线图 -- 数据来自 Delphi 程序 pcplayer python 开发语言 Delphi
接本博客上一篇文章，使用Python的matplotlib库画曲线。上次是为了实现调用该库，数据是直接写死在Python代码里面的。代码是这一行：squares=[1,4,9,16,25];既然是Delphi调用Python的库，数据应该是Delphi的程序传递给Python的代码，然后Python的代码利用Python库把图画出来。比如，数据可能来自数据库。做数据库编程，Delphi非常擅长啊。
用 Delphi 程序调用 Python 代码画曲线图 pcplayer python 开发语言 Delphi
用Python的库画图Python代码如下：importmatplotlib.pyplotaspltsquares=[1,4,9,16,25];plt.plot(squares);plt.grid(True)#网格线plt.show();#这句话会弹出个窗口出来，里面是上述数据的曲线。把以上代码，放进PyScripter这个Python的开发工具IDE里面，点三角形小箭头图标（Run按钮），或者按
Python4Delphi: 使用Delphi代码调用Python代码里面的类 pcplayer python 开发语言 Delphi
书接上回。上一篇我写了如何用Delphi代码调用Python代码里面的函数。这一篇如题。问题：假设有一个Python的开源代码，里面有一个类，比较复杂，它有比较复杂的算法，刚好我们在写Delphi程序的时候需要。如何用Delphi直接调用这个类，使用它的算法？Python代码如下：classMyPerson:def__init__(self,FirstName,LastName):self.MyF
Delphi 程序直接调用 Python 的函数 pcplayer python 开发语言
在本系列的第一篇博客文章：Delphi程序员初学Python笔记-CSDN博客在这篇文章里面，我提到，一个Python的函数，我用Delphi无法直接调用它，所以我对它做了一个Python的包装。原因是，那是我第一次学习使用Python4Delphi这个控件。那时候要执行Python代码，我只会使用PythonEngine1.ExecStrings(Python代码)这样的方式。这样做，就是在De
delphi cppUncleSix
收到邀请，要求用Delphi做Android的App，郁闷之极，这些老外为啥总要我做不熟悉的东西呢。既然这样，做为"全能"的软件工程师，我就现学现用，看看能不能一两个小时学会，网上百度了一下，资料少，中国人都不用delphi了呢？这么强，这么高效的工具，可惜了。自己研究了一下，看上去用delphi做Android的App还是很简单高效的。好东西为我所用，若客户没有特别指定什么工具，我以后就用Del
IT技术人员必须不断学习新的专业技术华西建筑关联专业公司华鲲智慧学习程序人生创业创新自动化物联网人工智能
IT技术人员从业后可以说有很多专业的技术，需要你不断地学习，不断地打破自己原来的技术藩篱，学习全新的专业技术。小编是一个70后的程序员，我们大学时候学的编程语言现在很多人听都没有听说过，更别说用过，像VF\汇编\PASCAL等。刚参加工作的时候跟着同事在项目开发测试过程中学习了VB，工作四年后开始创业，又全新学习了PB和Delphi。可开发的C/S版管理软件还没有推出几年，发现友商更多地推出了基于
动态添加DevExpress 套件中 dxBar的菜单项目 flexitime function delphi insert integer button blog
WrittenbyflexitimePS:有鉴于几位热心网友的意见，所以还是决定写一下一些技术相关的BLOG，并希望能有网友不吝赐教DevExpress是一个十分有名的Delphi控件套装，这个套件很多时候都是带有原码的，而我这篇文章正如题目所述的问题，是研究在dxBar中动态添加菜单。其实要完成这件事情并不困难，只是几行代码就说明问题了，但为什么要写这篇文章呢，主要的目的在于说明如何在没有其它资
从技术开始-企业内部信息化架构演变 wangbing1125 云计算
回顾下历史。整个过程，在下都经历了。foxbase，标准C，VB，Delphi，VC，C#到VUE+JAVA现在各企业内部信息化架构大多在1.0和2.0之间现在都在嚷嚷数字化转型，老实讲，我搞不懂专家讲的那些东西，甚至弄不清信息化、数字化到底有啥区别。我搞了20多年的信息系统，难道不是数字化的？有一点大家到是共识，就是现在这种架构不能满足需求了，得改。1、用户是单点登录了，但是授权还是各自系统再做
_di_ILanguageEnumerable - C++ Builder 玄坴
C++Builder参考手册➙System::Sysutils➙_di_ILanguageEnumerable头文件：#include命名空间：System::Sysutils类型定义：typedefSystem::DelphiInterface_di_ILanguageEnumerable;ILanguageEnumerable智能接口指针，函数PreferredUILanguageList的返
Linux的Initrd机制被触发 linux
Linux 的 initrd 技术是一个非常普遍使用的机制，linux2.6 内核的 initrd 的文件格式由原来的文件系统镜像文件转变成了 cpio 格式，变化不仅反映在文件格式上， linux 内核对这两种格式的 initrd 的处理有着截然的不同。本文首先介绍了什么是 initrd 技术，然后分别介绍了 Linux2.4 内核和 2.6 内核的 initrd 的处理流程。最后通过对 Lin
maven本地仓库路径修改 bitcarter maven
默认maven本地仓库路径：C:\Users\Administrator\.m2 修改maven本地仓库路径方法： 1.打开E:\maven\apache-maven-2.2.1\conf\settings.xml 2.找到
XSD和XML中的命名空间 darrenzhu xml xsd schema namespace 命名空间
http://www.360doc.com/content/12/0418/10/9437165_204585479.shtml http://blog.csdn.net/wanghuan203/article/details/9203621 http://blog.csdn.net/wanghuan203/article/details/9204337 http://www.cn
Java 求素数运算周凡杨 java 算法素数
网络上对求素数之解数不胜数，我在此总结归纳一下，同时对一些编码，加以改进，效率有成倍热提高。第一种：原理: 6N(+-)1法任何一个自然数，总可以表示成为如下的形式之一： 6N，6N+1，6N+2，6N+3，6N+4，6N+5 (N=0，1，2，…)
java 单例模式 g21121 java
想必单例模式大家都不会陌生，有如下两种方式来实现单例模式： class Singleton { private static Singleton instance=new Singleton(); private Singleton(){} static Singleton getInstance() { return instance; }
Linux下Mysql源码安装 510888780 mysql
1.假设已经有mysql-5.6.23-linux-glibc2.5-x86_64.tar.gz (1)创建mysql的安装目录及数据库存放目录解压缩下载的源码包，目录结构，特殊指定的目录除外：
32位和64位操作系统墙头上一根草 32位和64位操作系统
32位和64位操作系统是指：CPU一次处理数据的能力是32位还是64位。现在市场上的CPU一般都是64位的，但是这些CPU并不是真正意义上的64 位CPU，里面依然保留了大部分32位的技术，只是进行了部分64位的改进。32位和64位的区别还涉及了内存的寻址方面，32位系统的最大寻址空间是2 的32次方= 4294967296（bit）= 4（GB）左右，而64位系统的最大寻址空间的寻址空间则达到了
我的spring学习笔记10-轻量级_Spring框架 aijuans Spring 3
一、问题提问： → 请简单介绍一下什么是轻量级？轻量级（Leightweight）是相对于一些重量级的容器来说的，比如Spring的核心是一个轻量级的容器，Spring的核心包在文件容量上只有不到1M大小，使用Spring核心包所需要的资源也是很少的，您甚至可以在小型设备中使用Spring。
mongodb 环境搭建及简单CURD antlove Web Install curd NoSQL mongo
一搭建mongodb环境 1. 在mongo官网下载mongodb 2. 在本地创建目录 "D:\Program Files\mongodb-win32-i386-2.6.4\data\db" 3. 运行mongodb服务 [mongod.exe --dbpath "D:\Program Files\mongodb-win32-i386-2.6.4\data\
数据字典和动态视图百合不是茶 oracle 数据字典动态视图系统和对象权限
数据字典（data dictionary）是 Oracle 数据库的一个重要组成部分，这是一组用于记录数据库信息的只读（read-only）表。随着数据库的启动而启动,数据库关闭时数据字典也关闭数据字典中包含数据库中所有方案对象（schema object）的定义(包括表，视图，索引，簇，同义词，序列，过程，函数，包，触发器等等) 数据库为一
多线程编程一般规则 bijian1013 java thread 多线程 java多线程
如果两个工两个以上的线程都修改一个对象，那么把执行修改的方法定义为被同步的，如果对象更新影响到只读方法，那么只读方法也要定义成同步的。不要滥用同步。如果在一个对象内的不同的方法访问的不是同一个数据，就不要将方法设置为synchronized的。
将文件或目录拷贝到另一个Linux系统的命令scp bijian1013 linux unix scp
一.功能说明 scp就是security copy，用于将文件或者目录从一个Linux系统拷贝到另一个Linux系统下。scp传输数据用的是SSH协议，保证了数据传输的安全，其格式如下： scp 远程用户名@IP地址：文件的绝对路径
【持久化框架MyBatis3五】MyBatis3一对多关联查询 bit1129 Mybatis3
以教员和课程为例介绍一对多关联关系，在这里认为一个教员可以叫多门课程，而一门课程只有1个教员教，这种关系在实际中不太常见，通过教员和课程是多对多的关系。示例数据：地址表： CREATE TABLE ADDRESSES ( ADDR_ID INT(11) NOT NULL AUTO_INCREMENT, STREET VAR
cookie状态判断引发的查找问题 bitcarter form cgi
先说一下我们的业务背景： 1.前台将图片和文本通过form表单提交到后台，图片我们都做了base64的编码，并且前台图片进行了压缩 2.form中action是一个cgi服务 3.后台cgi服务同时供PC，H5，APP 4.后台cgi中调用公共的cookie状态判断方法（公共的，大家都用，几年了没有问题）问题：（折腾两天。。。。） 1.PC端cgi服务正常调用，cookie判断没
通过Nginx,Tomcat访问日志(access log)记录请求耗时 ronin47
一、Nginx通过$upstream_response_time $request_time统计请求和后台服务响应时间 nginx.conf使用配置方式： log_format main '$remote_addr - $remote_user [$time_local] "$request" ''$status $body_bytes_sent "$http_r
java-67- n个骰子的点数。把n个骰子扔在地上，所有骰子朝上一面的点数之和为S。输入n，打印出S的所有可能的值出现的概率。 bylijinnan java
public class ProbabilityOfDice { /** * Q67 n个骰子的点数 * 把n个骰子扔在地上，所有骰子朝上一面的点数之和为S。输入n，打印出S的所有可能的值出现的概率。 * 在以下求解过程中，我们把骰子看作是有序的。 * 例如当n=2时，我们认为（1，2）和（2，1）是两种不同的情况 */ private stati
看别人的博客，觉得心情很好 Cb123456 博客心情
以为写博客，就是总结，就和日记一样吧，同时也在督促自己。今天看了好长时间博客: 职业规划: http://www.iteye.com/blogs/subjects/zhiyeguihua android学习: 1.http://byandby.i
[JWFD开源工作流]尝试用原生代码引擎实现循环反馈拓扑分析 comsci 工作流
我们已经不满足于仅仅跳跃一次，通过对引擎的升级，今天我测试了一下循环反馈模式，大概跑了200圈，引擎报一个溢出错误在一个流程图的结束节点中嵌入一段方程，每次引擎运行到这个节点的时候，通过实时编译器GM模块，计算这个方程，计算结果与预设值进行比较，符合条件则跳跃到开始节点，继续新一轮拓扑分析，直到遇到
JS常用的事件及方法 cwqcwqmax9 js
事件描述 onactivate 当对象设置为活动元素时触发。 onafterupdate 当成功更新数据源对象中的关联对象后在数据绑定对象上触发。 onbeforeactivate 对象要被设置为当前元素前立即触发。 onbeforecut 当选中区从文档中删除之前在源对象触发。 onbeforedeactivate 在 activeElement 从当前对象变为父文档其它对象之前立即
正则表达式验证日期格式 dashuaifu 正则表达式 IT其它 java其它
正则表达式验证日期格式 function isDate(d){ var v = d.match(/^(\d{4})-(\d{1,2})-(\d{1,2})$/i); if(!v) { this.focus(); return false; } } <input value="2000-8-8" onblu
Yii CModel.rules() 方法、validate预定义完整列表、以及说说验证 dcj3sjt126com yii
public array rules () {return} array 要调用 validate() 时应用的有效性规则。返回属性的有效性规则。声明验证规则，应重写此方法。每个规则是数组具有以下结构：array('attribute list', 'validator name', 'on'=>'scenario name', ...validation
UITextAttributeTextColor = deprecated in iOS 7.0 dcj3sjt126com ios
In this lesson we used the key "UITextAttributeTextColor" to change the color of the UINavigationBar appearance to white. This prompts a warning "first deprecated in iOS 7.0." Ins
判断一个数是质数的几种方法 EmmaZhao Math python
质数也叫素数，是只能被1和它本身整除的正整数，最小的质数是2，目前发现的最大的质数是p=2^57885161-1【注1】。判断一个数是质数的最简单的方法如下： def isPrime1(n): for i in range(2, n): if n % i == 0: return False return True 但是在上面的方法中有一些冗余的计算，所以
SpringSecurity工作原理小解读坏我一锅粥 SpringSecurity
SecurityContextPersistenceFilter ConcurrentSessionFilter WebAsyncManagerIntegrationFilter HeaderWriterFilter CsrfFilter LogoutFilter Use
JS实现自适应宽度的Tag切换 ini JavaScript html Web css html5
效果体验：http://hovertree.com/texiao/js/3.htm 该效果使用纯JavaScript代码，实现TAB页切换效果，TAB标签根据内容自适应宽度，点击TAB标签切换内容页。 HTML文件代码： <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"
Hbase Rest API : 数据查询 kane_xie REST hbase
hbase（hadoop）是用java编写的，有些语言（例如python）能够对它提供良好的支持，但也有很多语言使用起来并不是那么方便，比如c#只能通过thrift访问。Rest就能很好的解决这个问题。Hbase的org.apache.hadoop.hbase.rest包提供了rest接口，它内嵌了jetty作为servlet容器。启动命令：./bin/hbase rest s
JQuery实现鼠标拖动元素移动位置（源码+注释）明子健 jquery js 源码拖动鼠标
欢迎讨论指正！ print.html代码： <!DOCTYPE html> <html> <head> <meta http-equiv=Content-Type content="text/html;charset=utf-8"> <title>发票打印</title> &l
Postgresql 连表更新字段语法 update qifeifei PostgreSQL
下面这段sql本来目的是想更新条件下的数据，可是这段sql却更新了整个表的数据。sql如下： UPDATE tops_visa.visa_order SET op_audit_abort_pass_date = now() FROM tops_visa.visa_order as t1 INNER JOIN tops_visa.visa_visitor as t2 ON t1.
将redis,memcache结合使用的方案? tcrct redis cache
公司架构上使用了阿里云的服务，由于阿里的kvstore收费相当高，打算自建，自建后就需要自己维护，所以就有了一个想法，针对kvstore(redis)及ocs(memcache)的特点，想自己开发一个cache层，将需要用到list，set，map等redis方法的继续使用redis来完成，将整条记录放在memcache下，即findbyid，save等时就memcache，其它就对应使用redi
开发中遇到的诡异的bug wudixiaotie bug
今天我们服务器组遇到个问题：我们的服务是从Kafka里面取出数据，然后把offset存储到ssdb中，每个topic和partition都对应ssdb中不同的key，服务启动之后，每次kafka数据更新我们这边收到消息，然后存储之后就发现ssdb的值偶尔是-2,这就奇怪了，最开始我们是在代码中打印存储的日志，发现没什么问题，后来去查看ssdb的日志，才发现里面每次set的时候都会对同一个key