E2003 Undeclared identifier: 'sWindowsSocketError'

[kazimates]

internetten remote desktop control hakkında yazılmış bulunan bir kod buldum ve codegear delphi 2007 ile açtığımda açılışta win32 seçiyorum ve sonrasında F9 ile çalıştırıyorum fakat aşağıdaki koda bakacak olursanız oradaki @sWindowsSocketError kısmında cursor kalıyor ve en alttaki hata kodunu alıyorum bunun çaresi ne olabilir?

Kod: Tümünü seç

function CheckSocketResult(ResultCode: Integer; const Op: string): Integer;
begin
  if ResultCode <> 0 then
  begin
    Result := WSAGetLastError;
    if Result <> WSAEWOULDBLOCK then
      if Assigned(SocketErrorProc) then
        SocketErrorProc(Result)
      else raise ESocketError.CreateResFmt(@sWindowsSocketError,
        [SysErrorMessage(Result), Result, Op]);
  end else Result := 0;
end;

[DCC Error] scktcomp.pas(495): E2003 Undeclared identifier: 'sWindowsSocketError'

[kazimates]

arkadaşlar bu sorunun yanıtı hala daha bulunamadı yardımcı olabilirseniz memnun olurum. herkese sağlık, başarı ve mutluluk dileklerimle...

[aslangeri]

s.a.
uses satırında unitlerden birini açmayı unutmuşsun veya sWindowsSocketError u tanımlamamışsın.
kodu bulduğun yerde hangi uniti kullanacağınında yazıyor olması lazım.
kolay gelsin.

[sabanakman]

ESocketError.CreateResFmt(@sWindowsSocketError,
[SysErrorMessage(Result), Result, Op]);

yerine

ESocketError.CreateFmt('Soket hatası = %s %d %s',
[SysErrorMessage(Result), Result, Op]);

gibisinden Türkçe bir mesaj karala gitsin.