AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi socks5 verbindung testen
Thema durchsuchen
Ansicht
Themen-Optionen

socks5 verbindung testen

Ein Thema von BBoy · begonnen am 10. Nov 2009 · letzter Beitrag vom 13. Nov 2009
Antwort Antwort
uoeb7gp
(Gast)

n/a Beiträge
 
#1

Re: socks5 verbindung testen

  Alt 10. Nov 2009, 21:00
[delphi][center]

für remoteServer folgender Code

function _CheckCon(const IP:string):boolean;
var
ClientSocket : TSocket;
Name : TSockAddr;
WSData : TWSAData;
begin
result:=false;
WSAStartup($0101,WSData); // WinSock v1.1
ClientSocket := WinSock.Socket(PF_INET,sock_Stream,IPPROTO_IP);
if (ClientSocket <> Invalid_Socket) then begin
with Name do begin
sin_Family := PF_INET;
sin_Port := htons(139); // die Portnummer des Servers
sin_Addr := TInAddr(Inet_Addr(PChar(IP))); // inet_addr in in_addr umwandeln
end;
result:=(Connect(ClientSocket,Name,SizeOf(Name))<> Socket_Error); // connection zum Server aufbauen
end;
CloseSocket(ClientSocket);
WSACleanup;
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz