Hi,
I found compiler directive ONCEWINSOCK in blcksock unit. If this
directive is undefined, blcksock couldn't be compiled under Delphi 7
(checked with latest SVN).
Solution is to
1/ add following code to private part of TBlockSocket
{$IFNDEF ONCEWINSOCK}
FWsaDataOnce: TWSADATA;
{$ENDIF}
2/ Change the function TBlockSocket.GetWsaData
function TBlockSocket.GetWsaData: TWSAData;
begin
{$IFDEF ONCEWINSOCK}
Result := WsaDataOnce;
{$ELSE}
Result := FWsaDataOnce;
{$ENDIF}
end;
3/ at the end of unit move {$IFDEF ONCEWINSOCK} behind initialization, means
initialization
{$IFDEF ONCEWINSOCK}
instead of
{$IFDEF ONCEWINSOCK}
initialization
Pavel Poles
------------------------------------------------------------------------------
Protect Your Site and Customers from Malware Attacks
Learn about various malware tactics and how to avoid them. Understand
malware threats, the impact they can have on your business, and how you
can protect your company and customers by using code signing.
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
