development-point - وتستمر البرمجة الحصرية لعيون المطورين .. شرح برمجة برنامج يفحص لك البورت ..

http://im18.gulfup.com/IvKn1.png

أخواني اقدم اليوم لكم دالة تمكنك من فحص البورت ..

اتفضلوا :
http://im18.gulfup.com/xHnD2.png
اقتباس:

uses
Winsock;

function PortTCP_IsOpen(dwPort: Word; ipAddressStr: AnsiString): boolean;
var
client: sockaddr_in;
sock: Integer;
ret: Integer;
wsdata: WSAData;
begin
Result := False;
ret := WSAStartup($0002, wsdata); //initiates use of the Winsock DLL
if ret 0 then
exit;
try
client.sin_family := AF_INET; //Set the protocol to use , in this case (IPv4)
client.sin_port := htons(dwPort);
//convert to TCP/IP network byte order (big-endian)
client.sin_addr.s_addr := inet_addr(PAnsiChar(ipAddressStr));
//convert to IN_ADDR structure
sock := socket(AF_INET, SOCK_STREAM, 0); //creates a socket
Result := connect(sock, client, SizeOf(client)) = 0;
//establishes a connection to a specified socket
finally
WSACleanup;
end;
end;

http://im18.gulfup.com/xHnD2.png
اقتباس:

الان التنفيذ :

if PortTCP_IsOpen( 81, '192.168.1.1') then
ShowMessage('Open')
else
ShowMessage('Not Open');

http://im18.gulfup.com/xHnD2.png
نضع هذا الكود في الزر ..

في حال كان البورت مفتوح على الايبي
التالي : 192.168.1.1
يظهر لك رسالة OPEN
غير ذلك يظهر رسالة على انه مغلق . .

أتمنى أن تطوروا هذا الكود .. وان يفيدكم في ما يحبه الله ويرضاه ..

والسلام عليكم ورحمة الله وبركاته

http://www.sqebd.com/vb/images/smili...20%2869%29.gif http://www.sqebd.com/vb/images/smili...20%2869%29.gif