• R/O
  • SSH
  • HTTPS

akdf: Commit


Commit MetaInfo

Revision564 (tree)
Time2022-01-10 07:56:00
Authorderekwildstar

Log Message

Adequação para compilação no Delphi 2006

Change Summary

Incremental Difference

--- trunk/rtp/src/Network/KRK.Network.WS2Def.pas (revision 563)
+++ trunk/rtp/src/Network/KRK.Network.WS2Def.pas (revision 564)
@@ -2,8 +2,8 @@
22
33 interface
44
5-uses
6- Windows, WinSock2;
5+uses Windows, KRK.Rtl.Win.Windows
6+ , {$IF CompilerVersion <= 18}WinSock{$ELSE}WinSock2{$IFEND}; { Delphi 2006 }
77
88 type
99 PADDRINFO = ^ADDRINFO;
--- trunk/rtp/src/Network/KRK.Network.WinSock2.pas (revision 563)
+++ trunk/rtp/src/Network/KRK.Network.WinSock2.pas (revision 564)
@@ -15,8 +15,9 @@
1515
1616 implementation
1717
18-uses
19- Windows, Winsock2, KRK.Network.WS2Def, KRK.Network.WS2TcpIp;
18+uses Windows
19+ , {$IF CompilerVersion <= 18}WinSock{$ELSE}WinSock2{$IFEND} { Delphi 2006 }
20+ , KRK.Rtl.Sys.System, KRK.Network.WS2Def, KRK.Network.WS2TcpIp;
2021
2122 function SendSynchronousSocketMessage(ADestination: String; APort: Word; AMessage: String): String;
2223 var
@@ -25,6 +26,8 @@
2526 Hints: ADDRINFO;
2627 PResult: PADDRINFO;
2728 WSAData: TWsaData;
29+ ConnectionSocket: TSocket;
30+ RBS: RawByteString;
2831 begin
2932 // ATENÇÃO!: Depurar esta função é problemático por causa da forma como os
3033 // sockets funcionam. Dependendo de onde breakpoints são colocados,
@@ -69,13 +72,13 @@
6972 // Cria um soquete para conectar-se ao servidor. Pense num soquete
7073 // como canal de comunicação. Para haver a conexão é necessário
7174 // haver um canal de comunicação, um soquete
72- var ConnectionSocket: TSocket := socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
75+ ConnectionSocket := socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
7376
7477 if ConnectionSocket = INVALID_SOCKET then
7578 raise EWinSock.Create('socket')
7679 else
7780 try
78- var RBS: RawByteString := RawByteString(AMessage);
81+ RBS := RawByteString(AMessage);
7982
8083 // O modo I/O padrão de funcionamento de um soquete é o síncrono
8184 // (bloqueante), mas é possível mudar a forma de funcionamento
--- trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.Windows.pas (revision 563)
+++ trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.Windows.pas (revision 564)
@@ -14,6 +14,7 @@
1414 LONG = Integer;
1515 DWORD_PTR = ULONG_PTR;
1616 UINT_PTR = ULONG_PTR;
17+ SIZE_T = ULONG_PTR;
1718 {$IFEND}
1819
1920 {$IF CompilerVersion <= 33} { Delphi RIO }
Show on old repository browser